#######################################################################################################################################
# #
# 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.41.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20190903115950). #
# #
#######################################################################################################################################
$Z # Notations : #
$Z # #
$Z # H____________________________G #
$Z # \ / #
$Z # \ Horizontal / Y = constante #
$Z # \E______________________F/ #
$Z # #
$Z # #
$Z # D......................C #
$Z # | | #
$Z # | Vertical | Z = constante #
$Z # | | #
$Z # A----------------------B #
$Z # #
$Z # en notant qu'il n'est pas utile de tracer le cote CD (identique au cote EF)... #
$Z setParam _____CoordonneeX 0
$Z setParam _____CoordonneeY -0.4
$Z setParam _____CoordonneeZ +1.0
$Z setParam _____NMarches 16
$Z setParam _____LRectangle 0.20
$Z setParam _____HRectangle 0.05
$Z setParam _____ITrapezeX 0.10
$Z setParam _____dITrapezeX 0
$Z # Parametre introduit le 20190904104353... #
$Z setParam _____ITrapezeZ 0.12
$Z setParam _____dITrapezeZ 0
$Z # Parametre introduit le 20190904104353... #
$Z setParam _____PRayon 0.005
$Z setParam _____Couronne `GetParam $xrv/particule.10$X couronne`
$Z # Parametre introduit le 20190904150704... #
$Z setParam _____Zoom 1.00
$Z setParam _____RotationOX 0.4
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$Z setParam _____DistanceMini 0.010
$Z setParam _____ParticuleParaC "$K_VIDE"
$Z FilSTmpB LiStEPoInTs
$Z set CoMpTeUr=1
$Z set CoOrDoNnEe_XA=`calcul $_____CoordonneeX-($_____LRectangle/2)`
$Z set CoOrDoNnEe_XB=`calcul $_____CoordonneeX+($_____LRectangle/2)`
$Z set CoOrDoNnEe_XC=$CoOrDoNnEe_XB
$Z set CoOrDoNnEe_XD=$CoOrDoNnEe_XA
$Z set CoOrDoNnEe_YA=$_____CoordonneeY
$Z set CoOrDoNnEe_YB=$_____CoordonneeY
$Z set CoOrDoNnEe_YC=`calcul $_____CoordonneeY+$_____HRectangle`
$Z set CoOrDoNnEe_YD=`calcul $_____CoordonneeY+$_____HRectangle`
$Z set CoOrDoNnEe_ZA=$_____CoordonneeZ
$Z set CoOrDoNnEe_ZB=$_____CoordonneeZ
$Z set CoOrDoNnEe_ZC=$_____CoordonneeZ
$Z set CoOrDoNnEe_ZD=$_____CoordonneeZ
$Z set ITrApEzEX=$_____ITrapezeX
$Z set ITrApEzEZ=$_____ITrapezeZ
$Z # Afin que ces parametres puissent evoluer au cours de l'iteration 'while(...)'... #
$Z alias Genere 'set CoOrDoNnEe1=\!:1 ; set CoOrDoNnEe2=\!:2 ; set TypE=\!:3 ; \\
$Z echo "$CoOrDoNnEe1\n$CoOrDoNnEe2" >>! $LiStEPoInTs$TypE ; \\
$Z unset CoOrDoNnEe1 CoOrDoNnEe2 TypE'
$Z # Generateur des differentes graines ... #
$Z while ($CoMpTeUr <= $_____NMarches)
$Z set CoOrDoNnEe_XE=$CoOrDoNnEe_XD
$Z set CoOrDoNnEe_XF=$CoOrDoNnEe_XC
$Z set CoOrDoNnEe_XG=`calcul $CoOrDoNnEe_XF+($ITrApEzEX)`
$Z set CoOrDoNnEe_XH=`calcul $CoOrDoNnEe_XE-($ITrApEzEX)`
$Z set CoOrDoNnEe_YE=$CoOrDoNnEe_YD
$Z set CoOrDoNnEe_YF=$CoOrDoNnEe_YC
$Z set CoOrDoNnEe_YG=$CoOrDoNnEe_YC
$Z set CoOrDoNnEe_YH=$CoOrDoNnEe_YD
$Z set CoOrDoNnEe_ZE=$CoOrDoNnEe_ZD
$Z set CoOrDoNnEe_ZF=$CoOrDoNnEe_ZC
$Z set CoOrDoNnEe_ZG=`calcul $CoOrDoNnEe_ZF-($ITrApEzEZ)`
$Z set CoOrDoNnEe_ZH=`calcul $CoOrDoNnEe_ZE-($ITrApEzEZ)`
$Z Genere $CoOrDoNnEe_XA $CoOrDoNnEe_XB $COORD_X
$Z Genere $CoOrDoNnEe_YA $CoOrDoNnEe_YB $COORD_Y
$Z Genere $CoOrDoNnEe_ZA $CoOrDoNnEe_ZB $COORD_Z
$Z Genere $CoOrDoNnEe_XB $CoOrDoNnEe_XC $COORD_X
$Z Genere $CoOrDoNnEe_YB $CoOrDoNnEe_YC $COORD_Y
$Z Genere $CoOrDoNnEe_ZB $CoOrDoNnEe_ZC $COORD_Z
$Z Genere $CoOrDoNnEe_XD $CoOrDoNnEe_XA $COORD_X
$Z Genere $CoOrDoNnEe_YD $CoOrDoNnEe_YA $COORD_Y
$Z Genere $CoOrDoNnEe_ZD $CoOrDoNnEe_ZA $COORD_Z
$Z Genere $CoOrDoNnEe_XE $CoOrDoNnEe_XF $COORD_X
$Z Genere $CoOrDoNnEe_YE $CoOrDoNnEe_YF $COORD_Y
$Z Genere $CoOrDoNnEe_ZE $CoOrDoNnEe_ZF $COORD_Z
$Z Genere $CoOrDoNnEe_YF $CoOrDoNnEe_YG $COORD_Y
$Z Genere $CoOrDoNnEe_ZF $CoOrDoNnEe_ZG $COORD_Z
$Z Genere $CoOrDoNnEe_XF $CoOrDoNnEe_XG $COORD_X
$Z Genere $CoOrDoNnEe_XG $CoOrDoNnEe_XH $COORD_X
$Z Genere $CoOrDoNnEe_YG $CoOrDoNnEe_YH $COORD_Y
$Z Genere $CoOrDoNnEe_ZG $CoOrDoNnEe_ZH $COORD_Z
$Z Genere $CoOrDoNnEe_XH $CoOrDoNnEe_XE $COORD_X
$Z Genere $CoOrDoNnEe_YH $CoOrDoNnEe_YE $COORD_Y
$Z Genere $CoOrDoNnEe_ZH $CoOrDoNnEe_ZE $COORD_Z
$Z set CoOrDoNnEe_XA=$CoOrDoNnEe_XH
$Z set CoOrDoNnEe_XB=$CoOrDoNnEe_XG
$Z set CoOrDoNnEe_XC=$CoOrDoNnEe_XB
$Z set CoOrDoNnEe_XD=$CoOrDoNnEe_XA
$Z set CoOrDoNnEe_YA=$CoOrDoNnEe_YH
$Z set CoOrDoNnEe_YB=$CoOrDoNnEe_YG
$Z set CoOrDoNnEe_YC=`calcul $CoOrDoNnEe_YB+$_____HRectangle`
$Z set CoOrDoNnEe_YD=`calcul $CoOrDoNnEe_YA+$_____HRectangle`
$Z set CoOrDoNnEe_ZA=$CoOrDoNnEe_ZH
$Z set CoOrDoNnEe_ZB=$CoOrDoNnEe_ZG
$Z set CoOrDoNnEe_ZC=$CoOrDoNnEe_ZB
$Z set CoOrDoNnEe_ZD=$CoOrDoNnEe_ZA
$Z set ITrApEzEX=`$xcg/ADD2.01$X a=$ITrApEzEX b=$_____dITrapezeX`
$Z set ITrApEzEZ=`$xcg/ADD2.01$X a=$ITrApEzEZ b=$_____dITrapezeZ`
$Z @ CoMpTeUr = $CoMpTeUr + 1
$Z end
$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 $xci/valeurs_inte$X \
$Z premiere=1 derniere=$NPoInTs \
$Z vD=$BLANC vA=$NOIR_PLANCHER \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $LiStEPoInTs$LUMIN
$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=$_____PRayon \
$Z paletteA=$_____Palette \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI \
$Z couronne=$_____Couronne \
$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
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.