#######################################################################################################################################
# #
# E X T R A C T I O N D ' U N E L I S T E D E P O I N T S : #
# #
# #
# Author of '$xiirs/.CAYA.C1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20090405101238). #
# #
#######################################################################################################################################
$Z setParam _____Ar 2.4
$Z # Parametre introduit le 20090618110245... #
$Z setParam _____RotationOZ 0
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z if ($?N_Au_CaRrE == $NEXIST) then
$Z # Test introduit le 20110712135011 pour 'v $xiirs/$Fnota Debut_listG_CAYA_G1_0129'... #
$Z set N_Au_CaRrE=VRAI
$Z # Pour simplifier l'acceleration temporaires du processus lors de tests de mise au point #
$Z # des parametres... #
$Z else
$Z endif
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $DELETE $xTV/RAYONS
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$ROUGE
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$VERTE
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/RAYONS
$Z # Recuperation des rayons. #
$Z $DELETE $FiChIeR_LiStE
$Z set NPointsX=`$CA $xTV/COORDONNEES$COORD_X | $WCl`
$Z set NPointsY=`$CA $xTV/COORDONNEES$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $xTV/COORDONNEES$COORD_Z | $WCl`
#20220615104751____:$Z set NPointsXYZ=`$xcg/MAX3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI` #
$Z set NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`