#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   " M O N T A G N E   S P I A L E   D ' A R C H I M E D E "  :                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000007/face.2/.PAYT.1.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____mt                       4

$Z                  setParam            _____mr                       32

$Z                  SET       Premiere=1
$Z                  SET       Derniere=128

$Z                  Pal

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/FRACTAL.01                                                                               \
$Z                                                                                                                      $formatI

$c                  #include  <stdio.h>
$c
$c                  extern    double    atof();
$c                  extern    char      *getenv();
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Dephase0  0.0
$c                  #define   DephaseN  (2*3.141592653589793)
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    Dephase=((DephaseN*(n-N0))+(Dephase0*(N-n)))/(N-N0);
$c
$c                                      printf("$xci/spiArchimede$X
$c                                                                  mt=$_____mt
$c                                                                  mr=$_____mr
$c                                                                  d=%f
$c                                                                  standard=FAUX
$c                                                                                                $formatI  |
$c                                              $xci/normalise.01$X
$c                                                                  R=$xTV/SPIRALE.01
$c                                                                                                $formatI\n"
$c                                            ,Dephase
$c                                             );
$c
$c                                      printf("$xci/multi_02.01$X
$c                                                          A1=$xTV/FRACTAL.01
$c                                                          A2=$xTV/SPIRALE.01
$c                                                          standard=FAUX
$c                                                          R=$xTV/FRACTAL.02
$c                                                                                                $formatI\n"
$c                                             );
$c
$c                                      printf("$xci/montagne.01$X
$c                                                          A=$xTV/FRACTAL.02
$c                                                          standard=FAUX
$c                                                          zero=FAUX
$c                                                          T=$xTV/TEXTURE
$c                                                          avion=VRAI
$c                                                          R=$_____images.%04d
$c                                                                                                $formatI\n"
$c                                            ,n
$c                                             );
$c                                      }
$c                            }