#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N A U T O M A T E C E L L U L A I R E M O N O D I M E N S I O N N E L #
# Q U A S I - C O N T I N U E T " R O T A T I F " : #
# #
# #
# Author of '$xiird/.AC1C.8.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081129150938). #
# #
#######################################################################################################################################
$Z SformatI
$Z XYmaxNe $NOIR $BLANC $NOIR $BLANC
$Z # Dimensionnement de l'album a generer en {X,Y}. #
$c #include <stdio.h>
$c
$c extern double cos();
$c extern double sin();
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define THETA0 0.0
$c #define THETAN 1.570796326794897
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double theta=((THETAN*(n-N0))+(THETA0*(N-n)))/(N-N0);
$c
$c printf("$xci/PolyCartes_2D$X
$c X0Y1=0
$c X1Y0=0
$c X3Y0=1
$c X0Y3=1
$c arithmetique_etendue_polynome_cartesienne=VRAI
$c pxADD2_ADD2=0 pxMAX2_ADD2=1
$c pxADD2_MUL2=1 pxMUL2_MUL2=0
$c matrice=VRAI
$c rotations=VRAI ROTATION_OZ=%f
$c FXYZfonctions_elementaires=VRAI FXpCOSX=1 FYpCOSX=1
$c standard=FAUX
$c $formatI |
$c $xci/acces$X
$c standard=FAUX zero=FAUX
$c R=$_____FAutoCellB.%04d
$c $formatI\n"
$c ,theta
$c ,n
$c );
$c /* Generation de l'automate cellulaire "rotatif"... */
$c }
$c }
$Z RformatI