#######################################################################################################################################
# #
# 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.E1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20090619091744). #
# #
#######################################################################################################################################
$Z setParam _____MaillageParam "$K_VIDE"
$Z # Parametre introduit le 20090619131348... #
$Z setParam _____Ar 2.4
$Z setParam _____RotationOZ 0
$Z setParam _____ParticulePara1 "$K_VIDE"
$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 $DELETE $xTV/COORDONNEES$COORD_U
$Z $DELETE $xTV/COORDONNEES$COORD_V
$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/^.* U=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORDONNEES$COORD_U
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* V=//" \
$Z -e 's/ .*$//' \
$Z > $xTV/COORDONNEES$COORD_V
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$Z > $xTV/COORDONNEES$COORD_X
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$Z > $xTV/COORDONNEES$COORD_Y
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$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 $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$Z > $xTV/COULEURS$ROUGE
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$Z > $xTV/COULEURS$VERTE
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$Z > $xTV/COULEURS$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $FiChIeR_LiStE | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/maillage_u_v$X \
$Z ne=0 fichierU=$xTV/COORDONNEES$COORD_U fichierV=$xTV/COORDONNEES$COORD_V fichierS="=" \
$Z messages_erreur_ordonnancement=FAUX \
$Z $_____MaillageParam \
$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`
#20220615105057____:$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`