#######################################################################################################################################
# #
# V I S U A L I S A T I O N P O L A I R E D E S D I X C H I F F R E S : #
# #
# #
# Author of '$xiirv/.PIPO.I1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20151219104210). #
# #
#######################################################################################################################################
$Z setParam _____ParticulePara "$K_VIDE"
$Z setParam _____VRayon 0.008
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/gris.01
$Z setParam _____Zoom 1.1
$Z setParam _____Grossissement 1.5
$Z setParam _____Speculaire `GetParam $xrv/particule.10$X speculaire`
$Z setParam _____Couronne `GetParam $xrv/particule.10$X couronne`
$Z setParam _____Redirection "$K_VIDE"
$Z setParam _____KNombres 0.010
$Z FilSTmpB FiLePoInTs
$Z set LiStE_ChIfFrEs=(0 1 2 3 4 5 6 7 8 9 0)
$Z set NoMbRe_ChIfFrEs=$#LiStE_ChIfFrEs
$Z echo $LiStE_ChIfFrEs | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $xrv/DIVZ.11$X ne=$NoMbRe_ChIfFrEs \
$Z fichier1== \
$Z fichier2=10 | \
$Z $xrv/MUL2.11$X ne=$NoMbRe_ChIfFrEs \
$Z fichier1== \
$Z fichier2=$dpi \
$Z > $FiLePoInTs.PHI
$Z # Conversion des chiffres en un angle dans [0,2.pi]. #
$Z set ArGuMeNts1="$K_VIDE"
$Z set ArGuMeNts1="$ArGuMeNts1"" LISTE_RHO=1"
$Z set ArGuMeNts1="$ArGuMeNts1"" LISTE_PHI=$FiLePoInTs.PHI"
$Z set ArGuMeNts1="$ArGuMeNts1"" LISTE_THETA=$pis2"
$Z set ArGuMeNts2="a=0.5 b=+0.5"
$Z # Afin de passer des coordonnees dans [-1,+1] a des coordonnees dans [0,1]... #
$Z $xrv/RPT_XYZ.01$X ne=$NoMbRe_ChIfFrEs \
$Z $ArGuMeNts1 \
$Z pX=1 pY=0 pZ=0 | \
$Z $xrv/AXPB.01$X ne=$NoMbRe_ChIfFrEs \
$Z fichier== \
$Z $ArGuMeNts2 \
$Z > $FiLePoInTs$COORD_X
$Z $xrv/RPT_XYZ.01$X ne=$NoMbRe_ChIfFrEs \
$Z $ArGuMeNts1 \
$Z pX=0 pY=1 pZ=0 | \
$Z $xrv/AXPB.01$X ne=$NoMbRe_ChIfFrEs \
$Z fichier== \
$Z $ArGuMeNts2 \
$Z > $FiLePoInTs$COORD_Y
$Z # Conversion des coordonnees spheriques (et en fait polaires puisque l'on ne conserve #
$Z # que {phi,phi}) en coordonnee cartesiennes. En fait 'v $xrv/particule.10$K spheriques=' #
$Z # peut travailler directement en coordonnees spheriques, mais on souhaite avoir une #
$Z # variation lineaire de la troisieme coordonnee 'Z'... #
$Z set NiVeAu=$GRIS_4
$Z $xci/valeurs_inte$X premiere=1 derniere=$NoMbRe_ChIfFrEs \
$Z vD=$NiVeAu vA=$NiVeAu \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FiLePoInTs.Niveau
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z set ArGuMeNtS="$ArGuMeNtS"" speculaire=$_____Speculaire"
$Z set ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom"
$Z set ArGuMeNtS="$ArGuMeNtS"" N_au_carre=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" couronne=$_____Couronne"
$Z set ArGuMeNtS="$ArGuMeNtS"" $_____ParticulePara"
$Z set ArGuMeNtS="$ArGuMeNtS"" chiffres=0"
$Z set CoOrDoNnEeS_Z=0
$Z eval $xrv/particule.10$X npoints=$NoMbRe_ChIfFrEs \
$Z LISTE_X=$FiLePoInTs$COORD_X \
$Z LISTE_Y=$FiLePoInTs$COORD_Y \
$Z LISTE_Z=$CoOrDoNnEeS_Z \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z grossissement=$_____Grossissement \
$Z Vrayon=$_____VRayon \
$Z LISTE_NIVEAU=$FiLePoInTs.Niveau \
$Z p=$_____Palette \
$Z $ArGuMeNtS \
$Z R=$_____ImageR \
$Z $formatI \
$Z $_____Redirection
$Z # Trace du decagone des chiffres de "0" a "9". #
#20191021181759____:$Z FilSTmpB FChIfFrEs #
$Z FilSTmpB FChIfFrEs $Y
$Z $CA $xcs/csh$Y \
$Z >> $FChIfFrEs
$Z echo 'source $xrd/graph.01$vv$Y' \
$Z >> $FChIfFrEs
$Z echo "G_K $_____KNombres" \
$Z >> $FChIfFrEs
$Z echo "G_Zoom $_____Zoom" \
$Z >> $FChIfFrEs
$Z set NuMeRo=1
$Z foreach ChIfFrE ($LiStE_ChIfFrEs)
$Z if ($NuMeRo < $NoMbRe_ChIfFrEs) then
$Z set NoMbReX=`(listMN $FiLePoInTs$COORD_X $NuMeRo $NuMeRo)`
$Z set NoMbReY=`(listMN $FiLePoInTs$COORD_Y $NuMeRo $NuMeRo)`
$Z set NoMbReC=`echo "$ChIfFrE" | $R "0" "O" | $R "1" "I"`
$Z set NoMbReP=$GRIS_8
$Z echo "G_Cursor1 $NoMbReX $NoMbReY $CoOrDoNnEeS_Z" \
$Z >> $FChIfFrEs
$Z echo "G_Cursor2"" $NoMbReP "" $NoMbReP "" $NoMbReP " \
$Z >> $FChIfFrEs
$Z echo "G_Quelc $K_QA""G_Message $K_QD$NoMbReC$K_QD$K_QA" \
$Z >> $FChIfFrEs
$Z echo "G_Genere $_____ImageR fond=VRAI F=$_____ImageR" \
$Z >> $FChIfFrEs
$Z else
$Z endif
$Z @ NuMeRo = $NuMeRo + 1
$Z end
$Z source $FChIfFrEs
$Z # Ecriture des chiffres de "0" a "9". #
$Z FilSTmpE FChIfFrEs
$Z FilSTmpE FiLePoInTs