#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N C Y L I N D R E F R A C T A L : #
# #
# #
# Author of '$xiirs/.PROL.61.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20150630085930). #
# #
#######################################################################################################################################
$Z setParam _____GraineX 1947
$Z setParam _____GraineY 1789
$Z setParam _____Iterations 4
$Z setParam _____FractalMailleX 0.50
$Z setParam _____FractalMailleY 0.50
$Z setParam _____Origine -0.1
$Z setParam _____Extremite +0.1
$Z setParam _____Parametres "$K_VIDE"
$Z setParam _____Rayon 0.2
$Z setParam _____Zoom 0.75
$Z setParam _____RotationX 1.0
$Z setParam _____TranslationY -0.05
$Z $xci/fract_2D.01$X \
$Z standard=FAUX \
$Z graine=$_____GraineX \
$Z iterations=$_____Iterations \
$Z OX=0 EX=1.0 mX=$_____FractalMailleX \
$Z OY=0 EY=1.0 mY=$_____FractalMailleY \
$Z renormaliser=VRAI origine=$_____Origine extremite=$_____Extremite \
$Z R=$xTV/FRACTAL$COORD_X \
$Z $formatI
$Z $xci/fract_2D.01$X \
$Z standard=FAUX \
$Z graine=$_____GraineY \
$Z iterations=$_____Iterations \
$Z OX=0 EX=1.0 mX=$_____FractalMailleX \
$Z OY=0 EY=1.0 mY=$_____FractalMailleY \
$Z renormaliser=VRAI origine=$_____Origine extremite=$_____Extremite \
$Z R=$xTV/FRACTAL$COORD_Y \
$Z $formatI
$Z $xci/init$X \
$Z standard=FAUX \
$Z valeur=0 \
$Z R=$xTV/FRACTAL$COORD_Z \
$Z $formatI
$Z # Calcul des champs fractals en {X,Y}. #
$Z $xrs/project2D.01$Z \
$Z $xrs/cylindre.11$X \
$Z $xTV/CYLINDRE \
$Z "PARAMETRE_R=$_____Rayon" \
$Z $COORD_X $COORD_Y $COORD_Z \
$Z FAUX \
$Z $NEXIST
$Z # Projection du cylindre. #
$Z $xci/somme_02$X \
$Z A1=$xTV/FRACTAL$COORD_X \
$Z A2=$xTV/CYLINDRE$COORD_X \
$Z standard=FAUX \
$Z R=$xTV/PROJECTION$COORD_X \
$Z $formatI
$Z $xci/somme_02$X \
$Z A1=$xTV/FRACTAL$COORD_Y \
$Z A2=$xTV/CYLINDRE$COORD_Y \
$Z standard=FAUX \
$Z R=$xTV/PROJECTION$COORD_Y \
$Z $formatI
$Z $xci/somme_02$X \
$Z A1=$xTV/FRACTAL$COORD_Z \
$Z A2=$xTV/CYLINDRE$COORD_Z \
$Z standard=FAUX \
$Z R=$xTV/PROJECTION$COORD_Z \
$Z $formatI
$Z set PaRaMeTrEs="$_____Parametres"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" eu=40"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ev=40"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ZOOM=$_____Zoom"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ROTATION_OX=$_____RotationX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" TRANSLATION_OY=$_____TranslationY"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" N_AU_CARRE=FAUX"
$Z $xrs/project2D.02$Z \
$Z $xTV/PROJECTION \
$Z $_____imagesR \
$Z "$PaRaMeTrEs"
$Z $xci/acces$X \
$Z A=$xTV/FRACTAL$COORD_X \
$Z standard=FAUX zero=FAUX \
$Z R=$_____imagesR.frac$COORD_X \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xTV/FRACTAL$COORD_Y \
$Z standard=FAUX zero=FAUX \
$Z R=$_____imagesR.frac$COORD_Y \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xTV/PROJECTION$COORD_X \
$Z standard=FAUX zero=FAUX \
$Z R=$_____imagesR$COORD_X \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xTV/PROJECTION$COORD_Y \
$Z standard=FAUX zero=FAUX \
$Z R=$_____imagesR$COORD_Y \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xTV/PROJECTION$COORD_Z \
$Z standard=FAUX zero=FAUX \
$Z R=$_____imagesR$COORD_Z \
$Z $formatI