#######################################################################################################################################
# #
# G E N E R A T I O N D U R E L I E F #
# D E M O N U M E N T V A L L E Y A U L E V E R D U S O L E I L : #
# #
# #
# Author of '$xiirf/.PAYU.N1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20150427101029). #
# #
#######################################################################################################################################
$Z if ($?_____ImageN == $NEXIST) then
$Z set _____ImageN=$xiff/NUAG.1
$Z SET Premiere=1
$Z SET Derniere=128
$Z else
$Z endif
$Z setParam _____MGraine 3140
$Z setParam _____Deformation $xiP/gris.55
$Z setParam _____Passes 256
$Z setParam _____PNuages1 $xiP/enfer.04
$Z setParam _____PNuages2 $xiP/nuages.02
$Z # Parametres introduits le 20250129103016... #
$Z setParam _____PMontagnes $xiP/MonValley.22
$Z setParam _____Mx1 0.2564102564102564
$Z setParam _____My1 0.3478260869565217
$Z setParam _____Mx2 0.05128205128205128
$Z setParam _____My2 0.06956521739130433
$Z setParam _____Renormaliser `GetParam $xci/multi_02.01$X renormaliser`
$Z # Parametre introduit le 20250129104331... #
$Z setParam _____Ty 0.95
$Z setParam _____Perspective 4.0
$Z setParam _____Echelle 0.2
$Z setParam _____Modulation 0.2
$Z setParam _____DepthCueing 0.1
$Z setParam _____ADepthCueing -1
$Z setParam _____BDepthCueing `calcul $BLANC-1`
$Z setParam _____Seuil 16
$Z FilSTmpB FFrAcTaL
$Z echo "$xci/fract_2D.01$X \
$Z graine=$_____MGraine \
$Z mx=$_____Mx1 \
$Z my=$_____My1 \
$Z valider_coordonnees_barycentriques=FAUX \
$Z message_bouclage_calcul_noeud=FAUX \
$Z standard=FAUX \
$Z R=$xTV/FRACTAL.01.1 \
$Z $formatI" \
$Z >> $FFrAcTaL
$Z echo "$xci/fract_2D.01$X \
$Z graine=$_____MGraine \
$Z mx=$_____Mx2 \
$Z my=$_____My2 \
$Z valider_coordonnees_barycentriques=FAUX \
$Z message_bouclage_calcul_noeud=FAUX \
$Z standard=FAUX \
$Z R=$xTV/FRACTAL.01.2 \
$Z $formatI" \
$Z >> $FFrAcTaL
$Z $xcg/ExecParallele.01$Z $FFrAcTaL \
$Z >& $nul
$Z FilSTmpE FFrAcTaL
$Z $xci/vraies_C$X \
$Z A=$BLANC \
$Z p=$_____PMontagnes \
$Z R=$xTV/TEXTURE \
$Z $formatI
$Z $xci/multi_02.01$X \
$Z A1=$xTV/FRACTAL.01.1 \
$Z A2=$xTV/FRACTAL.01.2 \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/substitue$X \
$Z standard=FAUX \
$Z p=$_____Deformation \
$Z lissage=VRAI \
$Z passes=$_____Passes \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL.03 \
$Z $formatI
$Z $xci/lineaire$X \
$Z A=0 B=1 C=0 \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z $formatI | \
$Z $xci/complement$X \
$Z R=$xTV/ATTENUATION \
$Z $formatI
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c int n0=N0+0;
$c int n1=N0+((1*N)/3);
$c int n2=N0+((2*N)/3);
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/vraies_C$X
$c A=$_____ImageN.%04d
$c p=$_____PNuages1
$c RVB=VRAI
$c R=$xTV/NUAGES.0
$c $formatI\n"
$c ,n0
$c );
$c printf("$xci/vraies_C$X
$c A=$_____ImageN.%04d
$c p=$_____PNuages2
$c RVB=VRAI
$c R=$xTV/NUAGES.1
$c $formatI\n"
$c ,n1
$c );
$c printf("execRVB %c$xci/interpole.02$X
$c A1=$xTV/NUAGES.0%%s
$c A2=$xTV/NUAGES.1%%s
$c P=$_____ImageN.%04d
$c R=$xTV/CIEL.02%%s
$c $formatI%c\n"
$c ,'"'
$c ,n2
$c ,'"'
$c );
$c n0 = n0 + 1;
$c if (n0 > N)
$c {
$c n0 = n0 - N;
$c }
$c else
$c {
$c }
$c n1 = n1 + 1;
$c if (n1 > N)
$c {
$c n1 = n1 - N;
$c }
$c else
$c {
$c }
$c n2 = n2 + 1;
$c if (n2 > N)
$c {
$c n2 = n2 - N;
$c }
$c else
$c {
$c }
$c printf("execRVB %c$xci/acces$X
$c A=$xTV/CIEL.02%%s
$c $formatI |
$c $xci/multi_02.01$X
$c A1=$xTV/ATTENUATION
$c renormaliser=$_____Renormaliser
$c R=$xTV/CIEL.02%%s
$c $formatI%c\n"
$c ,'"'
$c ,'"'
$c );
$c printf("execRVB %c$xci/montagne.01$X
$c A=$xTV/FRACTAL.03
$c standard=FAUX
$c zero=FAUX
$c T=$xTV/TEXTURE%%s
$c avion=FAUX
$c Ty=$_____Ty
$c perspective=$_____Perspective
$c echelle=$_____Echelle
$c depthN=$_____Modulation
$c depth_cueing=VRAI
$c min_depth_cueing=$_____DepthCueing
$c Adepth_cueing=$_____ADepthCueing
$c Bdepth_cueing=$_____BDepthCueing
$c ombres=FAUX
$c fond=VRAI
$c F=$xTV/CIEL.02%%s
$c $formatI |
$c $xci/convol.05$X
$c seuil=$_____Seuil
$c n3=0 n4=0 n5=0
$c n7=0 n8=0 n9=0
$c R=$_____ImageR.%04d%%s
$c $formatI%c\n"
$c ,'"'
$c ,n
$c ,'"'
$c );
$c }
$c }