#######################################################################################################################################
# #
# D E F I N I T I O N D E S P A R A M E T R E S D E B A S E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.c.11.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____ZminZmax "Zmin=$Zmin Zmax=15"
$Z SETParam _____FacXY 0.85
$Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI"
$Z set Univers=`$xrk/rdn_walk.52$X $PUnivers $formatI $_____ZminZmax ValiderAxes=FAUX`
$Z # L'option "ValiderAxes=FAUX" a ete introduite le 20041001105738... #
$Z
$Z set UMinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"`
$Z set UMaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"`
$Z set UMinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"`
$Z set UMaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"`
$Z set UMinZ=`echo $Univers | $SE -e "s/^.*[(,]ZUI=//" -e "s/[,)].*//"`
$Z set UMaxZ=`echo $Univers | $SE -e "s/^.*[(,]ZUS=//" -e "s/[,)].*//"`
$Z # Definition des extrema de l'Univers selon les trois axes {OX,OY,OZ} : #
$Z # #
$Z # {UMinX,UMaxX} #
$Z # {UMinY,UMaxY} #
$Z # {UMinZ,UMaxZ} #
$Z # #
$Z
$Z set MinX=`$xcg/ABSO.01$X x=$UMinX`
$Z set MaxX=`$xcg/ABSO.01$X x=$UMaxX`
$Z set MinY=`$xcg/ABSO.01$X x=$UMinY`
$Z set MaxY=`$xcg/ABSO.01$X x=$UMaxY`
$Z set MinZ=`$xcg/ABSO.01$X x=$UMinZ`
$Z set MaxZ=`$xcg/ABSO.01$X x=$UMaxZ`
$Z
$Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX`
$Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY`
$Z set MaxZ=`$xcg/MAX2.01$X n1=$MinZ n2=$MaxZ`
$Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX`
$Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX`
$Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY`
$Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY`
$Z set EchelleZ=`$xcg/MUL2.01$X n1=2 n2=$MaxZ`
$Z set TranslationZ=`$xcg/MUL2.01$X n1=-1 n2=$MaxZ`
$Z set SeuilPartN=1.0
$Z set GrainePartN=2
$Z set ForceX=0.0
$Z set ForceY=0.0
$Z $DELETE $xTV/BOITE.1
$Z $DELETE $xTV/BOITE.2
$Z $DELETE $xTV/BOITE.3
$Z $DELETE $xTV/BOITE.3$ROUGE
$Z $DELETE $xTV/BOITE.3$VERTE
$Z $DELETE $xTV/BOITE.3$BLEUE
$Z $DELETE $xTV/BOITE.6
$Z $DELETE $xTV/BOITE.A
$Z $DELETE $xTV/BOITE.B
$Z SET FacXY=$_____FacXY
$Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY`
$Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8 entier=VRAI`
$Z setParam _____PasSeuil `$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1 entier=VRAI`
$Z $DELETE $xTV/ROTATION$COORD_X
$Z $DELETE $xTV/ROTATION$COORD_Y
$Z $DELETE $xTV/ROTATION$COORD_Z
$Z $xci/init$X \
$Z niveau=$BLANC \
$Z R=$xTV/MASQUE \
$Z $formatI
$Z # Le 20010521121847, j'ai introduit le 'MASQUE' qui permet de localiser les points a generer #
$Z # a l'interieur de la 'BOITE.B'. #