#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E T R I M E N S I O N N E L L E " M A I L L A G E " #
# P A R L A M E T H O D E D E S P R O J E C T O R S : #
# #
# #
# Author of '$xiirs/.CAYA.G1.0129.3.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20110712094244). #
# #
#######################################################################################################################################
$Z setParam _____Puvw 0.2
$Z # Parametre introduit le 20110730103908... #
$Z setParam _____Euvw 160
$Z # Parametre introduit le 20110730103908... #
$Z setParam _____DPuvw 80
$Z # Parametre introduit le 20110730103908... #
$Z setParam _____TEuvw -20
$Z # Parametre introduit le 20110730103908... #
$Z setParam _____RayonR `GetParam $xrs/project3D.11$X Vrayon`
$Z setParam _____BiCubique FAUX
$Z # Parametre introduit le 20110719115351 pour 'v $xiirs/CAYA.H2.0129' afin d'avoir des #
$Z # lignes de coordonnees bien lisses (sans "coudes" anguleux...). #
$Z set LiStE_ReSeAu=$xTV/LISTE_POINTS_RESEAU
$Z $DELETE $LiStE_ReSeAu* >& $nul
$Z $xrs/project3D.11$X \
$Z np=1 \
$Z albumFx=$xTV/CHAMP$COORD_X. premiereFx=$Premiere \
$Z albumFy=$xTV/CHAMP$COORD_Y. premiereFy=$Premiere \
$Z albumFz=$xTV/CHAMP$COORD_Z. premiereFz=$Premiere \
$Z ROTATION_OX=$_____Rotation_OX \
$Z ROTATION_OY=$_____Rotation_OY \
$Z ROTATION_OZ=$_____Rotation_OZ \
$Z zoom_automatique=FAUX ZOOM=1.0 \
$Z pu=$_____Puvw eu=$_____Euvw dpu=$_____DPuvw teu=$_____TEuvw \
$Z pv=$_____Puvw ev=$_____Euvw dpv=$_____DPuvw tev=$_____TEuvw \
$Z pw=$_____Puvw ew=$_____Euvw dpw=$_____DPuvw tew=$_____TEuvw \
$Z Vrayon=$_____RayonR \
$Z lignes_de_coordonnees=$_____Grossissement \
$Z Lz=100 \
$Z N_AU_CARRE=VRAI \
$Z pxx=0 pyy=0 pzz=0 \
$Z pxu=1 pyv=1 pzw=1 \
$Z bicubique=$_____BiCubique \
$Z Fx_lineaire=VRAI Fy_lineaire=VRAI Fz_lineaire=VRAI \
$Z RVB=FAUX \
$Z R=$xTV/PROK.41 \
$Z chiffres=0 \
$Z lister_les_points=VRAI \
$Z lister_les_points_apres=VRAI \
$Z ChiffresFlot=12 \
$Z Zmax=$Zmax ValiderAxes=FAUX \
$Z $formatI \
$Z > $LiStE_ReSeAu
$Z # L'option "ChiffresFlot=12" est destinee a garantir la sortie des rayons afin de pouvoir #
$Z # distinguer ensuite ceux qui subissent '$_____Grossissement'... #
$Z # #
$Z # Le 20110713093850, la definition des lignes de coordonnees {u,v,w}={0.2,80,40} est passe #
$Z # a {0.2,160,80} afin d'avoir la meme "densite" de points que dans 'v $xiirs/.PROK.41.3.$U'. #
$Z # #
$Z # Le 20110713100013, la translation '-20' des lignes de coordonnees {u,v,w} a ete introduite #
$Z # afin de donner l'illusion du prolongement a l'infini dans toutes les directions de ces #
$Z # lignes... #
$Z # #
$Z # Le 20200727125044 furent introduites "Fx_lineaire=VRAI Fy_lineaire=VRAI Fz_lineaire=VRAI". #
$Z # Ces trois options ont ete introduite le 'v $xrs/project3D.11$K 20150528104916', soit #
$Z # apres la generation de 'v $xiirs/CAYA.G3.0129' le 20110730195944, ce qui explique pourquoi #
$Z # ces trois options etaient absentes a cette date. Enfin, On notera bien la difference avec #
$Z # "bicubique=" ('v $xrs/project3D.11$K bicubique='... #
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$COORD_X
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$COORD_Y
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$ROUGE
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$VERTE
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $LiStE_ReSeAu | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' \
$Z > $LiStE_ReSeAu.r
$Z # Recuperation des rayons. #
$Z set mRayonR=`$xrv/extrema.01$X ne=0 fichier=$LiStE_ReSeAu.r minimum_seul=VRAI`
$Z set MRayonR=`$xrv/extrema.01$X ne=0 fichier=$LiStE_ReSeAu.r maximum_seul=VRAI`
$Z # Extraction des extrema des rayons afin de reperer les noeuds du reseau... #
$Z $xrv/IFEQ.11$X \
$Z ne=0 \
$Z fichier1=$LiStE_ReSeAu.r \
$Z fichier2=$MRayonR \
$Z > $LiStE_ReSeAu.neuds
$Z # Reperage des noeuds du reseau... #
$Z set Noeuds_X=`$xrv/selection.01$X ne=0 fichier=$LiStE_ReSeAu$COORD_X selection=$LiStE_ReSeAu.neuds`
$Z set Noeuds_Y=`$xrv/selection.01$X ne=0 fichier=$LiStE_ReSeAu$COORD_Y selection=$LiStE_ReSeAu.neuds`
$Z set Noeuds_Z=`$xrv/selection.01$X ne=0 fichier=$LiStE_ReSeAu$COORD_Z selection=$LiStE_ReSeAu.neuds`
$Z # Liste {X,Y,Z} des noeuds du reseau... #