#######################################################################################################################################
# #
# E C H E L L E I N F I N I E D E S C A R D I N A U X I N F I N I S : #
# #
# #
# Author of '$xiirv/.HYCO.21.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20190125093528). #
# #
#######################################################################################################################################
$Z setParam _____NPoints 80
$Z setParam _____X0 +0.05
$Z setParam _____XN +3.8
$Z setParam _____Y0 -0.1
$Z setParam _____YN +9
$Z setParam _____Z0 0
$Z setParam _____ZN -25
$Z setParam _____Amplitude 2.2
$Z setParam _____TranslationX 0.020
$Z setParam _____TranslationY -1.2
$Z setParam _____TranslationZ 0
$Z setParam _____PRayon 0.02
$Z setParam _____Zoom 0.70
$Z setParam _____DistanceMini 0.040
$Z setParam _____ParticuleParaC "$K_VIDE"
$Z FilSTmpB LiStEPoInTs
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" rD=1 rA=1"
$Z set ArGuMeNtS="$ArGuMeNtS"" lineaire=VRAI"
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=+$_____TranslationX n01=0 n02=+$_____Amplitude \
$Z $ArGuMeNtS \
$Z xD=$_____X0 xA=$_____XN \
$Z > $LiStEPoInTs.1$COORD_X
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=-$_____TranslationX n01=0 n02=-$_____Amplitude \
$Z $ArGuMeNtS \
$Z xD=$_____X0 xA=$_____XN \
$Z > $LiStEPoInTs.2$COORD_X
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=$_____TranslationY n01=1 n02=0 \
$Z $ArGuMeNtS \
$Z xD=$_____Y0 xA=$_____YN \
$Z > $LiStEPoInTs.1$COORD_Y
$Z $xrv/neutre$X ne=0 \
$Z fichier=$LiStEPoInTs.1$COORD_Y \
$Z > $LiStEPoInTs.2$COORD_Y
$Z $xci/valeurs_poly$X premiere=1 derniere=$_____NPoints \
$Z n00=$_____TranslationZ n01=1 n02=0 \
$Z $ArGuMeNtS \
$Z xD=$_____Z0 xA=$_____ZN \
$Z > $LiStEPoInTs.1$COORD_Z
$Z $xrv/neutre$X ne=0 \
$Z fichier=$LiStEPoInTs.1$COORD_Z \
$Z > $LiStEPoInTs.2$COORD_Z
$Z $PAST $LiStEPoInTs.1$COORD_X $LiStEPoInTs.2$COORD_X | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $LiStEPoInTs$COORD_X
$Z $PAST $LiStEPoInTs.1$COORD_Y $LiStEPoInTs.2$COORD_Y | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $LiStEPoInTs$COORD_Y
$Z $PAST $LiStEPoInTs.1$COORD_Z $LiStEPoInTs.2$COORD_Z | \
$Z $AW ' { print $1 "\n" $2 } ' \
$Z > $LiStEPoInTs$COORD_Z
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$_____NPoints \
$Z vD=$BLANC vA=$NOIR_PLANCHER \
$Z lineaire=VRAI \
$Z entiers=VRAI | \
$Z $AW ' { print $1 "\n" $1 } ' \
$Z > $LiStEPoInTs$LUMIN
$Z $xrv/neutre$X ne=$_____NPoints \
$Z fichier=$_____PRayon \
$Z exemplaires=2 \
$Z > $LiStEPoInTs$RAYON
$Z set AXYZ_BXYZ="AXYZ=1 BXYZ=0"
$Z # Afin donc de traiter des coordonnees dans [-1,+1]... #
$Z set NPoInTsX=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z set NPoInTsY=`$CA $LiStEPoInTs$COORD_Y | $WCl`
$Z set NPoInTsZ=`$CA $LiStEPoInTs$COORD_Z | $WCl`
$Z set NPoInTs=`$xcg/MIN3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`
$Z $xrv/particule.10$X \
$Z np=1 \
$Z iterations=$NPoInTs \
$Z $AXYZ_BXYZ \
$Z LISTE_X=$LiStEPoInTs$COORD_X \
$Z LISTE_Y=$LiStEPoInTs$COORD_Y \
$Z LISTE_Z=$LiStEPoInTs$COORD_Z \
$Z LISTE_NIVEAU=$LiStEPoInTs$LUMIN \
$Z LISTE_RAYON=$LiStEPoInTs$RAYON \
$Z paletteA=$_____Palette \
$Z ZOOM=$_____Zoom \
$Z isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI \
$Z distance_minimale=$_____DistanceMini \
$Z DepthCueingMinimal=1.0 DepthCueingMaximal=1.0 \
$Z brume=FAUX \
$Z Lz=100 \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticuleParaC \
$Z chiffres=0 \
$Z R=$_____ImagesR \
$Z $formatI
$Z FilSTmpE LiStEPoInTs