#######################################################################################################################################
# #
# E V O L U T I O N A U C O U R S D U T E M P S D ' U N A U T O M A T E C E L L U L A I R E #
# B I D I M E N S I O N N E L B I N A I R E E L E M E N T A I R E : #
# #
# #
# Author of '$xivP/disk.000000006/face.2/.AC2B.1.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____EdAutoCellB $NEXIST
$Z # Ce parametre a ete introduit le 20030123082520, apres le passge de {N,B} a {B,W}... #
$Z SET Premiere=1
$Z SET Derniere=256
$Z Pal
$Z source $xci/AutoC_NDB$vv$Y
$Z if ($?_____AutoCellB == $NEXIST) then
$Z set _____AutoCellB="$K_VIDE"
$Z set _____AutoCellB="$_____AutoCellB"" $pN$pN$pN$pN$pN$pN$pN$pN$pN$pS$pN"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pN$pN$pN$pN$pN$pN$pN$pN$pS$pB"
$Z
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pN$pN$pN$pN$pN$pN$pN$pS$pB"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pN$pN$pN$pN$pN$pN$pS$pB"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pN$pN$pN$pN$pN$pS$pB"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pB$pN$pN$pN$pN$pS$pB"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pB$pB$pN$pN$pN$pS$pN"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pB$pB$pB$pN$pN$pS$pN"
$Z
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pB$pB$pB$pB$pN$pS$pN"
$Z set _____AutoCellB="$_____AutoCellB"" $pB$pB$pB$pB$pB$pB$pB$pB$pB$pS$pB"
$Z else
$Z endif
$Z $xci/AutoC_2DB.01$Z \
$Z $xTV/AUTOMATE \
$Z "$_____AutoCellB" \
$Z $_____EdAutoCellB
$Z @ _____TranslationX = $Xmax / 2
$Z @ AbScIsSe = $Xmax - $_____TranslationX
$Z @ _____TranslationY = $Ymax / 2
$Z @ OrDoNnEe = $Ymax - $_____TranslationY
$Z SET Premiere=1
$Z set PrEmIeRe=`$xci/nombres$X A=$_____imagesR. premiere=$Premiere derniere=$Premiere`
$Z $xci/init$X \
$Z niveau=$NOIR \
$Z $formatI | \
$Z $xci/S_point$X \
$Z X=$AbScIsSe \
$Z Y=$OrDoNnEe \
$Z niveau=$BLANC \
$Z R=$PrEmIeRe \
$Z $formatI
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=(N0+1) ; n<=N ; n++)
$c {
$c printf("$xci/AutoC_2DQ.01$X
$c A=$_____imagesR.%04d
$c automate=$xTV/AUTOMATE
$c regles=10
$c longueur=9
$c iterations=1
$c nombre_de_points=VRAI
$c R=$_____imagesR.%04d
$c $formatI\n"
$c ,n-1
$c ,n
$c );
$c }
$c }