#######################################################################################################################################
# #
# I N T E R P O L A T I O N E N T R E U N E S T R U C T U R E F R A C T A L E #
# N O N D E T E R M I N I S T E E T U N R E S E A U C U B I Q U E : #
# #
# #
# Author of '$xiirf/.FRA3.S2.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20101014105343). #
# #
#######################################################################################################################################
$Z setParam _____SeuilInferieur `calcul $GRIS_4-5`
$Z # Parametre introduit le 20101014115303... #
$Z setParam _____SeuilSuperieur `calcul $GRIS_4+5`
$Z # Parametre introduit le 20101014115303... #
$Z SET cPremiere=1
$Z SET cDerniere=128
$Z setenv _____ImageT2 $xTV/SECTIONS.1
$Z setenv _____ImageT1 $xTV/SECTIONS.2
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$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("echo %c$xci/fract_3D.01$X
$c mx=0.5 my=0.5 mz=0.5
$c Z=%.16f
$c standard=VRAI
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,Z
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/passe_bande$X
$c A=$_____ImageT2.%04d
$c forcer_niveau_intermediaire=VRAI
$c niveau_intermediaire=$BLANC
$c seuil_inferieur=$_____SeuilInferieur
$c seuil_superieur=$_____SeuilSuperieur
$c R=$_____ImageT1.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c }
$c }
$m4 _____include(_____xiirc/.MANE.41.1._____U)
$Z set _____ImageTdS=$_____ImageTd
$Z set _____ImageTd1=$_____ImageTdS"1"
$Z set _____ImageTd=$_____ImageTd1
$m4 _____include(_____xiirc/.MANE.41.2._____U)
$Z set _____ImageTd2=$_____ImageTdS"2"
$Z set _____ImageTd=$_____ImageTd2
$Z @ Nimages = $cDerniere - $cPremiere
$Z @ Nimages = $Nimages + 1
$Z set _____ImageT1=$xTV/PROK.42
$m4 _____include(_____xiirs/.PROK.41.1._____U)
$m4 _____include(_____xiirs/.PROK.41.2._____U)
$Z set PaRaMs="$K_VIDE"
$Z set PaRaMs="$PaRaMs"" albumFx=$xTV/CHAMP$COORD_X."
$Z set PaRaMs="$PaRaMs"" premiereFx=$Premiere"
$Z set PaRaMs="$PaRaMs"" albumFy=$xTV/CHAMP$COORD_Y."
$Z set PaRaMs="$PaRaMs"" premiereFy=$Premiere"
$Z set PaRaMs="$PaRaMs"" albumFz=$xTV/CHAMP$COORD_Z."
$Z set PaRaMs="$PaRaMs"" premiereFz=$Premiere"
$Z set PaRaMs="$PaRaMs"" ROTATION_OX=$_____Rotation_OX"
$Z set PaRaMs="$PaRaMs"" ROTATION_OY=$_____Rotation_OY"
$Z set PaRaMs="$PaRaMs"" ROTATION_OZ=$_____Rotation_OZ"
$Z set PaRaMs="$PaRaMs"" ZOOM=$_____Zoom"
$Z set PaRaMs="$PaRaMs"" pu=0.2 eu=20 dpu=10"
$Z set PaRaMs="$PaRaMs"" pv=0.2 ev=20 dpv=10"
$Z set PaRaMs="$PaRaMs"" pw=0.2 ew=20 dpw=10"
$Z set PaRaMs="$PaRaMs"" N_AU_CARRE=FAUX"
$Z set PaRaMs="$PaRaMs"" bicubique=FAUX"
$Z set PaRaMs="$PaRaMs"" Zmax=$Zmax ValiderAxes=FAUX"
$Z $xrs/SurfDensi.01$Z project3D.11 \
$Z $_____ImageTd. \
$Z $cPremiere \
$Z $cDerniere \
$Z 5000 \
$Z 1 \
$Z "$PaRaMs"
$Z set _____ImageTd=$_____ImageTdS