#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N N O E U D : #
# #
# #
# Author of '$xiirv/.KNOT.71.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20130419144818). #
# #
#######################################################################################################################################
$Z setParam _____Co_X1 0.2
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_X2 0.5
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_X3 0.8
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Y1 0.0
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Y2 0.3
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Y3 $_____Co_Y2
$Z # Parametre introduit le 20130421104355... #
$Z setParam _____Co_Y4 0.5
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Y5 0.7
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Y6 $_____Co_Y5
$Z # Parametre introduit le 20130421104355... #
$Z setParam _____Co_Y7 1.0
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Z1 0.45
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Z2 0.5
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Co_Z3 0.55
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_X1 -1.4
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_X2 0
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_X3 +1.4
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_Y1 -1.4
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_Y2 0
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_Y3 +1.4
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____De_Z1 0
$Z # Parametre introduit le 20130420092822... #
$Z setParam _____Eval "$K_VIDE"
$Z setParam _____Rayon 0.040
$Z setParam _____Grossissement 1
$Z setParam _____Zoom 0.9
$Z setParam _____RotationX 0
$Z setParam _____RotationY 0
$Z setParam _____RotationZ 0
$Z setParam _____TranslationX `GetParam $xrv/particule.10$X TRANSLATION_OX`
$Z setParam _____TranslationY `GetParam $xrv/particule.10$X TRANSLATION_OY`
$Z setParam _____TranslationZ `GetParam $xrv/particule.10$X TRANSLATION_OZ`
$Z setParam _____Cubique VRAI
$Z setParam _____DeriveeX 0
$Z setParam _____DeriveeY 0
$Z setParam _____DeriveeZ 0
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/rouge_orang.22
$Z setParam _____Fond "$K_VIDE"
$Z setParam _____NAuCarre VRAI
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z setParam _____Redirection "$K_VIDE"
$Z # Parametre introduit le 20130403104021... #
$Z FileTmpB FiLeTmP_KNOT
$Z alias GenListe 'set LiStE=(\!:1) ; set FiLeR=\!:2 ; \\
$Z $DELETE $FiLeR ; \\
$Z echo "$LiStE" | \\
$Z $R " " "$K_NL" \\
$Z > $FiLeR ; \\
$Z unset LiStE FiLeR'
$Z # Definition du noeud : #
$Z # #
$Z # #
$Z # 1 #
$Z # | #
$Z # | #
$Z # | #
$Z # -------6 | -------- #
$Z # | | | #
$Z # | | | #
$Z # | | | #
$Z # | 2-------- | -------- #
$Z # 5 | | #
$Z # | | | #
$Z # | | 3 #
$Z # | 8 | #
$Z # | | #
$Z # -------------------4--------- #
$Z # #
$Z # | #
$Z # | #
$Z # | #
$Z # 9 #
$Z # #
$Z # #
$Z # Point1={$Co_X2,$Co_Y7,$Co_Z2,$De_X2,$De_Y2,$De_Z1} #
$Z # Point2={$Co_X2,$Co_Y5,$Co_Z3,$De_X2,$De_Y1,$De_Z1} #
$Z # Point3={$Co_X3,$Co_Y4,$Co_Z1,$De_X2,$De_Y1,$De_Z1} #
$Z # Point4={$Co_X2,$Co_Y2,$Co_Z3,$De_X1,$De_Y2,$De_Z1} #
$Z # Point5={$Co_X1,$Co_Y4,$Co_Z2,$De_X2,$De_Y3,$De_Z1} #
$Z # Point6={$Co_X2,$Co_Y6,$Co_Z1,$De_X3,$De_Y2,$De_Z1} #
$Z # Point7={$Co_X3,$Co_Y4,$Co_Z3,$De_X2,$De_Y1,$De_Z1} #
$Z # Point8={$Co_X2,$Co_Y3,$Co_Z1,$De_X2,$De_Y1,$De_Z1} #
$Z # Point9={$Co_X2,$Co_Y1,$Co_Z2,$De_X2,$De_Y2,$De_Z1} #
$Z # #
$Z set Co_X1=$_____Co_X1
$Z set Co_X2=$_____Co_X2
$Z set Co_X3=$_____Co_X3
$Z GenListe "$Co_X2 $Co_X2 $Co_X3 $Co_X2 $Co_X1 $Co_X2 $Co_X3 $Co_X2 $Co_X2" $FiLeTmP_KNOT$COORD_X
$Z set Co_Y1=$_____Co_Y1
$Z set Co_Y2=$_____Co_Y2
$Z set Co_Y3=$_____Co_Y3
$Z set Co_Y4=$_____Co_Y4
$Z set Co_Y5=$_____Co_Y5
$Z set Co_Y6=$_____Co_Y6
$Z set Co_Y7=$_____Co_Y7
$Z GenListe "$Co_Y7 $Co_Y5 $Co_Y4 $Co_Y2 $Co_Y4 $Co_Y6 $Co_Y4 $Co_Y3 $Co_Y1" $FiLeTmP_KNOT$COORD_Y
$Z set Co_Z1=$_____Co_Z1
$Z set Co_Z2=$_____Co_Z2
$Z set Co_Z3=$_____Co_Z3
$Z GenListe "$Co_Z2 $Co_Z3 $Co_Z1 $Co_Z3 $Co_Z2 $Co_Z1 $Co_Z3 $Co_Z1 $Co_Z2" $FiLeTmP_KNOT$COORD_Z
$Z set De_X1=$_____De_X1
$Z set De_X2=$_____De_X2
$Z set De_X3=$_____De_X3
$Z GenListe "$De_X2 $De_X2 $De_X2 $De_X1 $De_X2 $De_X3 $De_X2 $De_X2 $De_X2" $FiLeTmP_KNOT.derivees$COORD_X
$Z set De_Y1=$_____De_Y1
$Z set De_Y2=$_____De_Y2
$Z set De_Y3=$_____De_Y3
$Z GenListe "$De_Y2 $De_Y1 $De_Y1 $De_Y2 $De_Y3 $De_Y2 $De_Y1 $De_Y1 $De_Y2" $FiLeTmP_KNOT.derivees$COORD_Y
$Z set De_Z1=$_____De_Z1
$Z GenListe "$De_Z1 $De_Z1 $De_Z1 $De_Z1 $De_Z1 $De_Z1 $De_Z1 $De_Z1 $De_Z1" $FiLeTmP_KNOT.derivees$COORD_Z
$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 set NpartX=`$CA $FiLeTmP_KNOT$COORD_X | $WCl`
$Z set NpartY=`$CA $FiLeTmP_KNOT$COORD_Y | $WCl`
$Z set NpartZ=`$CA $FiLeTmP_KNOT$COORD_Z | $WCl`
$Z set Npart=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$Npart \
$Z vD=$NOIR vA=$BLANC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FiLeTmP_KNOT.niveaux
$Z eval $xrv/particule.10$X np=1 iterations=$Npart \
$Z LISTE_X=$FiLeTmP_KNOT$COORD_X \
$Z LISTE_Y=$FiLeTmP_KNOT$COORD_Y \
$Z LISTE_Z=$FiLeTmP_KNOT$COORD_Z \
$Z LISTE_dX=$FiLeTmP_KNOT.derivees$COORD_X \
$Z LISTE_dY=$FiLeTmP_KNOT.derivees$COORD_Y \
$Z LISTE_dZ=$FiLeTmP_KNOT.derivees$COORD_Z \
$Z LISTE_RAYON=$_____Rayon \
$Z grossissement=$_____Grossissement \
$Z LISTE_NIVEAU=$FiLeTmP_KNOT.niveaux \
$Z p=$_____Palette \
$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 projection_parallele=VRAI \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z distance_minimale=$_____DistanceMini \
$Z cubique=$_____Cubique \
$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 $_____Redirection
$Z # Le "projection_parallele=VRAI" a ete introduit le afin de garantir la symetrie du noeud, #
$Z # qui sinon a cause de la perspective ne l'est pas exactement... #
$Z FileTmpE FiLeTmP_KNOT