#######################################################################################################################################
# #
# C A L C U L D E L A D E N S I T E D U T R I A N G L E D E S I E R P I N S K I #
# C O N S T R U I T A L ' A I D E D E " I T E R A T E D F U N C T I O N S E T " S : #
# #
# #
# Author of '$xiirk/.IFS3S.21.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20100507100126). #
# #
#######################################################################################################################################
$Z setParam _____SeuilGD 0.025
$Z setParam _____IncompletAZ FAUX
$Z # Parametre introduit le 20120322173445... #
$Z SET cPremiere=0
$Z SET cDerniere=127
$X neutre
$X # Introduit le 20150611183038 afin que {cPremiere,cDerniere} soient accessibles dans le '$c'. #
$Z setenv _____ImageTd $xTV/IFS3D.d
$Z setenv eHomothetieX $HomothetieX
$Z setenv eTranslationX $TranslationX
$Z setenv eHomothetieY $HomothetieY
$Z setenv eTranslationY $TranslationY
$Z setenv eHomothetieZ $HomothetieZ
$Z setenv eTranslationZ $TranslationZ
$Z FilSTmpB FIfS
$c #include <stdio.h>
$c #define N0 cPremiere
$c #define N cDerniere
$c #define Z0 0.0
$c #define ZN 1.0
$c int main()
$c {
$c int n;
$c for (n=N0 ; n<=N ; n++)
$c {
$c double Z = Z0 + (((ZN-Z0)*(n-N0))/(N-N0));
$c printf("echo %c$xrv/densite.01$X
$c ne=0
$c AXF=$eHomothetieX
$c BXF=$eTranslationX
$c LISTE_X=%c$xTV%c/SPHERES$COORD_X
$c AYF=$eHomothetieY
$c BYF=$eTranslationY
$c LISTE_Y=%c$xTV%c/SPHERES$COORD_Y
$c AZF=$eHomothetieZ
$c BZF=$eTranslationZ
$c LISTE_Z=%c$xTV%c/SPHERES$COORD_Z
$c ignorer_grandes_distances=VRAI
$c seuil_grandes_distances=%c$_____SeuilGD%c
$c renormaliser=VRAI
$c Z=%f
$c album=FAUX
$c Zmin=%d Zmax=%d
$c ValiderAxes=FAUX
$c R=$_____ImageTd.%04d
$c $formatI%c
$c >> $FIfS\n"
$c ,'\''
$c ,'\'','\''
$c ,'\'','\''
$c ,'\'','\''
$c ,'\'','\''
$c ,Z
$c ,N0,N
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FIfS
$Z FilSTmpE FIfS
$Z set PaRaMA="$K_VIDE"
$Z set PaRaMA="$PaRaMA"" A=$_____ImageTd."
$Z set PaRaMA="$PaRaMA"" incomplet_Z=$_____IncompletAZ"
$Z set PaRaMA="$PaRaMA"" standard=FAUX"
$Z set PaRaMA="$PaRaMA"" premiere=$cPremiere"
$Z set PaRaMA="$PaRaMA"" Zmin=`calcul $cPremiere-$cPremiere`"
$Z set PaRaMA="$PaRaMA"" Zmax=`calcul $cDerniere-$cPremiere`"
$Z set PaRaMA="$PaRaMA"" inverser_Z=VRAI"
$Z set PaRaMA="$PaRaMA"" interpoler=VRAI lineaire=VRAI"
$Z set PaRaMA="$PaRaMA"" source_lumineuse=VRAI"
$Z set PaRaMA="$PaRaMA"" cn=FAUX cnl=VRAI ccXYZ=VRAI"
$Z set PaRaMA="$PaRaMA"" speculaire=2"
$Z set PaRaMA="$PaRaMA"" depth_cueing=0.3"
$Z set exec_aR="pX=0 pY=0 pZ=1 ZBuffer=VRAI Z=$xTV/Z_BUFFER.12"
$Z set exec_aV="pX=0 pY=1 pZ=0"
$Z set exec_aB="pX=1 pY=0 pZ=0"
$Z execRVB $xci/accumule.41$X \
$Z $PaRaMA \
$Z ROTATION_OX=0 \
$Z R=$_____ImagesR1%s \
$Z $formatI
$Z set PaRaMC="$K_VIDE"
$Z set PaRaMC="$PaRaMC"" points=4"
$Z execRVB $xci/convol.01$X \
$Z A=$_____ImagesR1%s \
$Z $PaRaMC \
$Z R=$_____ImagesR11%s \
$Z $formatI
$Z $xci/normalise.01$X \
$Z A=$xTV/Z_BUFFER.12 \
$Z extrema=FAUX \
$Z minimum=0 maximum=1 \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z $formatI | \
$Z $xci/complement$X \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$xiP/gris.05 \
$Z R=$xTV/BRUME \
$Z $formatI
$Z execRVB $xci/cache$X \
$Z A=$BLANC \
$Z M=$_____ImagesR11%s \
$Z anti_aliasing=FAUX \
$Z R=$xTV/IFS3D.22%s \
$Z $formatI
$Z $xci/vitre.53$Z \
$Z $xTV/IFS3D.22 \
$Z $xTV/BRUME \
$Z $xTV/IFS3D.23
$Z execRVB $xci/convol.01$X \
$Z A=$xTV/IFS3D.23%s \
$Z points=9 \
$Z circulaire=VRAI \
$Z circulaire_optimale=VRAI \
$Z R=$_____ImagesR12%s \
$Z $formatI
$Z set exec_aR="pX=0 pY=0 pZ=1 ZBuffer=VRAI Z=$xTV/Z_BUFFER.12"
$Z set exec_aV="pX=0 pY=1 pZ=0"
$Z set exec_aB="pX=1 pY=0 pZ=0"
$Z execRVB $xci/accumule.41$X \
$Z $PaRaMA \
$Z ROTATION_OX=+0.3 \
$Z R=$_____ImagesR2%s \
$Z $formatI
$Z set PaRaMC="$K_VIDE"
$Z set PaRaMC="$PaRaMC"" points=4"
$Z execRVB $xci/convol.01$X \
$Z A=$_____ImagesR2%s \
$Z $PaRaMC \
$Z R=$_____ImagesR21%s \
$Z $formatI
$Z $xci/normalise.01$X \
$Z A=$xTV/Z_BUFFER.12 \
$Z extrema=FAUX \
$Z minimum=0 maximum=1 \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX zero=FAUX \
$Z $formatI | \
$Z $xci/complement$X \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$xiP/gris.05 \
$Z R=$xTV/BRUME \
$Z $formatI
$Z execRVB $xci/cache$X \
$Z A=$BLANC \
$Z M=$_____ImagesR21%s \
$Z anti_aliasing=FAUX \
$Z R=$xTV/IFS3D.22%s \
$Z $formatI
$Z $xci/vitre.53$Z \
$Z $xTV/IFS3D.22 \
$Z $xTV/BRUME \
$Z $xTV/IFS3D.23
$Z execRVB $xci/convol.01$X \
$Z A=$xTV/IFS3D.23%s \
$Z points=9 \
$Z circulaire=VRAI \
$Z circulaire_optimale=VRAI \
$Z R=$_____ImagesR22%s \
$Z $formatI