#######################################################################################################################################
#                                                                                                                                     #
#         A N I M A T I O N   D ' U N E   S U R F A C E                                                                               #
#         P A R   L A   M E T H O D E   D E S   P R O J E C T O R S   B I M E N S I O N N E L S  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROJ.B1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20051017112506).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____2Ppu                     0.02

$Z                  setParam            _____2Ppv                     0.02

$Z                  setParam            _____2Peu                     20

$Z                  setParam            _____2Pev                     20

$Z                  setParam            _____2Pdpu                    40

$Z                  setParam            _____2Pdpv                    40

$Z                  setParam            _____2dxyzFxyz                "$K_VIDE"

$Z                  setParam            _____2Zoom                    0.8

$Z                  setParam            _____2RotationX               0

$Z                  setParam            _____2RotationY               0

$Z                  setParam            _____2RotationZ               0

$Z                  setParam            _____2Rayon                   0.012

$Z                  setParam            _____2Periodiser_u            VRAI

$Z                  setParam            _____2Symetriser_u            FAUX

$Z                  setParam            _____2Prolonger_u             FAUX

$Z                  setParam            _____2Periodiser_v            VRAI

$Z                  setParam            _____2Symetriser_v            FAUX

$Z                  setParam            _____2Prolonger_v             FAUX

#20150610102925____:$Z                  Pal                                                                                           #

$Z                  set  Parametres="$K_VIDE"
$Z                  set  Parametres="$Parametres"" np=1"
$Z                  set  Parametres="$Parametres"" brume=FAUX"
$Z                  set  Parametres="$Parametres"" mu=0 Mu=1.0"
$Z                  set  Parametres="$Parametres"" mv=0 Mv=1.0"
$Z                  set  Parametres="$Parametres"" pu=$_____2Ppu   pv=$_____2Ppv"
$Z                  set  Parametres="$Parametres"" eu=$_____2Peu   ev=$_____2Pev"
$Z                  set  Parametres="$Parametres"" dpu=$_____2Pdpu dpv=$_____2Pdpv"
$Z             set  Parametres="$Parametres"" Fx_per_u=$_____2Periodiser_u Fy_per_u=$_____2Periodiser_u Fz_per_u=$_____2Periodiser_u"
$Z             set  Parametres="$Parametres"" Fx_sym_u=$_____2Symetriser_u Fy_sym_u=$_____2Symetriser_u Fz_sym_u=$_____2Symetriser_u"
$Z             set  Parametres="$Parametres"" Fx_pro_u=$_____2Prolonger_u  Fy_pro_u=$_____2Prolonger_u  Fz_pro_u=$_____2Prolonger_u"
$Z             set  Parametres="$Parametres"" Fx_per_v=$_____2Periodiser_v Fy_per_v=$_____2Periodiser_v Fz_per_v=$_____2Periodiser_v"
$Z             set  Parametres="$Parametres"" Fx_sym_v=$_____2Symetriser_v Fy_sym_v=$_____2Symetriser_v Fz_sym_v=$_____2Symetriser_v"
$Z             set  Parametres="$Parametres"" Fx_pro_v=$_____2Prolonger_v  Fy_pro_v=$_____2Prolonger_v  Fz_pro_v=$_____2Prolonger_v"
$Z                  set  Parametres="$Parametres"" bilineaire=VRAI"
$Z                  set  Parametres="$Parametres"" $_____2dxyzFxyz"
$Z                  set  Parametres="$Parametres"" ddu=0.01 ddv=0.01"
$Z                  set  Parametres="$Parametres"" ZOOM=$_____2Zoom"
$Z                  set  Parametres="$Parametres"" ROTATION_OX=$_____2RotationX"
$Z                  set  Parametres="$Parametres"" ROTATION_OY=$_____2RotationY"
$Z                  set  Parametres="$Parametres"" ROTATION_OZ=$_____2RotationZ"
$Z                  set  Parametres="$Parametres"" Lz=100"
$Z                  set  Parametres="$Parametres"" rayon_de_visualisation=$_____2Rayon"
$Z                  set  Parametres="$Parametres"" N_AU_CARRE=VRAI"
$Z                  set  Parametres="$Parametres"" edc=VRAI"

$Z                  SET       Premiere=1
$Z                  SET       Derniere=16

#20150610102925____:$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/acces$X
$c                                                                  A=$_____2imagesA$COORD_X.%04d
$c                                                                  standard=FAUX
$c                                                                  zero=FAUX
$c                                                                  R=$_____2imagesR1$COORD_X.%04d
$c                                                                                                  $formatI\n"
$c                                            ,n,n
$c                                             );

$c                                      printf("$xci/acces$X
$c                                                                  A=$_____2imagesA$COORD_Y.%04d
$c                                                                  standard=FAUX
$c                                                                  zero=FAUX
$c                                                                  R=$_____2imagesR1$COORD_Y.%04d
$c                                                                                                  $formatI\n"
$c                                            ,n,n
$c                                             );

$c                                      printf("$xci/acces$X
$c                                                                  A=$_____2imagesA$COORD_Z.%04d
$c                                                                  standard=FAUX
$c                                                                  zero=FAUX
$c                                                                  R=$_____2imagesR1$COORD_Z.%04d
$c                                                                                                  $formatI\n"
$c                                            ,n,n
$c                                             );

$c                                      printf("$xrs/project2D.11$X
$c                                                                  aFx=1.0 Fx=$_____2imagesA$COORD_X.%04d
$c                                                                  aFy=1.0 Fy=$_____2imagesA$COORD_Y.%04d
$c                                                                  aFz=1.0 Fz=$_____2imagesA$COORD_Z.%04d
$c                                                                  $Parametres
$c                                                                  R=$_____2imagesR2.%04d
$c                                                                  chiffres=0
$c                                                                                                  $formatI\n"
$c                                            ,n,n,n,n
$c                                             );
$c                                      }
$c                            }



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.