#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N M O N D R I A N : #
# #
# #
# Author of '$xiia/.MOND.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20040526093340). #
# #
#######################################################################################################################################
$Z setParam _____Points 100
$Z setParam _____Seuil 240
$Z set CoPy=2
$Z @ Points2 = $CoPy * $_____Points
$Z Pal
$Z $DELETE $xTV/POINTS*$COORD_X >& $nul
$Z $DELETE $xTV/POINTS*$COORD_Y >& $nul
$Z $DELETE $xTV/POINTS*$COORD_Z >& $nul
$Z $DELETE $xTV/POINTS*$ROUGE >& $nul
$Z $DELETE $xTV/POINTS*$VERTE >& $nul
$Z $DELETE $xTV/POINTS*$BLEUE >& $nul
$Z $xrv/val_alea.01$X \
$Z ne=$_____Points \
$Z LISTE_BORNES_INFERIEURES=0 LISTE_BORNES_SUPERIEURES=1 \
$Z graine=1111 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS.1$COORD_X
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=0 LISTE_BORNES_SUPERIEURES=1 \
$Z graine=2222 \
$Z exemplaires=1 \
$Z > $xTV/POINTS.2$COORD_X
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=0 LISTE_BORNES_SUPERIEURES=1 \
$Z graine=3333 \
$Z exemplaires=1 \
$Z > $xTV/POINTS.1$COORD_Y
$Z $xrv/val_alea.01$X \
$Z ne=$_____Points \
$Z LISTE_BORNES_INFERIEURES=0 LISTE_BORNES_SUPERIEURES=1 \
$Z graine=4444 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS.2$COORD_Y
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=0 LISTE_BORNES_SUPERIEURES=1 \
$Z graine=5555 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS$COORD_Z
$Z $CA $xTV/POINTS.1$COORD_X $xTV/POINTS.2$COORD_X \
$Z > $xTV/POINTS$COORD_X
$Z $CA $xTV/POINTS.1$COORD_Y $xTV/POINTS.2$COORD_Y \
$Z > $xTV/POINTS$COORD_Y
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=$GRIS_1 LISTE_BORNES_SUPERIEURES=$GRIS_8 \
$Z graine=6666 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS$ROUGE
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=$GRIS_1 LISTE_BORNES_SUPERIEURES=$GRIS_8 \
$Z graine=7777 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS$VERTE
$Z $xrv/val_alea.01$X \
$Z ne=$Points2 \
$Z LISTE_BORNES_INFERIEURES=$GRIS_1 LISTE_BORNES_SUPERIEURES=$GRIS_8 \
$Z graine=8888 \
$Z exemplaires=$CoPy \
$Z > $xTV/POINTS$BLEUE
$Z set Nparticules=`$CA $xTV/POINTS$COORD_X | $WCl`
$Z $xrv/particule.10.x \
$Z np=1 \
$Z npoints=$Nparticules \
$Z LISTE_X=$xTV/POINTS$COORD_X \
$Z LISTE_Y=$xTV/POINTS$COORD_Y \
$Z LISTE_Z=$xTV/POINTS$COORD_Z \
$Z LISTE_ROUGE=$xTV/POINTS$ROUGE \
$Z LISTE_VERTE=$xTV/POINTS$VERTE \
$Z LISTE_BLEUE=$xTV/POINTS$BLEUE \
$Z isoles=FAUX chainer=FAUX ajuster_points=VRAI nombreR=4 \
$Z ZOOM=1.0 \
$Z rayon_de_visualisation=0.01 \
$Z trier=VRAI \
$Z N_au_carre=VRAI \
$Z chiffres=0 \
$Z R=$_____imageR1 \
$Z $formatI \
$Z >& $nul
$Z # ATTENTION : l'option "N_au_carre=FAUX" est necessaire afin de conserver l'ordre naturel #
$Z # des spheres et ainsi eliminer des artefacts visuels introduits par les permutations que #
$Z # provoquent l'option "N_au_carre=FAUX" lorsque la liste des 'Z' est deja triee, or c'est #
$Z # le cas ici pour chaque segment (vertical ou horizontal). D'ou la redirection vers '$nul' #
$Z # afin d'eviter un message d'avertissement... #
$Z $DELETE $xTV/POINTS*$COORD_X
$Z $DELETE $xTV/POINTS*$COORD_Y
$Z $DELETE $xTV/POINTS*$COORD_Z
$Z $DELETE $xTV/POINTS*$ROUGE
$Z $DELETE $xTV/POINTS*$VERTE
$Z $DELETE $xTV/POINTS*$BLEUE
$Z $xci/luminance.01$X \
$Z AR=$_____imageR1$ROUGE \
$Z AV=$_____imageR1$VERTE \
$Z AB=$_____imageR1$BLEUE \
$Z R=$xTV/LUMINANCE \
$Z $formatI
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z $xci/filtre.01$X \
$Z A=$xTV/LUMINANCE \
$Z N=$xTV/GAUSS \
$Z seuil=$_____Seuil \
$Z R=$_____imageR2 \
$Z $formatI
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.