#######################################################################################################################################
#                                                                                                                                     #
#         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.4.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081125182227).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$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                                                                  X4Y1=1
$c                                                                  X1Y1=1
$c                                                                  matrice=VRAI
$c                                                                  a11=%f a12=%f
$c                                                                  a21=%f a22=%f
$c                                                                  standard=FAUX
$c                                                                                                  $formatI                      |
$c                                              $xci/acces$X
$c                                                                  standard=FAUX zero=FAUX
$c                                                                  R=$_____FAutoCellB.%04d
$c                                                                                                  $formatI\n"
$c                                            ,+cos(theta),-sin(theta)
$c                                            ,+sin(theta),-cos(theta)
$c                                            ,n
$c                                             );
$c                                      /* Generation de l'automate cellulaire "pseudo-rotatif"...                                   */
$c                                      /*                                                                                           */
$c                                      /* ATTENTION : "pseudo" car, en effet, il ne s'agit pas d'une matrice de rotation puisqu'il  */
$c                                      /* y a un '-cos(theta)', alors qu'il faut en fait deux '+cos(theta)'s...                     */
$c                                      }
$c                            }

$Z                  RformatI