#######################################################################################################################################
# #
# V I S U A L I S A T I O N D ' U N G R A P H E F R A C T A L R E C U R S I F : #
# #
# #
# Author of '$xiirf/.RECU.E5.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20110107095807). #
# #
#######################################################################################################################################
$Z setParam _____Degre 5
$Z setParam _____Recursivite 4
$Z setParam _____R0 0.95
$Z setParam _____FFH 0.37
$Z setParam _____Rayon `GetParam $xrf/recursif.11$X rayon_de_visualisation`
$Z setParam _____Zoom 1
$Z setParam _____RotationOX 0.0
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$Z setParam _____Points 32
$Z setParam _____NombreR 4
$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 $DELETE $xTV/GRAPHE
$Z set DThEtA=`calcul $dpi/$_____Degre`
$Z $xrf/recursif.11$X \
$Z np=1 \
$Z n=$_____Degre \
$Z recursivite=$_____Recursivite \
$Z PARAMETRE_dTHETA=$DThEtA \
$Z FACTEUR_MINIMAL_RAYON=1 \
$Z PARAMETRE_R0=$_____R0 \
$Z PARAMETRE_FFH=$_____FFH \
$Z changer_nombre_iterations=FAUX \
$Z visualiser_point_depart=VRAI visualiser_point_depart_N_fois=VRAI \
$Z lister_les_points=VRAI lister_les_points_apres=VRAI \
$Z Lz=1000 \
$Z rayon_de_visualisation=$_____Rayon \
$Z N_AU_CARRE=FAUX \
$Z extrema_hors=FAUX \
$Z R=$xTV/GRAPHE chiffres=0 \
$Z $formatI | \
$Z $GRE -v '^ *$' \
$Z >>! $xTV/GRAPHE
$Z # Definition du graphe... #
$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/GRAPHE | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_X
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Y
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COORDONNEES$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$ROUGE
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$VERTE
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/COULEURS$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $xTV/GRAPHE | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' \
$Z >>! $xTV/RAYONS
$Z # Recuperation des rayons. #
$Z $DELETE $xTV/GRAPHE
$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`
#20220615094648____:$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 zoom_automatique=FAUX ZOOM=1.0 \
$Z coordonnees_dans_0_1=FAUX \
$Z AXYZ=1 BXYZ=0 \
$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 Lz=1000 \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z ZOOM=$_____Zoom \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=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