#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   L I S T E   D E   V O I S I N S                                                           #
#         T R I D I M E N S I O N N E L S   R E G U L I E R S   H O M O G E N E S  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARB.C1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20151024101943).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Format                   "Suq"
$Z                                      # Parametre introduit le 20150929103018...                                                    #

$Z        SETParam            _____PasX                     10
$Z                                      # La valeur par defaut a ete choisie de facon a ce que le nombre de points marques soit       #
$Z                                      # tres proche de ce que 'v $xiirv/.CARB.81.1.$U' donne par defaut (soit 163 points            #
$Z                                      # aleatoires contre 169 points reguliers avec le format 'Suq').                               #

$Z        SETParam            _____PasY                     10
$Z                                      # La valeur par defaut a ete choisie de facon a ce que le nombre de points marques soit       #
$Z                                      # tres proche de ce que 'v $xiirv/.CARB.81.1.$U' donne par defaut (soit 163 points            #
$Z                                      # aleatoires contre 169 points reguliers avec le format 'Suq').                               #

$Z        setParam            _____NiveauNoeuds             $BLANC
$Z                                      # Parametre introduit le 20150811093131...                                                    #

$Z                  SformatI
$Z                  eval                "$_____Format"

$c                  #define   N0        _____TriPremiere
$c                  #define   N         (_____TriPremiere+_____TriZmax-_____TriZmin)
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/init$X
$c                                                          niveau=$_____NiveauNoeuds
$c                                                          px=$_____PasX
$c                                                          py=$_____PasY
$c                                                          R=$_____ImageN.%04d
$c                                                                                                                      $formatI\n"
$c                                            ,n
$c                                             );
$c                                      }
$c
$c                            }

$Z                  RformatI