#######################################################################################################################################
# #
# R E P R E S E N T A T I O N T R I D I M E N S I O N N E L L E D ' U N E I M A G E : #
# #
# #
# Author of '$xiirf/.FRB3.Z1.21.M.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20121215095626). #
# #
#######################################################################################################################################
$Z setParam _____CGauss `GetParam $xci/gauss$X c`
$Z # Parametre introduit le 20141111115518... #
$Z setParam _____Seuil 253
$Z setParam _____Passes 100
$Z setParam _____Avion FAUX
$Z # Parametre introduit le 20140315212456... #
$Z setParam _____Ty 0.67
$Z setParam _____Perspective 0.2
$Z setParam _____Palette $xiP/gris.08
$Z SETParam _____Detruire_M1 $NEXIST
$Z # Parametre introduit le 20130530165135... #
$Z SETParam _____Detruire_M2 $NEXIST
$Z # Parametre introduit le 20130530165135... #
$Z SETParam _____Detruire_m $NEXIST
$Z # Parametre introduit le 20130530165135... #
#20160601124608____:$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\ #
#20160601124608____:$Z execRVB $xci/neutre$X \\ #
#20160601124608____:$Z A=$ImAgE_DeLeTeD%s \\ #
#20160601124608____:$Z R=$xTV/$SaUvEgArDe%s \\ #
#20160601124608____:$Z $formatI ; \\ #
#20160601124608____:$Z execRVB $DELETE $ImAgE_DeLeTeD%s ; \\ #
#20160601124608____:$Z unset ImAgE_DeLeTeD' #
$Z alias SaVeImAgE 'set ImAgE_DeLeTeD=\!:1 ; \\
$Z set SaUvEgArDe=`GetLeaf $ImAgE_DeLeTeD` ; \\
$Z execRVB $xci/neutre$X \\
$Z A=$ImAgE_DeLeTeD%s \\
$Z R=$xTV/$SaUvEgArDe%s \\
$Z $formatI ; \\
$Z execRVB $DELETE_VALIDE $ImAgE_DeLeTeD%s ; \\
$Z unset ImAgE_DeLeTeD'
$Z # Introduit le 20130530165135 afin de mettre de cote, malgre tout, ce qui vient d'etre #
$Z # cree... #
$Z # #
$Z # Le remplacement de '$DELETE' par '$DELETE_VALIDE' a eu lieu le 20160601124555, par #
$Z # "symetrie" avec 'v $xiirc/.MANE.41.4.$U 20160601124555'... #
$Z $xci/luminance.01$X \
$Z A=$_____imageR \
$Z R=$xTV/FRB3.Z1.21 \
$Z $formatI
$Z $xci/gauss$X \
$Z c=$_____CGauss \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z # La possibilite de parametrer la gaussienne a ete introduite le 20141111115518... #
$Z $xci/filtre.01$X \
$Z A=$xTV/FRB3.Z1.21 \
$Z N=$xTV/GAUSS \
$Z avertir_non_implicite=FAUX \
$Z seuil=$_____Seuil \
$Z R=$xTV/LUMINANCE \
$Z $formatI
$Z # Le parametre "avertir_non_implicite=FAUX" a ete introduit le 20141111115518... #
$Z $xci/acces$X \
$Z A=$xTV/LUMINANCE \
$Z convertir=VRAI \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z $formatI | \
$Z $xci/lissage$X \
$Z passes=$_____Passes \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/SURFACE \
$Z $formatI
$Z set PaRaMeTrEsM1="Ty=$_____Ty perspective=$_____Perspective"
$Z set PaRaMeTrEsM2="$K_VIDE"
$Z $xci/montagne.01$X \
$Z T=$BLANC \
$Z A=$xTV/SURFACE \
$Z standard=FAUX zero=VRAI \
$Z avion=$_____Avion \
$Z $PaRaMeTrEsM1 $PaRaMeTrEsM2 \
$Z Z-Buffer=VRAI \
$Z R=$xTV/MONTAGNE \
$Z $formatI | \
$Z $xci/complement$X \
$Z $formatI | \
$Z $xci/substitue$X \
$Z p=$xiP/gris.08 \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z R=$xTV/BRUME \
$Z $formatI
$Z execRVB $xci/montagne.01$X \
$Z T=$_____imageR%s \
$Z A=$xTV/SURFACE \
$Z standard=FAUX zero=VRAI \
$Z avion=$_____Avion \
$Z $PaRaMeTrEsM1 $PaRaMeTrEsM2 \
$Z R=$_____imageR.1$M%s \
$Z $formatI
$Z execRVB $xci/brume.11$X \
$Z A=$_____imageR.1$M%s \
$Z B=$xTV/BRUME \
$Z R=$_____imageR.2$M%s \
$Z $formatI
$Z execRVB $xci/montagne.01$X \
$Z T=$_____imageR%s \
$Z A=$xTV/SURFACE \
$Z standard=FAUX zero=VRAI \
$Z avion=VRAI \
$Z $PaRaMeTrEsM2 \
$Z R=$_____imageR$m%s \
$Z $formatI
$Z if ($_____Detruire_M1 == $EXIST) then
$Z SaVeImAgE $_____imageR.1$M
$Z # Introduit le 20130530165135... #
$Z else
$Z endif
$Z if ($_____Detruire_M2 == $EXIST) then
$Z SaVeImAgE $_____imageR.2$M
$Z # Introduit le 20130530165135... #
$Z else
$Z endif
$Z if ($_____Detruire_m == $EXIST) then
$Z SaVeImAgE $_____imageR$m
$Z # Introduit le 20130530165135... #
$Z else
$Z endif
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.