#######################################################################################################################################
# #
# " A L A M A N I E R E D E " M A G R I T T E : #
# #
# #
# Author of '$xiia/.JFC.O1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20220913165611). #
# #
#######################################################################################################################################
$Z setParam _____MailleX 0.1
$Z setParam _____MailleY 1.0
$Z setParam _____Iterations 8
$Z setParam _____Graine 3141
$Z setParam _____PaletteR $xiP/rouge.01
$Z setParam _____GaussRC 1
$Z setParam _____GaussRCX2 4
$Z setParam _____GaussRCY2 2
$Z setParam _____GaussJC 6
$Z setParam _____GaussJCX2 4
$Z setParam _____GaussJCY2 2
$Z setParam _____SurfaceI $xiirs/NODE.21.1$LUMIN
$Z setParam _____SurfaceP $xiP/trou_noir.B4
$Z FilSTmpB FRiDeAu
$Z $xci/fract_2D.01$X \
$Z iterations=$_____Iterations \
$Z mx=$_____MailleX my=$_____MailleY \
$Z graine=$_____Graine \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$_____PaletteR \
$Z R=$FRiDeAu.1 \
$Z $formatI
$Z # Generation du rideau d'arriere plan... #
$Z FilSTmpB FGaUsS
$Z $xci/gauss$X \
$Z c=$_____GaussRC \
$Z cx2=$_____GaussRCX2 cy2=$_____GaussRCY2 \
$Z $formatI | \
$Z $xci/complement$X \
$Z R=$FGaUsS.1 \
$Z $formatI
$Z # Generation de la gaussienne d'estompage du rideau... #
$Z execRVB $xci/multi_02.01$X \
$Z A1=$FGaUsS.1 \
$Z A2=$FRiDeAu.1%s \
$Z renormaliser=FAUX \
$Z message_extrema=FAUX \
$Z R=$FRiDeAu.2%s \
$Z $formatI
$Z # Generation du rideau d'arriere plan estompe... #
$Z $xci/gauss$X \
$Z c=$_____GaussJC \
$Z cx2=$_____GaussJCX2 cy2=$_____GaussJCY2 \
$Z R=$FGaUsS.2 \
$Z $formatI
$Z # Generation de la gaussienne d'estompage du portrait... #
$Z FilSTmpB FPoRtRaIt
$Z execRVB $xci/multi_02.01$X \
$Z A1=$FGaUsS.2 \
$Z A2=$xiit/JFC.13%s \
$Z renormaliser=FAUX \
$Z message_extrema=FAUX \
$Z R=$FPoRtRaIt.1%s \
$Z $formatI
$Z # Generation du portrait estompe... #
$Z execRVB $xci/somme_02$X \
$Z A1=$FRiDeAu.2%s \
$Z A2=$FPoRtRaIt.1%s \
$Z renormaliser=FAUX \
$Z R=$FPoRtRaIt.2%s \
$Z $formatI
$Z # Generation du portrait avec en arriere-plan le rideau... #
$Z FilSTmpB FPoMmE
$Z IfBasic ("$_____SurfaceP" == "RVB") then
$Z execRVB $xci/neutre$X \
$Z A=$_____SurfaceI%s \
$Z R=$FPoMmE%s \
$Z $formatI
$Z # Generation de la "pomme" en vraies couleurs... #
$Z else
$Z $xci/vraies_C$X \
$Z A=$_____SurfaceI \
$Z p=$_____SurfaceP \
$Z R=$FPoMmE \
$Z $formatI
$Z # Generation de la "pomme" en fausses couleurs... #
$Z endif
$Z $xci/cache.41$Z \
$Z $FPoRtRaIt.2 \
$Z $FPoMmE \
$Z $_____ImageR
$Z # Resultat final... #
$Z FilSTmpE FPoMmE
$Z FilSTmpE FPoRtRaIt
$Z FilSTmpE FGaUsS
$Z FilSTmpE FRiDeAu