#######################################################################################################################################
# #
# T R A C E D ' U N N O E U D S U R U N E S U R F A C E D O N N E E : #
# #
# #
# Author of '$xiirv/.KNOT.11.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20060817095136). #
# #
#######################################################################################################################################
$Z setParam _____Aduv +1
$Z setParam _____Bduv -1
$Z setParam _____Cduv 0
$Z setParam _____AjustCouleurs `GetParam $xrv/particule.10$X ajuster_couleurs`
$Z # Argument introduit le 20120519093144. Evidemment, lorsqu'il est utilise, il est conseille #
$Z # de faire : #
$Z # #
$Z # set _____TranslationRVB=0 #
$Z # #
$Z setParam _____AjustCouleursH `GetParam $xrv/particule.10$X ajuster_couleurs_independamment_homothetie`
$Z # Argument introduit le 20120519093144. #
$Z setParam _____AjustCouleursT `GetParam $xrv/particule.10$X ajuster_couleurs_independamment_translation`
$Z # Argument introduit le 20120519093144. #
$Z setParam _____TranslationRVB `GetParam $xrv/particule.10$X BR BV BB`
$Z # Argument introduit le 20120519093144. Une meme valeur est choisie pour les trois #
$Z # composantes car, en effet, le squelette du tore etant en Noir et Blanc, il faut que #
$Z # ses trois composantes soient translatees de la meme facon... #
$Z setParam _____RotationOX 0.0
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$Z setParam _____Zoom 1
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z set N_Au_CaRrE=VRAI
$Z # Pour simplifier l'acceleration temporaires du processus lors de tests de mise au point #
$Z # des parametres... #
$Z if ($?_____SurfaceA == $EXIST) then
$Z set SurfaceEffective=$_____SurfaceA
$Z if (! -e $SurfaceEffective) then
$Z set SurfaceEffective=$xrs/$SurfaceEffective
$Z if (! -e $SurfaceEffective) then
$Z set SurfaceEffective=$SurfaceEffective$X
$Z else
$Z endif
$Z else
$Z endif
$Z setParam _____Pu 0.5
$Z setParam _____Pv 0.5
$Z setParam _____SurfaceParam1 "$K_VIDE"
$Z setParam _____SurfaceParam2 "$K_VIDE"
$Z setParam _____SurfaceParam12 "$K_VIDE"
$Z setParam _____RVB0 0.2
$Z setParam _____RayonSurface 0.015
$Z setParam _____RayonDroite 0.050
$Z $DELETE $xTV/MAILLAGE
$Z $SurfaceEffective \
$Z np=1 \
$Z pu=$_____Pu pv=$_____Pv \
$Z eu=40 ev=40 \
$Z dpu=80 dpv=80 \
$Z maillage_uv=VRAI droite_uv=FAUX \
$Z tracer_une_droite_du_plan_uv_____compatibilite_20170130=VRAI \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z TZliste=0.5 \
$Z carree=VRAI petit_carre=FAUX \
$Z RVB=FAUX RVB0=$_____RVB0 \
$Z Lz=1000 \
$Z rayon_de_visualisation=$_____RayonSurface \
$Z N_AU_CARRE=FAUX \
$Z edc=VRAI \
$Z extrema_hors=FAUX \
$Z $_____SurfaceParam1 \
$Z $_____SurfaceParam12 \
$Z R=$xTV/SURFACE.m chiffres=0 \
$Z $formatI | \
$Z $GRE -v '^ *$' \
$Z >>! $xTV/MAILLAGE
$Z # Definition du maillage de la surface... #
$Z $SurfaceEffective \
$Z np=1 \
$Z pu=$_____Pu pv=$_____Pv \
$Z eu=40 ev=40 \
$Z dpu=80 dpv=80 \
$Z maillage_uv=FAUX droite_uv=VRAI \
$Z tracer_une_droite_du_plan_uv_____compatibilite_20170130=VRAI \
$Z Aduv=$_____Aduv Bduv=$_____Bduv Cduv=$_____Cduv \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z TZliste=0.5 \
$Z carree=VRAI petit_carre=FAUX \
$Z RVB=VRAI \
$Z Lz=1000 \
$Z rayon_de_visualisation=$_____RayonDroite \
$Z N_AU_CARRE=FAUX \
$Z edc=VRAI \
$Z extrema_hors=FAUX \
$Z $_____SurfaceParam2 \
$Z $_____SurfaceParam12 \
$Z R=$xTV/SURFACE.d chiffres=0 \
$Z $formatI | \
$Z $GRE -v '^ *$' \
$Z >>! $xTV/MAILLAGE
$Z # Definition d'une droite de la surface... #
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $DELETE $xTV/RAYONS
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$ROUGE
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$VERTE
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $xTV/MAILLAGE | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/RAYONS
$Z # Recuperation des rayons. #
$Z $DELETE $xTV/MAILLAGE
$Z set NPointsX=`$CA $xTV/COORDONNEES$COORD_X | $WCl`
$Z set NPointsY=`$CA $xTV/COORDONNEES$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $xTV/COORDONNEES$COORD_Z | $WCl`
#20220615104615____:$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 $xrv/particule.10$X np=1 iterations=$NPointsXYZ \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z LISTE_RAYON=$xTV/RAYONS \
$Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \
$Z LISTE_VERTE=$xTV/COULEURS$VERTE \
$Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \
$Z ajuster_couleurs=$_____AjustCouleurs \
$Z ajuster_couleurs_independamment_homothetie=$_____AjustCouleursH \
$Z ajuster_couleurs_independamment_translation=$_____AjustCouleursT \
$Z BR=$_____TranslationRVB BV=$_____TranslationRVB BB=$_____TranslationRVB \
$Z Lz=1000 \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z ZOOM=$_____Zoom \
$Z isoles=VRAI chainer=FAUX \
$Z RVB=VRAI \
$Z N_AU_CARRE=$N_Au_CaRrE \
$Z $_____ParticulePara1 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z CAL1=FAUX \
$Z $formatI
$Z # Visualisation du noeud... #
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z $DELETE $xTV/RAYONS
$Z else
$Z EROR "La surface '$_____SurfaceA' n'existe pas."
$Z endif