#######################################################################################################################################
# #
# 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.81.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20050907161658). #
# #
#######################################################################################################################################
$Z setParam _____Niveau 6
$Z setParam _____MailleX 0.25
$Z setParam _____MailleY 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
$Z setParam _____Arguments "$K_VIDE"
$Z # Parametre introduit le 20060130141335 pour permettre, par exemple, de generer les normales. #
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20191016134516... #
#20150610102113____:$Z Pal #
$Z $xrs/project2D.01$Z \
$Z $_____Surface \
$Z $xTV/BKLN.11
$Z # Projection de la surface argument... #
$Z $xci/fract_2D.01$X \
$Z graine=1111 \
$Z standard=FAUX \
$Z OX=0 EX=1.0 mX=$_____MailleX \
$Z OY=0 EY=1.0 mY=$_____MailleY \
$Z niveau=$_____Niveau \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL.1$COORD_X \
$Z $formatI
$Z # Generation de trois champs fractals {X,Y,Z} periodiques... #
$Z $xci/fract_2D.01$X \
$Z graine=3333 \
$Z standard=FAUX \
$Z OX=0 EX=1.0 mX=$_____MailleX \
$Z OY=0 EY=1.0 mY=$_____MailleY \
$Z niveau=$_____Niveau \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL.1$COORD_Y \
$Z $formatI
$Z # Generation de trois champs fractals {X,Y,Z} periodiques... #
$Z $xci/fract_2D.01$X \
$Z graine=5555 \
$Z standard=FAUX \
$Z OX=0 EX=1.0 mX=$_____MailleX \
$Z OY=0 EY=1.0 mY=$_____MailleY \
$Z niveau=$_____Niveau \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL.1$COORD_Z \
$Z $formatI
$Z # Generation de trois champs fractals {X,Y,Z} periodiques... #
$Z $xci/gauss$X \
$Z standard=FAUX \
$Z c=$_____Gauss \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z eval `$xci/genere$X \\\
$Z commande='($xci/multi_02.01$X \\\
$Z standard=FAUX \\\
$Z A1=$xTV/GAUSS \\\
$Z A2=$xTV/FRACTAL.1%s \\\
$Z $formatI | \\\
$Z $xci/normalise.01$X \\\
$Z origine=-$_____Amplitude extremite=+$_____Amplitude \\\
$Z R=$xTV/FRACTAL.2%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`
$Z eval `$xci/genere$X \\\
$Z commande='($xci/somme_02$X \\\
$Z standard=FAUX \\\
$Z A1=$xTV/BKLN.11%s \\\
$Z A2=$xTV/FRACTAL.2%s \\\
$Z $formatI | \\\
$Z $xci/normalise.01$X \\\
$Z origine=-1 extremite=1 \\\
$Z R=$xTV/FRACTAL.3%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`
$Z # Perturbation "fractale" de la bouteille de Klein... #
$Z $xci/neutre$X \
$Z A=$xTV/FRACTAL.3$COORD_X \
$Z standard=FAUX \
$Z R=$xTV/Fx \
$Z $formatI
$Z $xci/neutre$X \
$Z A=$xTV/FRACTAL.3$COORD_Y \
$Z standard=FAUX \
$Z R=$xTV/Fy \
$Z $formatI
$Z $xci/neutre$X \
$Z A=$xTV/FRACTAL.3$COORD_Z \
$Z standard=FAUX \
$Z R=$xTV/Fz \
$Z $formatI
$Z if ($?_____imagesRFx == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fx \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFx \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____imagesRFy == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fy \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFy \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____imagesRFz == $EXIST) then
$Z $xci/acces$X \
$Z A=$xTV/Fz \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFz \
$Z $formatI
$Z else
$Z endif
$Z if ($?_____imagesRZ == $EXIST) then
$Z set Z_BuFfEr="Z-Buffer=VRAI imageZ=$_____imagesRZ mrz=VRAI"
$Z else
$Z set Z_BuFfEr="$K_VIDE"
$Z endif
$Z set Parametres="$K_VIDE"
$Z set Parametres="$Parametres"" np=1"
$Z set Parametres="$Parametres"" brume=FAUX"
$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"" $_____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 eval $xrs/project2D.11$X \
$Z aFx=1.0 Fx=$xTV/Fx \
$Z aFy=1.0 Fy=$xTV/Fy \
$Z aFz=1.0 Fz=$xTV/Fz \
$Z mu=0 Mu=1.0 \
$Z mv=0 Mv=1.0 \
$Z Fx_per_u=$_____Periodiser_u Fy_per_u=$_____Periodiser_u Fz_per_u=$_____Periodiser_u \
$Z Fx_sym_u=$_____Symetriser_u Fy_sym_u=$_____Symetriser_u Fz_sym_u=$_____Symetriser_u \
$Z Fx_pro_u=$_____Prolonger_u Fy_pro_u=$_____Prolonger_u Fz_pro_u=$_____Prolonger_u \
$Z Fx_per_v=$_____Periodiser_v Fy_per_v=$_____Periodiser_v Fz_per_v=$_____Periodiser_v \
$Z Fx_sym_v=$_____Symetriser_v Fy_sym_v=$_____Symetriser_v Fz_sym_v=$_____Symetriser_v \
$Z Fx_pro_v=$_____Prolonger_v Fy_pro_v=$_____Prolonger_v Fz_pro_v=$_____Prolonger_v \
$Z bilineaire=VRAI \
$Z $Parametres \
$Z $Z_BuFfEr \
$Z chiffres=0 \
$Z R=$_____imagesR \
$Z $_____Arguments \
$Z $formatI \
$Z $_____Redirection
$Z # Le 'eval' a ete introduit le 20191016134516 au cas ou il '$_____Redirection' est non vide. #
$Z $DELETE $xTV/Fx
$Z $DELETE $xTV/Fy
$Z $DELETE $xTV/Fz