#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   E N   M O N T A G N E   ' $M '   D ' U N E   L I G N E   D E   C O T E                                            #
#         E N   F A U S S E S   C O U L E U R S  :                                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT2.12.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Npoints                  81

$Z                  setParam            _____Sy                       20

$Z                  setParam            _____Perspective              0.7

$Z                  setParam            _____Ty                       0.92

$Z                  set                 TrAnSlAtIoN=`$xci/coordonnees$X denormaliser=FAUX abscisse=FAUX ordonnee=VRAI Y=3 $formatI`

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$BLANC                                                                                   \
$Z                                      R=$xTV/BLANC                                                                                    \
$Z                                                                                                                      $formatI

$Z                  SET       Premiere=1
$Z                  SET       Derniere=128
$Z
$Z                  @         Nimages   = $Derniere - $Premiere
$Z                  @         Nimages   = $Nimages + 1

$Z                  Pal

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/complement$X
$c                                                             A=$_____imagesA.%04d
$c                                                                                                                      $formatI  |
$c                                              $xci/move$X
$c                                                             yR=$TrAnSlAtIoN
$c                                                             tvR=FAUX
$c                                                                                                                      $formatI  |
$c                                              $xci/convol.01$X
$c                                                             points=$_____Npoints
$c                                                                                                                      $formatI  |
$c                                              $xci/montagne.01$X
$c                                                             T=$xTV/BLANC
$c                                                             avion=FAUX
$c                                                             Sy=$_____Sy
$c                                                             perspective=$_____Perspective
$c                                                             Ty=$_____Ty
$c                                                             R=$_____images.%04d
$c                                                                         $formatI\n"
$c                                            ,n,n
$c                                             );
$c                                      }
$c                            }