#######################################################################################################################################
# #
# D E C O U P A G E A U T O - S I M I L A I R E D E T R I A N G L E S D ' O R : #
# #
# #
# Author of '$xiirv/.TROR.11.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20170605090609). #
# #
#######################################################################################################################################
$Z setParam _____Couronne `GetParam $xrv/particule.10$X couronne`
$Z # Parametre introduit le 20190909163022... #
$Z if ( (-e $FiLeTmP_TRIANGLE_OR$LUMIN) \
$Z && ( (! -e $FiLeTmP_TRIANGLE_OR$ROUGE) \
$Z && (! -e $FiLeTmP_TRIANGLE_OR$VERTE) \
$Z && (! -e $FiLeTmP_TRIANGLE_OR$BLEUE) \
$Z ) \
$Z ) then
$Z $DELETE $FiLeTmP_TRIANGLE_OR$ROUGE
$Z $xrv/N_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_NIVEAU=$FiLeTmP_TRIANGLE_OR$LUMIN \
$Z paletteA=$_____Palette \
$Z entiers=VRAI \
$Z pR=1 pV=0 pB=0 \
$Z > $FiLeTmP_TRIANGLE_OR$ROUGE
$Z $DELETE $FiLeTmP_TRIANGLE_OR$VERTE
$Z $xrv/N_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_NIVEAU=$FiLeTmP_TRIANGLE_OR$LUMIN \
$Z paletteA=$_____Palette \
$Z entiers=VRAI \
$Z pR=0 pV=1 pB=0 \
$Z > $FiLeTmP_TRIANGLE_OR$VERTE
$Z $DELETE $FiLeTmP_TRIANGLE_OR$BLEUE
$Z $xrv/N_RVB.01$X \
$Z ne=$Npart \
$Z LISTE_NIVEAU=$FiLeTmP_TRIANGLE_OR$LUMIN \
$Z paletteA=$_____Palette \
$Z entiers=VRAI \
$Z pR=0 pV=0 pB=1 \
$Z > $FiLeTmP_TRIANGLE_OR$BLEUE
$Z # Passage aux vraies couleurs pour permettre des changements de palettes (ainsi que cela #
$Z # est fait pour 'v $xiirv/TROR.92'). Ceci a ete introduit le 20170605141405... #
$Z else
$Z endif
$Z if ("$_____Eval" != "$K_VIDE") then
$Z eval "$_____Eval"
$Z else
$Z endif
$Z if ("$_____ParticulePara1" != "$K_VIDE") then
$Z set _____ParticulePara1=`eval echo "$_____ParticulePara1"`
$Z else
$Z endif
$Z $xrv/particule.10$X np=1 iterations=$Npart \
$Z dernier_premier=VRAI \
$Z AXYZ=1 BXYZ=0 \
$Z LISTE_X=$FiLeTmP_TRIANGLE_OR$COORD_X \
$Z LISTE_Y=$FiLeTmP_TRIANGLE_OR$COORD_Y \
$Z LISTE_Z=$FiLeTmP_TRIANGLE_OR$COORD_Z \
$Z LISTE_RAYON=$_____Rayon \
$Z LISTE_ROUGE=$FiLeTmP_TRIANGLE_OR$ROUGE \
$Z LISTE_VERTE=$FiLeTmP_TRIANGLE_OR$VERTE \
$Z LISTE_BLEUE=$FiLeTmP_TRIANGLE_OR$BLEUE \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z TRANSLATION_OX=$_____TranslationX \
$Z TRANSLATION_OY=$_____TranslationY \
$Z TRANSLATION_OZ=$_____TranslationZ \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z couronne=$_____Couronne \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=$_____Cubique \
$Z derivees_automatiques=FAUX \
$Z LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ \
$Z RVB=VRAI \
$Z N_AU_CARRE=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____Fond \
$Z $_____ParticulePara1 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z $formatI
$Z # L'argument "editer_mauvais_encadrement_niveaux_interpoles=FAUX" a ete introduit le #
$Z # 20170605095927 a cause de 'v $xiirv/TROR.92'... #