#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E S U R F A C E F R A C T A L 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 : #
# #
# #
# Author of '$xiirs/.PROJ.82.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20050911084613). #
# #
#######################################################################################################################################
$Z setParam _____Niveau 4
$Z setParam _____MailleX 0.25
$Z setParam _____MailleY 0.25
$Z setParam _____MailleZ 0.25
$Z setParam _____Gauss 10
$Z setParam _____Amplitude 0.4
$Z setParam _____Ppu 0.02
$Z setParam _____Ppv 0.02
$Z setParam _____Peu 20
$Z setParam _____Pev 20
$Z setParam _____Pdpu 40
$Z setParam _____Pdpv 40
$Z setParam _____dxyzFxyz "$K_VIDE"
$Z setParam _____Zoom 0.8
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____Rayon 0.012
$Z setParam _____Periodiser_u VRAI
$Z setParam _____Symetriser_u FAUX
$Z setParam _____Prolonger_u FAUX
$Z setParam _____Periodiser_v VRAI
$Z setParam _____Symetriser_v FAUX
$Z setParam _____Prolonger_v FAUX
#20150610102552____:$Z Pal #
$Z $xrs/project2D.01$Z \
$Z $_____Surface \
$Z $xTV/BKLN.11
$Z # Projection de la surface argument... #
$Z $xci/gauss$X \
$Z standard=FAUX \
$Z c=$_____Gauss \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$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=$_____Ppu pv=$_____Ppv"
$Z set Parametres="$Parametres"" eu=$_____Peu ev=$_____Pev"
$Z set Parametres="$Parametres"" dpu=$_____Pdpu dpv=$_____Pdpv"
$Z set Parametres="$Parametres"" Fx_per_u=$_____Periodiser_u Fy_per_u=$_____Periodiser_u Fz_per_u=$_____Periodiser_u"
$Z set Parametres="$Parametres"" Fx_sym_u=$_____Symetriser_u Fy_sym_u=$_____Symetriser_u Fz_sym_u=$_____Symetriser_u"
$Z set Parametres="$Parametres"" Fx_pro_u=$_____Prolonger_u Fy_pro_u=$_____Prolonger_u Fz_pro_u=$_____Prolonger_u"
$Z set Parametres="$Parametres"" Fx_per_v=$_____Periodiser_v Fy_per_v=$_____Periodiser_v Fz_per_v=$_____Periodiser_v"
$Z set Parametres="$Parametres"" Fx_sym_v=$_____Symetriser_v Fy_sym_v=$_____Symetriser_v Fz_sym_v=$_____Symetriser_v"
$Z set Parametres="$Parametres"" Fx_pro_v=$_____Prolonger_v Fy_pro_v=$_____Prolonger_v Fz_pro_v=$_____Prolonger_v"
$Z set Parametres="$Parametres"" bilineaire=VRAI"
$Z set Parametres="$Parametres"" $_____dxyzFxyz"
$Z set Parametres="$Parametres"" ddu=0.01 ddv=0.01"
$Z set Parametres="$Parametres"" ZOOM=$_____Zoom"
$Z set Parametres="$Parametres"" ROTATION_OX=$_____RotationX"
$Z set Parametres="$Parametres"" ROTATION_OY=$_____RotationY"
$Z set Parametres="$Parametres"" ROTATION_OZ=$_____RotationZ"
$Z set Parametres="$Parametres"" Lz=100"
$Z set Parametres="$Parametres"" rayon_de_visualisation=$_____Rayon"
$Z set Parametres="$Parametres"" N_AU_CARRE=VRAI"
$Z set Parametres="$Parametres"" edc=VRAI"
$Z SET Premiere=1
$Z SET Derniere=64
#20150610102552____:$Z Pal #
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define OZ 0.0
$c #define EZ 1.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0);
$c
$c printf("$xci/fract_3D.01$X
$c graine=1111
$c standard=FAUX
$c OX=0 EX=1.0 mX=$_____MailleX
$c OY=0 EY=1.0 mY=$_____MailleY
$c OZ=0 EZ=1.0 mZ=$_____MailleZ
$c Z=%.16f
$c niveau=$_____Niveau
$c $formatI |
$c $xci/normalise.01$X
$c R=$xTV/FRACTAL.1$COORD_X.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation de trois champs fractals {X,Y,Z} periodiques... */
$c printf("$xci/fract_3D.01$X
$c graine=3333
$c standard=FAUX
$c OX=0 EX=1.0 mX=$_____MailleX
$c OY=0 EY=1.0 mY=$_____MailleY
$c OZ=0 EZ=1.0 mZ=$_____MailleZ
$c Z=%.16f
$c niveau=$_____Niveau
$c $formatI |
$c $xci/normalise.01$X
$c R=$xTV/FRACTAL.1$COORD_Y.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation de trois champs fractals {X,Y,Z} periodiques... */
$c printf("$xci/fract_3D.01$X
$c graine=5555
$c standard=FAUX
$c OX=0 EX=1.0 mX=$_____MailleX
$c OY=0 EY=1.0 mY=$_____MailleY
$c OZ=0 EZ=1.0 mZ=$_____MailleZ
$c Z=%.16f
$c niveau=$_____Niveau
$c $formatI |
$c $xci/normalise.01$X
$c R=$xTV/FRACTAL.1$COORD_Z.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation de trois champs fractals {X,Y,Z} periodiques... */
$c printf("eval `$xci/genere$X
$c commande='($xci/multi_02.01$X
$c standard=FAUX
$c A1=$xTV/GAUSS
$c A2=$xTV/FRACTAL.1%%s.%04d
$c $formatI |
$c $xci/normalise.01$X
$c origine=-$_____Amplitude extremite=+$_____Amplitude
$c R=$xTV/FRACTAL.2%%s.%04d
$c $formatI)'
$c en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`\n"
$c ,n,n
$c );
$c printf("eval `$xci/genere$X
$c commande='($xci/somme_02$X
$c standard=FAUX
$c A1=$xTV/BKLN.11%%s
$c A2=$xTV/FRACTAL.2%%s.%04d
$c $formatI |
$c $xci/normalise.01$X
$c origine=-1 extremite=1
$c R=$xTV/FRACTAL.3%%s.%04d
$c $formatI)'
$c en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`\n"
$c ,n,n
$c );
$c /* Perturbation "fractale" de la surface argument... */
$c printf("$xci/neutre$X
$c A=$xTV/FRACTAL.3$COORD_X.%04d
$c standard=FAUX
$c R=$xTV/Fx
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/FRACTAL.3$COORD_Y.%04d
$c standard=FAUX
$c R=$xTV/Fy
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/FRACTAL.3$COORD_Z.%04d
$c standard=FAUX
$c R=$xTV/Fz
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/Fx
$c standard=FAUX
$c zero=FAUX
$c R=$_____imagesR1$COORD_X.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/Fy
$c standard=FAUX
$c zero=FAUX
$c R=$_____imagesR1$COORD_Y.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/Fz
$c standard=FAUX
$c zero=FAUX
$c R=$_____imagesR1$COORD_Z.%04d
$c $formatI\n"
$c ,n
$c );
$c printf("$xrs/project2D.11$X
$c aFx=1.0 Fx=$xTV/Fx
$c aFy=1.0 Fy=$xTV/Fy
$c aFz=1.0 Fz=$xTV/Fz
$c $Parametres
$c R=$_____imagesR2.%04d
$c chiffres=0
$c $formatI\n"
$c ,n
$c );
$c }
$c }