#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   E T A T   I N I T I A L   F A I T   D ' U N E   C R O I X                                   #
#         D U   J E U   D E   L A   V I E   T R I D I M E N S I O N N E L  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.JWIE.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20120225225014).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Epaisseur                9
$Z                                      # Parametre introduit le 20120308182216...                                                    #

$Z                  SETParam            _____ParalleleCroix           VRAI
$Z                                      # Parametre introduit le 20120308203636...                                                    #

$Z                  setenv              Xcentre             `calcul $Xmin+($dimX/2)`
$Z                  setenv              Ycentre             `calcul $Ymin+($dimY/2)`

$Z                  FilSTmpB            FCrOiX

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   EPAIS     _____Epaisseur
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      if        ((n < ((N/2)-(EPAIS/2)) || n > ((N/2)+(EPAIS/2))))
$c                                                {
$c                                                printf("echo      %c$xci/S_point$X
$c                                                                              A=$NOIR
$c                                                                              X=$Xcentre
$c                                                                              Y=$Ycentre
$c                                                                                        $formatI                                |
$c                                                                              $xci/dilate.01$X
$c                                                                              points=%d
$c                                                                              R=$_____ImageTW.%04d
$c                                                                                        $formatI%c
$c                                                                                                  >> $FCrOiX\n"
$c                                                      ,'\''
$c                                                      ,(EPAIS*EPAIS)
$c                                                      ,n
$c                                                      ,'\''
$c                                                       );
$c                                                }
$c                                      else
$c                                                {
$c                                                printf("echo      %c$xci/croix.01$X
$c                                                                    A=$NOIR
$c                                                                    X=$Xcentre
$c                                                                    Y=$Ycentre
$c                                                                              $formatI                                          |
$c                                                        $xci/dilate.01$X
$c                                                                    points=%d
$c                                                                    R=$_____ImageTW.%04d
$c                                                                              $formatI%c
$c                                                                                                  >> $FCrOiX\n"
$c                                                      ,'\''
$c                                                      ,(EPAIS*EPAIS)
$c                                                      ,n
$c                                                      ,'\''
$c                                                       );
$c                                                }
$c                                      }
$c                            }

$Z                  if                  ($_____ParalleleCroix == VRAI) then
$Z                                      execPar_V           $FCrOiX
$Z                  else
$Z                                      execPar_F           $FCrOiX
$Z                  endif

$Z                  FilSTmpE            FCrOiX