#######################################################################################################################################
# #
# 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 #
# S A N S C E N T R A G E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.m.51.$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 $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 $xci/valeurs_albu$X \
$Z Px=1 Py=0 Pz=0 \
$Z px=$DistanceX py=$DistanceY pz=$DistanceZ \
$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 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 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
#20220615105715____:$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