#######################################################################################################################################
# #
# 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 } I N I T I A L E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.c.51.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____Lignes VRAI
$Z setParam _____NMaximumParticules 1000000000
$Z # Parametre introduit le 20220620134815... #
$Z $DELETE $xTV/COORDONNEES
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $xci/and$X \
$Z A1=$xTV/BOITE.B \
$Z A2=$xTV/MASQUE \
$Z $formatI | \
$Z $xci/liste_points$X \
$Z lignes=$_____Lignes \
$Z $formatI \
$Z > $xTV/COORDONNEES
$Z # Le 20010521121847, j'ai introduit le 'MASQUE' qui permet de localiser les points a generer #
$Z # a l'interieur de la 'BOITE.B'. #
$Z if ($?_____INiveaux == $EXIST) then
$Z # Le 20010827152824, j'ai introduit l'indicateur '$_____INiveaux' qui permet de definir une #
$Z # image dont les niveaux aux points {X,Y} (qui seront generes ci-apres dans les listes #
$Z # {$xTV/COORDONNEES$COORD_X,$xTV/COORDONNEES$COORD_Y}) vont permettre de generer la liste #
$Z # '$xTV/NIVEAUX_XY' qui pourra etre exploitee de differentes facons par la suite (voir par #
$Z # exemple 'v _____xivPdf_09_2/.REFL.L.11.2.$U NIVEAUX_XY'). #
$Z $DELETE $xTV/NIVEAUX_XY
$Z $xci/and$X \
$Z A1=$xTV/BOITE.B \
$Z A2=$xTV/MASQUE \
$Z $formatI | \
$Z $xci/and$X \
$Z A2=$_____INiveaux \
$Z $formatI | \
$Z $xci/liste_points$X \
$Z lignes=$_____Lignes \
$Z eX=FAUX \
$Z eY=FAUX \
$Z eNIVEAU=VRAI \
$Z Ndenormaliser=FAUX \
$Z points=FAUX \
$Z CAL1=FAUX \
$Z $formatI \
$Z | $SE -e "s/^.*=//" \
$Z > $xTV/NIVEAUX_XY
$Z else
$Z endif
$Z $DELETE $xTV/MASQUE
$Z set Parametres="lignes=$_____Lignes Cdenormaliser=VRAI eNIVEAU=FAUX points=FAUX"
$Z set Ncolonnes=`$xci/liste_points$X A=$xTV/BOITE.B $Parametres eX=VRAI eY=FAUX $formatI | $SOR -u | $WCl`
$Z @ Ncolonnes = $Ncolonnes - 1
$Z set Nlignes=`$xci/liste_points$X A=$xTV/BOITE.B $Parametres eX=FAUX eY=VRAI $formatI | $SOR -u | $WCl`
$Z @ Nlignes = $Nlignes - 1
$Z SformatI
$Z XYmaxNe $Ncolonnes $Nlignes
$Z $xci/init$X \
$Z niveau=$BLANC \
$Z R=$xTV/IMAGE.1 \
$Z CAL1=FAUX \
$Z $formatI
$Z $DELETE $xTV/INDEX.l
$Z $DELETE $xTV/INDEX.c
$Z $xci/liste_points$X \
$Z A=$xTV/IMAGE.1 \
$Z lignes=VRAI \
$Z Cdenormaliser=VRAI \
$Z eNIVEAU=FAUX \
$Z sequentiel=VRAI \
$Z points=FAUX \
$Z CAL1=FAUX \
$Z $formatI \
$Z | $SE -e "s/^.*=//" \
$Z > $xTV/INDEX.l
$Z $xci/liste_points$X \
$Z A=$xTV/IMAGE.1 \
$Z lignes=FAUX \
$Z Cdenormaliser=VRAI \
$Z eNIVEAU=FAUX \
$Z sequentiel=VRAI \
$Z points=FAUX \
$Z CAL1=FAUX \
$Z $formatI \
$Z | $SE -e "s/^.*=//" \
$Z > $xTV/INDEX.c
$Z $DELETE $xTV/IMAGE.1
$Z RformatI
$Z $DELETE $xTV/BOITE.6
$Z $DELETE $xTV/BOITE.A
$Z $DELETE $xTV/BOITE.B
#20220620134815____:$Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
#20220620134815____:$Z #
#20220620134815____:$Z $CA $xTV/COORDONNEES \ #
#20220620134815____:$Z | $GRE "^[Xx]=" \ #
#20220620134815____:$Z | $SE -e "s/^[Xx]=//" \ #
#20220620134815____:$Z > $xTV/COORDONNEES_01$COORD_X #
#20220620134815____:$Z $CA $xTV/COORDONNEES \ #
#20220620134815____:$Z | $GRE "^[Yy]=" \ #
#20220620134815____:$Z | $SE -e "s/^[Yy]=//" \ #
#20220620134815____:$Z > $xTV/COORDONNEES_01$COORD_Y #
$Z $CA $xTV/COORDONNEES | \
$Z $GRE "^[Xx]=" | \
$Z $SE -e "s/^[Xx]=//" | \
$Z $HEA -$_____NMaximumParticules \
$Z > $xTV/COORDONNEES_01$COORD_X
$Z $CA $xTV/COORDONNEES | \
$Z $GRE "^[Yy]=" | \
$Z $SE -e "s/^[Yy]=//" | \
$Z $HEA -$_____NMaximumParticules \
$Z > $xTV/COORDONNEES_01$COORD_Y
$Z set PartN_X=`$CA $xTV/COORDONNEES_01$COORD_X | $WCl`
$Z set PartN_Y=`$CA $xTV/COORDONNEES_01$COORD_Y | $WCl`
$Z set PartN=`$xcg/MIN2.01$X x=$PartN_X y=$PartN_Y signe="$K_VIDE"`
$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
$Z $xrv/AXPB.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/COORDONNEES_01$COORD_X \
$Z homothetie=$EchelleX translation=$TranslationX \
$Z > $xTV/COORDONNEES$COORD_X
$Z $xrv/AXPB.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier=$xTV/COORDONNEES_01$COORD_Y \
$Z homothetie=$EchelleY translation=$TranslationY \
$Z > $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES
$Z $DELETE $xTV/COORDONNEES_01$COORD_X
$Z $DELETE $xTV/COORDONNEES_01$COORD_Y