#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N N O E U D Q U E L C O N Q U E : #
# #
# #
# Author of '$xiirv/.KNOT.21.3.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20060811121325). #
# #
#######################################################################################################################################
$Z set TeMp2=`GetXTmp`
$Z $CA $TeMp1 | \
$Z $SOR \
$Z > $TeMp2
$Z # Afin de mettre les points dans le bon ordre (numero 1, puis 2, puis 3,...). #
$Z Fdecoupe $TeMp2 .numero $COORD_X $COORD_Y $COORD_Z
$Z # Afin de generer (principalement) les trois listes {X,Y,Z}, la liste des numeros n'ayant #
$Z # servi ci-dessus qu'a faire le '$SOR'... #
$Z set NPointsX=`$CA $TeMp2$COORD_X | $WCl`
$Z set NPointsY=`$CA $TeMp2$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $TeMp2$COORD_Z | $WCl`
#20220615104436____:$Z set NPointsXYZ=`$xcg/MAX3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI` #
$Z set NPointsXYZ=`$xcg/MIN3.01$X x=$NPointsX y=$NPointsY z=$NPointsZ entier=VRAI`
$Z $xci/valeurs_inte$X \
$Z premiere=1 derniere=$NPointsXYZ \
$Z vD=$NOIR vA=$BLANC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $TeMp2$LUMIN
$Z # Generation de la liste des niveaux a utiliser pour acceder a la palette '$_____Palette'... #
$Z $xrv/particule.10$X np=1 iterations=$NPointsXYZ \
$Z dernier_premier=VRAI \
$Z LISTE_X=$TeMp2$COORD_X \
$Z LISTE_Y=$TeMp2$COORD_Y \
$Z LISTE_Z=$TeMp2$COORD_Z \
$Z LISTE_RAYON=$_____Rayon \
$Z LISTE_NIVEAU=$TeMp2$LUMIN \
$Z paletteA=$_____Palette \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z isoles=FAUX chainer=VRAI \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z cubique=VRAI \
$Z derivees_automatiques=VRAI \
$Z LISTE_dX=$_____Derivee LISTE_dY=$_____Derivee LISTE_dZ=$_____Derivee \
$Z RVB=VRAI \
$Z N_AU_CARRE=VRAI \
$Z $_____ParticulePara1 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z $formatI
$Z # Visualisation du noeud. #
$Z $DELETE $TeMp1*
$Z $DELETE $TeMp2*