#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D ' U N   S I M P L E   C A R R E  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARE.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160601160503).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Rayon                    0.02

$Z                  setParam            _____DistanceMini             0.010

$Z                  set       Coordonnee_XA=0
$Z                  set       Coordonnee_XB=1
$Z                  set       Coordonnee_XC=1
$Z                  set       Coordonnee_XD=0

$Z                  set       Coordonnee_YA=0
$Z                  set       Coordonnee_YB=0
$Z                  set       Coordonnee_YC=1
$Z                  set       Coordonnee_YD=1

$Z                  set       CoOrDoNnEe_Z=0.5

$Z                  set       LiM="@"

$Z                  FileTmpB  FCaRrE

$Z                  echo                "$Coordonnee_XA$LiM$Coordonnee_XB$LiM$Coordonnee_XC$LiM$Coordonnee_XD$LiM$Coordonnee_XA"  |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $FCaRrE$COORD_X

$Z                  echo                "$Coordonnee_YA$LiM$Coordonnee_YB$LiM$Coordonnee_YC$LiM$Coordonnee_YD$LiM$Coordonnee_YA"  |     \
$Z                  $R                  "$LiM" "$K_NL"                                                                                  \
$Z                                                                                                  >  $FCaRrE$COORD_Y

$Z                  set                 NPoInTsX=`$CA $FCaRrE$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $FCaRrE$COORD_Y | $WCl`
$Z                  set                 NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$NPoInTs                                                                             \
$Z                                      LISTE_X=$FCaRrE$COORD_X                                                                         \
$Z                                      LISTE_Y=$FCaRrE$COORD_Y                                                                         \
$Z                                      LISTE_Z=$CoOrDoNnEe_Z                                                                           \
$Z                                      LISTE_RAYON=$_____Rayon                                                                         \
$Z                                      LISTE_ROUGE=$GRIS_8                                                                             \
$Z                                      LISTE_VERTE=$GRIS_0                                                                             \
$Z                                      LISTE_BLEUE=$GRIS_0                                                                             \
$Z                                      ZOOM=1                                                                                          \
$Z                                      isoles=FAUX chainer=VRAI                                                                        \
$Z                                      ajuster_points=VRAI                                                                             \
$Z                                      equidistance=VRAI                                                                               \
$Z                                      distance_minimale=$_____DistanceMini                                                            \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImagesR                                                                                 \
$Z                                                                                                                      $formatI
$Z                                      # Trace du carre ABCD ([0,1]x[0,1]) dans le plan de coordonnee 'Z' (=0.5) et avec un          #
$Z                                      # rapport de zoom (=1) tels que ce carre corresponde au "contour" de l'image courante...      #

$Z                  FileTmpE  FCaRrE