#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N B O T T I C E L L I A L A " V I C T O R V A S A R E L Y " : #
# #
# #
# Author of '$xiia/.VASA.45.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20221211101323). #
# #
#######################################################################################################################################
$Z set DiM_XY=`calculINS sqrt($_____Derniere-$_____Premiere+1)-1`
$Z XYmaxNe $DiM_XY $DiM_XY
$Z set LiStE="$K_VIDE"
$Z set LiStE="$LiStE"" $xci/liste_points$X"
$Z set LiStE="$LiStE"" en_tete=FAUX"
$Z set LiStE="$LiStE"" lister_fond=VRAI"
$Z set LiStE="$LiStE"" eX=FAUX"
$Z set LiStE="$LiStE"" eY=FAUX"
$Z set LiStE="$LiStE"" eNIVEAU=VRAI"
$Z set LiStE="$LiStE"" epoints=FAUX"
$Z set LiStE="$LiStE"" $formatI"
$Z set InVeR="$K_VIDE"
$Z set InVeR="$InVeR"" $xci/complement$X"
$Z set InVeR="$InVeR"" $formatI"
$Z set NoRm="$K_VIDE"
$Z set NoRm="$NoRm"" $xci/acces$X"
$Z set NoRm="$NoRm"" standard=FAUX zero=FAUX"
$Z set NoRm="$NoRm"" rNOIR=1 rBLANC=2"
$Z set NoRm="$NoRm"" $formatI"
$Z set ReNoR1="$K_VIDE"
$Z set ReNoR1="$ReNoR1"" renormaliser=VRAI"
$Z set ReNoR1="$ReNoR1"" rNOIR=$GRIS_0 rBLANC=$GRIS_8"
$Z set ReNoR2="$K_VIDE"
$Z set ReNoR2="$ReNoR2"" renormaliser=FAUX"
$Z setenv xTV $xTG
$Z $xci/format.01$X \
$Z A=$xiia/BOTTICELLI.51 \
$Z mode=8 \
$Z AtrX=+110 AtrY=-30 \
$Z $format_Pal \
$Z R=$xTV/BOT.51 \
$Z $formatR_Std
$Z $xci/format.01$X \
$Z A=$xTV/BOT.51 \
$Z mode=7 \
$Z $format_Std \
$Z R=$xTV/BOT.51 \
$Z $formatR_Sud
$Z $xci/format.01$X \
$Z A=$xTV/BOT.51 \
$Z mode=2 \
$Z $format_Sud \
$Z R=$xTV/BOT.51 \
$Z $formatR_Std
$Z $xci/convol.01$X \
$Z A=$xTV/BOT.51 \
$Z points=25 \
$Z circulaire=VRAI circulaire_optimale=VRAI \
$Z R=$xTV/BOT.51 \
$Z $format_Std
$Z $xci/format.01$X \
$Z A=$xTV/BOT.51 \
$Z mode=2 \
$Z $format_Std \
$Z R=$xTV/BOT.52 \
$Z XminR=$Xmin XmaxR=$Xmax YminR=$Ymin YmaxR=$Ymax
$Z $xci/vraies_C$X \
$Z A=$xTV/BOT.52 \
$Z p=$xiP/trou_noir.G4 \
$Z R=$xTV/BOT.52 \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xTV/BOT.52 \
$Z convertir=VRAI \
$Z R=$xTV/BOT.53 \
$Z $formatI
$Z set LiM=(`$xci/neutre$X A=$xTV/BOT.53 standard=FAUX $formatI | $NoRm | $LiStE`)
# Definition du mode de generation des images dans '$LiM' a l'aide d'une image 16x16. #
$Z set LiR1=(`$xci/acces$X A=$xTV/BOT.52$ROUGE $ReNoR1 $formatI | $LiStE`)
$Z set LiV1=(`$xci/acces$X A=$xTV/BOT.52$VERTE $ReNoR1 $formatI | $LiStE`)
$Z set LiB1=(`$xci/acces$X A=$xTV/BOT.52$BLEUE $ReNoR1 $formatI | $LiStE`)
# Definition de la premiere couleur dans {$LiR1,$LiV1,$LiB1} a l'aide de trois images 16x16. #
$Z set LiR2=(`$xci/gauss$X c=1 $ReNoR2 $formatI | $LiStE`)
$Z set LiV2=(`$xci/gauss$X c=8 $ReNoR2 $formatI | $LiStE`)
$Z set LiB2=(`$xci/gauss$X c=32 $ReNoR2 $formatI | $LiStE`)
# Definition de la deuxieme couleur dans {$LiR2,$LiV2,$LiB2} a l'aide de trois images 16x16. #
$Z Suh
$m4 _____include(_____xiia/.VASA.21.1._____U)