#######################################################################################################################################
# #
# G E N E R A T I O N D E S L I S T E S D E S C O O R D O N N E E S { X , Y , Z } I N I T I A L E S #
# A V E C C E N T R A G E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.m.52.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____DistanceX 48
$Z set DistanceX=$_____DistanceX
$Z setParam _____DistanceY 48
$Z set DistanceY=$_____DistanceY
$Z setParam _____DistanceZ 48
$Z set DistanceZ=$_____DistanceZ
$Z setParam _____Bordure 0
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z
$Z @ NN_TranslationX = $dimX / $DistanceX
$Z @ NN_TranslationX = $NN_TranslationX * $DistanceX
$Z @ NN_TranslationX = $dimX - $NN_TranslationX
$Z @ NN_TranslationX = $NN_TranslationX / 2
$Z @ NN_TranslationY = $dimY / $DistanceY
$Z @ NN_TranslationY = $NN_TranslationY * $DistanceY
$Z @ NN_TranslationY = $dimY - $NN_TranslationY
$Z @ NN_TranslationY = $NN_TranslationY / 2
$Z set NN_Zmin=`GetParam $xci/valeurs_albu$X Zmin`
$Z set NN_Zmax=`GetParam $xci/valeurs_albu$X Zmax`
$Z # La modification du 20200328140959 est destinee a eliminer le "+" qui precede les deux #
$Z # valeurs numeriques '$NN_Zmin' et '$NN_Zmax' et ce a cause des "@" qui suivent... #
$Z @ NN_dimZ = $NN_Zmax - $NN_Zmin
$Z @ NN_dimZ = $NN_dimZ + 1
$Z @ NN_TranslationZ = $NN_dimZ / $DistanceZ
$Z @ NN_TranslationZ = $NN_TranslationZ * $DistanceZ
$Z @ NN_TranslationZ = $NN_dimZ - $NN_TranslationZ
$Z @ NN_TranslationZ = $NN_TranslationZ / 2
$Z $xci/valeurs_albu$X \
$Z Px=1 Py=0 Pz=0 \
$Z px=$DistanceX py=$DistanceY pz=$DistanceZ \
$Z normaliser=VRAI \
$Z bx=$NN_TranslationX by=$NN_TranslationY bz=$NN_TranslationZ \
$Z exclure=$_____Bordure \
$Z CAL1=FAUX \
$Z $formatI \
$Z > $xTV/COORDONNEES_01$COORD_X
$Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X`
$Z set PartNX=$PartNX[$WC1]
$Z $xrv/AXPB.01$X \
$Z CAL1=FAUX \
$Z ne=$PartNX \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z homothetie=$EchelleX translation=$TranslationX \
$Z > $xTV/COORDONNEES$COORD_X
$Z $xci/valeurs_albu$X \
$Z Px=0 Py=1 Pz=0 \
$Z px=$DistanceX py=$DistanceY pz=$DistanceZ \
$Z normaliser=VRAI \
$Z bx=$NN_TranslationX by=$NN_TranslationY bz=$NN_TranslationZ \
$Z exclure=$_____Bordure \
$Z CAL1=FAUX \
$Z $formatI \
$Z > $xTV/COORDONNEES_01$COORD_Y
$Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y`
$Z set PartNY=$PartNY[$WC1]
$Z $xrv/AXPB.01$X \
$Z CAL1=FAUX \
$Z ne=$PartNY \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z homothetie=$EchelleY translation=$TranslationY \
$Z > $xTV/COORDONNEES$COORD_Y
$Z $xci/valeurs_albu$X \
$Z Px=0 Py=0 Pz=1 \
$Z px=$DistanceX py=$DistanceY pz=$DistanceZ \
$Z normaliser=VRAI \
$Z bx=$NN_TranslationX by=$NN_TranslationY bz=$NN_TranslationZ \
$Z exclure=$_____Bordure \
$Z CAL1=FAUX \
$Z $formatI \
$Z > $xTV/COORDONNEES_01$COORD_Z
$Z set PartNZ=`$WC $xTV/COORDONNEES_01$COORD_Z`
$Z set PartNZ=$PartNZ[$WC1]
$Z $xrv/AXPB.01$X \
$Z CAL1=FAUX \
$Z ne=$PartNZ \
$Z fichier=$xTV/COORDONNEES_01$COORD_Z \
$Z homothetie=$EchelleZ translation=$TranslationZ \
$Z > $xTV/COORDONNEES$COORD_Z
#20220615105944____:$Z set PartN=`$xcg/MAX3.01$X x=$PartNX y=$PartNY z=$PartNZ signe="$K_VIDE"` #
$Z set PartN=`$xcg/MIN3.01$X x=$PartNX y=$PartNY z=$PartNZ signe="$K_VIDE"`
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES_01$COORD_Z