#######################################################################################################################################
# #
# Z O O M S U R L ' E N S E M B L E D E M A N D E L B R O T : #
# #
# #
# * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
# * * * ** * * * * * ** * #
# * * * * * * * * * * * * * * * #
# * * * * * * * * * * * * * #
# * * * * * * * * * * * * * * * #
# * * * * * * * * * * * * * * * #
# * * * * * * * * * * * * * * * * * #
# * * * * * * * * * * * * * #
# * * * * * * * * * * * * * * * #
# * * * * ** * * * * * ** #
# * * * * * * * * * * * * * * * * * * * * * * #
# #
# #
# ATTENTION : #
# #
# Ce fichier a ete remplace le 20030330184409 #
# par 'v $xiirc/.MAND.2.11.$U' car, en effet, le #
# '$xci/normalise.01$X' qu'il contient provoquait #
# des fluctuations des altitudes des montagnes #
# d'une image a l'autre... #
# #
# #
# Author of '$xiirc/.MAND.1.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20030325143332). #
# #
#######################################################################################################################################
$Z setParam _____Xarrivee -0.15293
$Z setParam _____Yarrivee +1.03980
$Z setParam _____Lissage 16
$Z setParam _____Echelle -0.25
$Z setParam _____Ty 1.1
$Z setParam _____Perspective 1
$Z setParam _____Pbrume $xiP/gris.05
$Z # Les palettes {$xiP/gris.05,...,$xiP/gris.08} sont en particulier appropriees... #
$Z setParam _____Pmontagne $xiP/montagnes.91
$Z # Les palettes {$xiP/gris.05,$xiP/gris.06,$xiP/gris.07} sont en particulier appropriees... #
$Z SET Premiere=0
$Z SET Derniere=127
$Z @ Nimages = $Derniere - $Premiere
$Z @ Nimages = $Nimages + 1
$Z Pal
$Z $xrc/mandel.01$X \
$Z xbga=$_____Xarrivee ybga=$_____Yarrivee \
$Z xhda=$_____Xarrivee yhda=$_____Yarrivee \
$Z N=$Nimages \
$Z R=$_____imagesR. \
$Z $formatI
$Z $xci/init$X \
$Z n=$BLANC \
$Z R=$xTV/TEXTURE \
$Z $formatI
#20250211120624____:$Z setenv LONGUEUR_NOMS 20 #
$Z set XminR=$Xmin
$Z set XmaxR=759
$Z set YminR=$Ymin
$Z set YmaxR=554
$Z # Le redimensionnement par '$xci/format.01$X' est destine a compenser les effets de bord de #
$Z # '$xci/lissage$X' qui sont ainsi elimines... #
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Facteur0 0.0
$c #define FacteurN 1.0
$c
$c #define SEUIL 240
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/acces$X
$c A=$_____imagesR.%04d
$c convertir=VRAI
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/lissage$X
$c standard=FAUX
$c passes=$_____Lissage
$c R=$xTV/SURFACE
$c $formatI\n"
$c ,n
$c );
$c
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c standard=FAUX zero=FAUX
$c T=$xTV/TEXTURE
$c echelle=$_____Echelle
$c Ty=$_____Ty
$c perspective=$_____Perspective
$c falaise=VRAI
$c R=$xTV/MONTAGNE
$c Z-Buffer=VRAI Z-Buffer_standard=VRAI
$c Z=$xTV/Z_BUFFER
$c $formatI\n"
$c );
$c
$c printf("$xci/complement$X
$c A=$xTV/Z_BUFFER
$c $formatI |
$c $xci/substitue$X
$c substitution=L_SUBSTITUTION_ROUGE
$c p=$_____Pbrume
$c R=$xTV/BRUME
$c $formatI\n"
$c );
$c
$c printf("$xci/vitre.21$Z
$c $xTV/MONTAGNE
$c $_____Pmontagne
$c $xTV/BRUME
$c $_____imagesR$M.%04d\n"
$c ,n
$c );
$c
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$ROUGE
$c $format_Pal
$c mode=7
$c R=$_____imagesR$M.%04d$ROUGE
$c XminR=$XminR XmaxR=$XmaxR
$c YminR=$YminR YmaxR=$YmaxR
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$ROUGE
$c Xmin=$XminR Xmax=$XmaxR
$c Ymin=$YminR Ymax=$YmaxR
$c mode=2
$c R=$_____imagesR$M.%04d$ROUGE
$c $formatR_Pal\n"
$c ,n
$c ,n
$c );
$c
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$VERTE
$c $format_Pal
$c mode=7
$c R=$_____imagesR$M.%04d$VERTE
$c XminR=$XminR XmaxR=$XmaxR
$c YminR=$YminR YmaxR=$YmaxR
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$VERTE
$c Xmin=$XminR Xmax=$XmaxR
$c Ymin=$YminR Ymax=$YmaxR
$c mode=2
$c R=$_____imagesR$M.%04d$VERTE
$c $formatR_Pal\n"
$c ,n
$c ,n
$c );
$c
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$BLEUE
$c $format_Pal
$c mode=7
$c R=$_____imagesR$M.%04d$BLEUE
$c XminR=$XminR XmaxR=$XmaxR
$c YminR=$YminR YmaxR=$YmaxR
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("$xci/format.01$X
$c A=$_____imagesR$M.%04d$BLEUE
$c Xmin=$XminR Xmax=$XmaxR
$c Ymin=$YminR Ymax=$YmaxR
$c mode=2
$c R=$_____imagesR$M.%04d$BLEUE
$c $formatR_Pal\n"
$c ,n
$c ,n
$c );
$c }
$c }