#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   " P A U L   S E R U S I E R "  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SERU.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20190509144421).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____DistanceMini             0.005

$Z                  setParam            _____VRayon                   0.008

$Z                  setParam            _____Palette                  $xiP/GRIS_4

$Z                  setParam            _____Grossissement            1.0

$Z                  setParam            _____Zoom                     1.0

$Z                  setParam            _____ParticulePara1           "$K_VIDE"

$Z                  FilSTmpB            FiLePoInTs

$Z                  set                 DiMeNsIoN_X=`calcul ($dimX/$dimY)-0.05`
$Z                  set                 DiMeNsIoN_Y=1

$Z                  set                 NHorizontales=7
$Z                  set                 NVerticales__=13

$Z                  set                 NVerticales__s2=`calculINS $NVerticales__/2`

$Z                  set                 PHorizontal=`calcul $DiMeNsIoN_X/($NVerticales__-1)`
$Z                  set                 PVertical__=`calcul $DiMeNsIoN_Y/($NHorizontales-1)`

$Z                  set                 CoOrDoNnEe_X0=`calcul 0.5-($DiMeNsIoN_X/2)`
$Z                  set                 CoOrDoNnEe_Y0=0

$Z                  set                 CoOrDoNnEe_Y_=$CoOrDoNnEe_Y0

$Z                  set                 CoMpTeUr=1

$Z                  set                 CoOrDoNnEe_XG=$CoOrDoNnEe_X0
$Z                  set                 CoOrDoNnEe_XD=`calcul $CoOrDoNnEe_X0+$DiMeNsIoN_X`

$Z                  set                 CoOrDoNnEe_Y_=0

$Z                  while               ($CoMpTeUr < $NHorizontales)
$Z                                      # Generation des lignes horizontales :                                                        #
$Z                                      echo                "$CoOrDoNnEe_XG""\n""$CoOrDoNnEe_XD"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_X
$Z                                      echo                "$CoOrDoNnEe_Y_""\n""$CoOrDoNnEe_Y_"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_Y

$Z                                      set                 CoOrDoNnEe_Y_=`calcul $CoOrDoNnEe_Y_+$PVertical__`

$Z                                      echo                "$CoOrDoNnEe_XG""\n""$CoOrDoNnEe_XD"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_X
$Z                                      echo                "$CoOrDoNnEe_Y_""\n""$CoOrDoNnEe_Y_"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_Y

$Z                                      set                 CoOrDoNnEe_XG=`calcul $CoOrDoNnEe_XG+$PHorizontal`
$Z                                      set                 CoOrDoNnEe_XD=`calcul $CoOrDoNnEe_XD-$PHorizontal`

$Z                                      @                   CoMpTeUr = $CoMpTeUr + 1
$Z                  end

$Z                  set                 CoMpTeUr=1

$Z                  set                 CoOrDoNnEe_X_=$CoOrDoNnEe_X0

$Z                  set                 CoOrDoNnEe_YB=$CoOrDoNnEe_Y0
$Z                  set                 CoOrDoNnEe_YH=$PVertical__

$Z                  while               ($CoMpTeUr < $NVerticales__)
$Z                                      # Generation des lignes verticales :                                                          #
$Z                                      echo                "$CoOrDoNnEe_X_""\n""$CoOrDoNnEe_X_"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_X
$Z                                      echo                "$CoOrDoNnEe_YB""\n""$CoOrDoNnEe_YH"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_Y

$Z                                      set                 CoOrDoNnEe_X_=`calcul $CoOrDoNnEe_X_+$PHorizontal`

$Z                                      echo                "$CoOrDoNnEe_X_""\n""$CoOrDoNnEe_X_"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_X
$Z                                      echo                "$CoOrDoNnEe_YB""\n""$CoOrDoNnEe_YH"                                        \
$Z                                                                                                  >>! $FiLePoInTs$COORD_Y

$Z                                      if        ($CoMpTeUr < $NVerticales__s2) then
$Z                                                set       CoOrDoNnEe_YH=`calcul $CoOrDoNnEe_YH+$PVertical__`
$Z                                      else
$Z                                                if        ($CoMpTeUr > $NVerticales__s2) then
$Z                                                          set       CoOrDoNnEe_YH=`calcul $CoOrDoNnEe_YH-$PVertical__`
$Z                                                else
$Z                                                endif
$Z                                      endif

$Z                                      @                   CoMpTeUr = $CoMpTeUr + 1
$Z                  end

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

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                                  >>! $FiLePoInTs$NIVEAU

$Z                  $xrv/particule.10$X npoints=$NPoInTs                                                                                \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      LISTE_Z=0.5                                                                                     \
$Z                                      isoles=FAUX chainer=FAUX                                                                        \
$Z                                      ajuster_points=VRAI                                                                             \
$Z                                      equidistance=VRAI                                                                               \
$Z                                      distance_minimale=$_____DistanceMini                                                            \
$Z                                      Vrayon=$_____VRayon                                                                             \
$Z                                      LISTE_NIVEAU=$FiLePoInTs$NIVEAU                                                                 \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      grossissement=$_____Grossissement                                                               \
$Z                                      Lz=1000                                                                                         \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      editer_mauvais_encadrement_niveaux_interpoles=FAUX                                              \
$Z                                      $_____ParticulePara1                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                              $formatI

$Z                  FilSTmpE            FiLePoInTs