#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E G R I L L E D E S U D O K U : #
# #
# #
# Author of '$xiirv/.SUDO.21.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20140929171105). #
# #
#######################################################################################################################################
$Z setParam _____DistanceMini 0.005
$Z setParam _____Cubique VRAI
$Z setParam _____GDerivees 1.0
$Z setParam _____VRayon 0.008
$Z SETParam _____Palette $xiP/Sudoku.01
$Z setParam _____Grossissement `GetParam $xrv/particule.10$X grossissement`
$Z # Parametre introduit le 20140930093438... #
$Z setParam _____Speculaire `GetParam $xrv/particule.10$X speculaire`
$Z setParam _____Zoom 0.7
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z # Parametre introduit le 20140930093438... #
$Z FilSTmpB FiLePoInTs
$Z set C_SuDoKu=$C0SuDoKu
$Z while ($C_SuDoKu <= $CnSuDoKu)
$Z $DELETE $FiLePoInTs.1
$Z set Y_SuDoKu=$Y0SuDoKu
$Z $CA $FSuDoKu | \
$Z $GRE " C=$C_SuDoKu" | \
$Z $AW ' { print $0 "\n" $0 } ' \
$Z >>! $FiLePoInTs.1
$Z decaleC $FiLePoInTs.1 1
$Z $CA $FiLePoInTs.1 | \
$Z $SE -e 's/^.* X=\([^ ][^ ]*\) .*$/\1/' \
$Z >>! $FiLePoInTs.1$COORD_X
$Z $CA $FiLePoInTs.1 | \
$Z $SE -e 's/^.* Y=\([^ ][^ ]*\) .*$/\1/' \
$Z >>! $FiLePoInTs.1$COORD_Y
$Z $CA $FiLePoInTs.1 | \
$Z $SE -e 's/^.* C=\([^ ][^ ]*\) .*$/\1/' \
$Z >>! $FiLePoInTs.1$NIVEAU
$Z @ C_SuDoKu = $C_SuDoKu + 1
$Z end
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FiLePoInTs.1$COORD_X \
$Z origine=0 \
$Z extremite=1 \
$Z >>! $FiLePoInTs$COORD_X
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FiLePoInTs.1$COORD_Y \
$Z origine=0 \
$Z extremite=1 \
$Z >>! $FiLePoInTs$COORD_Y
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FiLePoInTs.1$NIVEAU \
$Z origine=0 \
$Z extremite=1 \
$Z >>! $FiLePoInTs$COORD_Z
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier=$FiLePoInTs.1$NIVEAU \
$Z origine=$NOIR \
$Z extremite=$BLANC \
$Z formater=VRAI entier=VRAI epsilon=0.5 \
$Z >>! $FiLePoInTs$NIVEAU
$Z # Cette normalisation fait passer de {1,2,3,4,5,6,7,8,9} a {0,32,64,96,128,159,191,223,255}. #
$Z set NPoInTsX=`$CA $FiLePoInTs$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $FiLePoInTs$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $FiLePoInTs$COORD_Z | $WCl`
#20220615103306____:$Z set NPoInTs=`$xcg/MAX3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ` #
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`
$Z $xrv/particule.10$X npoints=$NPoInTs \
$Z LISTE_X=$FiLePoInTs$COORD_X \
$Z LISTE_Y=$FiLePoInTs$COORD_Y \
$Z LISTE_Z=$FiLePoInTs$COORD_Z \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=$_____Cubique \
$Z LISTE_dX=$_____GDerivees \
$Z LISTE_dY=$_____GDerivees \
$Z LISTE_dZ=$_____GDerivees \
$Z projection_parallele=VRAI \
$Z Vrayon=$_____VRayon \
$Z LISTE_NIVEAU=$FiLePoInTs$NIVEAU \
$Z p=$_____Palette \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z speculaire=$_____Speculaire \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z N_au_carre=VRAI \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____ParticulePara1 \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z # L'option "projection_parallele=VRAI" a ete introduite le 20141001105634 afin que les #
$Z # spheres materialisant les 9x9 chiffres semblent sur une resau carre 9x9... #
$Z FilSTmpE FiLePoInTs