####################################################################################################################################### # # # G E N E R A T I O N D E T O U S L E S A U T O M A T E S C E L L U L A I R E S # # M O N O D I M E N S I O N N E L S B I N A I R E S E L E M E N T A I R E S : # # # # # # Author of '$xiird/.AC1B.3.11.$U' : # # # # Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). # # # ####################################################################################################################################### $Z setParam _____Seuil 0.5 $Z # Ce parametre a ete introduit le 20081118161303 au cas ou une generation aleatoire des # $Z # conditions initiales (via 'v $xci/random.02$K') etait demandee... # $Z setParam _____FAutoCellB $xTV/AUTOMC.1B $Z setParam _____EdAutoCellB $NEXIST $Z # Ce parametre a ete introduit le 20030123082020, apres le passage de {N,B} a {B,W}... # $Z setParam _____Bord $BLANC $Z setParam _____CKadre $GRIS_4 $Z setParam _____EKadre 1 $Z SET Premiere=0 $Z SET Derniere=255 $Z set Nhorizontale=`calcul sqrt($Derniere-$Premiere+1)` $Z set Nhorizontale=`echo $Nhorizontale | $SE -e "s/^[+-]//"` $Z set Nverticale=$Nhorizontale $Z Suh $Z @ _____TranslationX = $Xmax / 2 $Z @ AbScIsSe = $Xmax - $_____TranslationX $Z # Ce parametre n'a d'interet que dans le cas ou une generation avec un seul point centre # $Z # des conditions initiales (via 'v $xci/S_point$K') etait demandee... #