#######################################################################################################################################
#                                                                                                                                     #
#         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   A L E A T O I R E S   H O M O G E N E S  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARB.81.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150810132611).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

$Z        SETParam            _____RGraine                  1947

$Z        SETParam            _____RSeuil                   0.010

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

$Z                  SformatI
#20150929103018____:$Z                  Suq                                                                                           #
$Z                  eval                "$_____Format"

$c                  #define   N0        _____TriPremiere
$c                  #define   N         (_____TriPremiere+_____TriZmax-_____TriZmin)
$c
$c                  #define   GRAINE    _____RGraine
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/random.02$X
$c                                                          graine=%d
$c                                                          seuil=$_____RSeuil
$c                                                          niveau_du_fond=$NOIR
$c                                                          niveau_de_marquage=$_____NiveauNoeuds
$c                                                          R=$_____ImageN.%04d
$c                                                                                                                      $formatI\n"
$c                                            ,((n-N0+1)*GRAINE)
$c                                            ,n
$c                                             );
$c                                      }
$c
$c                            }

$Z                  RformatI