#######################################################################################################################################
# #
# V I S U A L I S A T I O N T R I D I M E N S I O N N E L L E D U T R I A N G L E D E P A S C A L : #
# #
# #
# Author of '$xiirv/.TRPA.12.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140730210425). #
# #
#######################################################################################################################################
$Z setParam _____FacteurHomo 2
$Z setParam _____PostfixeS ".LOG"
$Z setParam _____PostfixeT "$K_VIDE"
$Z # Parametre introduit le 20140801105738... #
$Z SETParam _____Passes 0
$Z # Il est preferable de ne pas faire de lissage et ce afin d'eviter des "rebonds" au bord #
$Z # des plateaux au sommet des pics... #
$Z SETParam _____NPointsS 81
$Z setParam _____NPointsT 0
$Z # Il est preferable de ne pas convoluer la texture... #
$Z setParam _____Palettes $xiP/cercle.76
$Z setParam _____Translation 0.8
$Z setParam _____Echelle 0.2
$Z FilSTmpB FSuRfAcE
$Z $CA $xcs/csh$Y \
$Z > $FSuRfAcE$Y
$Z $xci/format.01$X \
$Z A=$_____ImageA$_____PostfixeS \
$Z mode=1 \
$Z facteur=$_____FacteurHomo \
$Z formatI=VRAI facteur_dimensions=VRAI \
$Z R=$FSuRfAcE.1 \
$Z Prme=VRAI \
$Z $formatI \
$Z >> $FSuRfAcE$Y
$Z FilSTmpB FTeXtUrE
$Z $CA $xcs/csh$Y \
$Z > $FTeXtUrE$Y
$Z $xci/format.01$X \
$Z A=$_____ImageA$_____PostfixeT \
$Z mode=0 \
$Z facteur=$_____FacteurHomo \
$Z formatI=VRAI facteur_dimensions=VRAI \
$Z R=$FTeXtUrE.1 \
$Z Prme=VRAI \
$Z $formatI \
$Z >> $FTeXtUrE$Y
$Z # Il est preferable de ne pas convoluer la texture... #
$Z if ("`$DIF $FSuRfAcE$Y $FTeXtUrE$Y`" != "$K_VIDE") then
$Z echo "Le redimensionnement va mal se passer."
$Z pause
$Z else
$Z source $FSuRfAcE$Y
$Z formatI
$Z # Mise en place du nouveau format "homothetique"... #
$Z endif
$Z if ($_____NPointsS > 0) then
$Z set CoNvOlUtIoN="$K_VIDE"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" $xci/convol.01$X"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" points=$_____NPointsS"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" circulaire=VRAI"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" circulaire_optimale=VRAI"
$Z else
$Z set CoNvOlUtIoN="$K_VIDE"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" $xci/neutre$X"
$Z endif
$Z $CoNvOlUtIoN \
$Z A=$FSuRfAcE.1 \
$Z $formatI | \
$Z $xci/acces$X \
$Z convertir=VRAI \
$Z $formatI | \
$Z $xci/Sx$X \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z $formatI | \
$Z $xci/lissage$X \
$Z standard=FAUX \
$Z passes=$_____Passes \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$FSuRfAcE \
$Z $formatI
$Z if ($_____NPointsT > 0) then
$Z set CoNvOlUtIoN="$K_VIDE"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" $xci/convol.01$X"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" points=$_____NPointsT"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" circulaire=VRAI"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" circulaire_optimale=VRAI"
$Z else
$Z set CoNvOlUtIoN="$K_VIDE"
$Z set CoNvOlUtIoN="$CoNvOlUtIoN"" $xci/neutre$X"
$Z endif
$Z $xci/Sx$X \
$Z A=$FTeXtUrE.1 \
$Z $formatI | \
$Z $CoNvOlUtIoN \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$_____Palettes \
$Z R=$FTeXtUrE \
$Z $formatI
$Z execRVB $xci/montagne.01$X \
$Z A=$FSuRfAcE \
$Z standard=FAUX zero=FAUX \
$Z echelle=$_____Echelle \
$Z T=$FTeXtUrE%s \
$Z avion=VRAI \
$Z R=$_____ImageR$m%s \
$Z $formatI
$Z execRVB $xci/montagne.01$X \
$Z A=$FSuRfAcE \
$Z standard=FAUX zero=FAUX \
$Z echelle=$_____Echelle \
$Z T=$FTeXtUrE%s \
$Z avion=FAUX \
$Z Ty=$_____Translation \
$Z R=$_____ImageR$M%s \
$Z $formatI
$Z FilSTmpE FTeXtUrE
$Z FilSTmpE FSuRfAcE