#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   L A   P A L E T T E   ' random.C1 '  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xigP/random.C1$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220912115518).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  Param1="p=$NOIR d=$BLANC"
set  Param2="verifier_distance=VRAI distance_minimale=60 forcer=VRAI Fnumero=`calcul $NOIR+1` Fvaleur=$BLANC"
                                        # Le forcage de '$BLANC' au niveau '$NOIR+1' est du a 'v $xiirv/.NFRI.11.1.$U _____Palette',  #
                                        # le niveau '$NOIR+1' (=1) correspondant au numero du premier (=1) nombre premier (=2)...     #
set  Param3="CAL1=FAUX  entiers=VRAI signe="$K_VIDE""

set  numeros   = (`$xci/valeurs_inte$X  $Param1   vD=$NOIR_PLANCHER vA=$COULEURS cubique=FAUX       $Param3`)
set  niveaux   = (`$xci/valeurs_inte$X  $Param1   vD=$NOIR          vA=$BLANC    cubique=FAUX       $Param3`)
set  fonction  = (`repeat $COULEURS echo "N "`)
set  rouge     = (`$xci/valeurs_alea$X  $Param1   $Param2 graine=178931 inf=$GRIS_1 sup=$GRIS_8     $Param3`)
set  verte     = (`$xci/valeurs_alea$X  $Param1   $Param2 graine=194751 inf=$GRIS_1 sup=$GRIS_8     $Param3`)
set  bleue     = (`$xci/valeurs_alea$X  $Param1   $Param2 graine=200171 inf=$GRIS_1 sup=$GRIS_8     $Param3`)

source    $xigP/.INTERPOLE$Y