#######################################################################################################################################
# #
# B I J E C T I O N E N T R E D E U X E N S E M B L E S : #
# #
# #
# Author of '$xiirv/.BIJE.31.4.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20200622124958). #
# #
#######################################################################################################################################
$Z $CA $Fpoints.E1$COORD_X \
$Z >>! $Fpoints.E1.E2$COORD_X
$Z $CA $Fpoints.E1$COORD_Y \
$Z >>! $Fpoints.E1.E2$COORD_Y
$Z $CA $Fpoints.E1$ROUGE \
$Z >>! $Fpoints.E1.E2$ROUGE
$Z $CA $Fpoints.E1$VERTE \
$Z >>! $Fpoints.E1.E2$VERTE
$Z $CA $Fpoints.E1$BLEUE \
$Z >>! $Fpoints.E1.E2$BLEUE
$Z $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$_____NPointsE1 \
$Z LISTE_X=$Fpoints.E1.E2$COORD_X \
$Z LISTE_Y=$Fpoints.E1.E2$COORD_Y \
$Z LISTE_Z=$_____CoordonneeZ \
$Z LISTE_RAYON=$_____RayonP \
$Z LISTE_ROUGE=$Fpoints.E1.E2$ROUGE \
$Z LISTE_VERTE=$Fpoints.E1.E2$VERTE \
$Z LISTE_BLEUE=$Fpoints.E1.E2$BLEUE \
$Z ZOOM=$_____ZoomB \
$Z isoles=VRAI \
$Z Lz=100 \
$Z editer_extrema_hors=FAUX \
$Z fond=VRAI F=$_____ImageR \
$Z $_____ParticuleParaB \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z source $xrd/graph.01$vv$Y
$Z G_Init
$Z G_Zoom 1
$Z G_K 0.010
$Z set index=1
$Z set CoOrDoNnEeS_X=`$CA $Fpoints.E2$COORD_X`
$Z set CoOrDoNnEeS_Y=`$CA $Fpoints.E2$COORD_Y`
$Z set EnTiErS=("I" "2" "3" "4" "5" "6" "7" "8" "9")
$Z # On notera le "I" qui remplace le "1" a cause de 'v $xrd/graph.G_L$vv$Y correctement' et #
$Z # du 'Test' figurant dans 'v $xiii/alphabet.0$FON FgL1_00'... #
$Z while ($index <= $_____NPointsE2)
$Z G_Cursor1 $CoOrDoNnEeS_X[$index] $CoOrDoNnEeS_Y[$index] $Origine_COORD_Z
$Z
$Z G_4
$Z G_4
$Z G_4
$Z # De facon a ce que les chiffres soient centres verticalement... #
$Z
$Z if ($index > 1) then
$Z G_3
$Z G_3
$Z # De facon a ce que les chiffres soient centres horizontalement (sauf le "I"="1" qui n'a #
$Z # pas d'epaisseur...). #
$Z else
$Z endif
$Z
$Z G_L $EnTiErS[$index]
$Z @ index = $index + 1
$Z end
$Z G_Genere $_____ImageR fond=VRAI F=$_____ImageR