#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N P L A N F R A C T A L #
# 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.31.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20041119094738). #
# #
#######################################################################################################################################
$Z setParam _____MailleX 0.50
$Z setParam _____MailleY 0.50
$Z setParam _____Hauteur 0.6
$Z setParam _____Zoom 1.0
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z # Parametre introduit le 20041125105612... #
$Z setParam _____RotationZ 0
$Z # Parametre introduit le 20041125105612... #
$Z setParam _____Arguments "$K_VIDE"
$Z # Parametre introduit le 20060130141028 pour permettre, par exemple, de generer les normales. #
#20150610101842____:$Z Pal #
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \
$Z amplificateur=2 translateur=-1 \
$Z Tx=0 Ty=0 \
$Z A=1 B=0 C=0 \
$Z R=$xTV/Fx \
$Z $formatI
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX \
$Z amplificateur=2 translateur=-1 \
$Z Tx=0 Ty=0 \
$Z A=0 B=1 C=0 \
$Z R=$xTV/Fy \
$Z $formatI
$Z $xci/fract_2D.01$X \
$Z standard=FAUX \
$Z OX=0 EX=1.0 mX=$_____MailleX \
$Z OY=0 EY=1.0 mY=$_____MailleY \
$Z $formatI | \
$Z $xci/normalise.01$X \
$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 set Parametres="$K_VIDE"
$Z set Parametres="$Parametres"" np=1"
$Z set Parametres="$Parametres"" brume=FAUX"
$Z set Parametres="$Parametres"" pu=0.025 pv=0.025"
$Z set Parametres="$Parametres"" eu=40 ev=40"
$Z set Parametres="$Parametres"" dpu=40 dpv=40"
$Z set Parametres="$Parametres"" dxFxuv=0 dxFzu=1"
$Z set Parametres="$Parametres"" dyFyuv=0 dyFzv=1"
$Z set Parametres="$Parametres"" ddu=0.001 ddv=0.001"
$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=0.012"
$Z set Parametres="$Parametres"" N_AU_CARRE=VRAI"
$Z set Parametres="$Parametres"" edc=VRAI"
$Z $xrs/project2D.11$X \
$Z aFx=1.0 Fx=$xTV/Fx \
$Z aFy=1.0 Fy=$xTV/Fy \
$Z aFz=$_____Hauteur Fz=$xTV/Fz \
$Z mu=0 Mu=1.0 \
$Z mv=0 Mv=1.0 \
$Z Fx_periodiser_u=FAUX Fy_periodiser_u=FAUX Fz_periodiser_u=VRAI \
$Z Fx_symetriser_u=FAUX Fy_symetriser_u=FAUX Fz_symetriser_u=FAUX \
$Z Fx_prolonger_u=VRAI Fy_prolonger_u=VRAI Fz_prolonger_u=FAUX \
$Z Fx_periodiser_v=FAUX Fy_periodiser_v=FAUX Fz_periodiser_v=VRAI \
$Z Fx_symetriser_v=FAUX Fy_symetriser_v=FAUX Fz_symetriser_v=FAUX \
$Z Fx_prolonger_v=VRAI Fy_prolonger_v=VRAI Fz_prolonger_v=FAUX \
$Z $Parametres \
$Z chiffres=0 \
$Z R=$_____imagesR \
$Z $_____Arguments \
$Z $formatI
$Z # Les champs {Fx,Fy} n'etant pas periodiques (contrairement a {Fz}) ne doivent pas etre #
$Z # "periodises" mais "prolonges". Dans le cas contraire, cela donne des artefacts (des points #
$Z # "incoherents") lies a des problemes d'interpolations aux bords des champs, lorsqu'il faut #
$Z # utiliser la periodicite supposee mais inexistante... #
$Z $DELETE $xTV/Fx
$Z $DELETE $xTV/Fy
$Z $DELETE $xTV/Fz