#######################################################################################################################################
# #
# " M I X A G E " D E D E U X S U R F A C E S : #
# #
# #
# Author of '$xiirs/.SPHE.K1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20170114135620). #
# #
#######################################################################################################################################
$Z setParam _____FacteurRayon 1
$Z # Parametre introduit le 20170131170428... #
$Z setParam _____AjustCouleurs `GetParam $xrv/particule.10$X ajuster_couleurs`
$Z setParam _____AjustCouleursH `GetParam $xrv/particule.10$X ajuster_couleurs_independamment_homothetie`
$Z setParam _____AjustCouleursT `GetParam $xrv/particule.10$X ajuster_couleurs_independamment_translation`
$Z setParam _____TranslationRVB 0
$Z setParam _____DepthCueing `GetParam $xrv/particule.10$X ZminimumT`
$Z setParam _____RotationOX 0.0
$Z setParam _____RotationOY 0.0
$Z setParam _____RotationOZ 0.0
$Z setParam _____Points 32
$Z setParam _____Zoom 1
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z set N_Au_CaRrE=FAUX
$Z # Pour simplifier l'acceleration temporaires du processus lors de tests de mise au point #
$Z # des parametres... #
$Z FileTmpB FiLeTmP_COORDONNEES
$Z FileTmpB FiLeTmP_COULEURS
$Z FileTmpB FiLeTmP_RAYONS
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* X=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COORDONNEES$COORD_X
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* Y=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COORDONNEES$COORD_Y
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* Z=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COORDONNEES$COORD_Z
$Z # Recuperation des coordonnees {X,Y,Z}. #
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* ROUGE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COULEURS$ROUGE
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* VERTE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COULEURS$VERTE
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* BLEUE=//" \
$Z -e 's/ .*$//' \
$Z >>! $FiLeTmP_COULEURS$BLEUE
$Z # Recuperation des couleurs {ROUGE,VERTE,BLEUE}. #
$Z $CA $FiLeTmP_Surfaces | \
$Z $SE -e "s/^.* RAYON=//" \
$Z -e 's/ .*$//' | \
$Z $xrv/MUL2.11$X \
$Z ne=0 \
$Z fichier1== \
$Z fichier2=$_____FacteurRayon \
$Z >>! $FiLeTmP_RAYONS
$Z # Recuperation des rayons. #
$Z set NPointsX=`$CA $FiLeTmP_COORDONNEES$COORD_X | $WCl`
$Z set NPointsY=`$CA $FiLeTmP_COORDONNEES$COORD_Y | $WCl`
$Z set NPointsZ=`$CA $FiLeTmP_COORDONNEES$COORD_Z | $WCl`
#20220615105140____:$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 if (-e $_____RotationOY) then
$Z # La possibilite que '$_____RotationOY' soit un fichier permet de generer des stereogrammes. #
$Z set NImAgEs=`$CA $_____RotationOY | $WCl`
$Z set ImAgER=$_____ImageR.
$Z set ChIfFrEs=4
$Z else
$Z set NImAgEs=1
$Z set ImAgER=$_____ImageR
$Z set ChIfFrEs=0
$Z endif
$Z $xrv/particule.10$X np=$NImAgEs iterations=$NPointsXYZ \
$Z LISTE_X=$FiLeTmP_COORDONNEES$COORD_X \
$Z LISTE_Y=$FiLeTmP_COORDONNEES$COORD_Y \
$Z LISTE_Z=$FiLeTmP_COORDONNEES$COORD_Z \
$Z LISTE_RAYON=$FiLeTmP_RAYONS \
$Z LISTE_ROUGE=$FiLeTmP_COULEURS$ROUGE \
$Z LISTE_VERTE=$FiLeTmP_COULEURS$VERTE \
$Z LISTE_BLEUE=$FiLeTmP_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 Zminimum=$_____DepthCueing ZminimumT=$_____DepthCueing \
$Z ROTATION_OX=$_____RotationOX \
$Z ROTATION_OY=$_____RotationOY \
$Z ROTATION_OZ=$_____RotationOZ \
$Z ZOOM=$_____Zoom \
$Z isoles=VRAI \
$Z RVB=VRAI \
$Z N_AU_CARRE=$N_Au_CaRrE \
$Z $_____ParticulePara1 \
$Z R=$ImAgER \
$Z chiffres=$ChIfFrEs \
$Z CAL1=FAUX \
$Z $formatI
$Z # Visualisation du noeud... #
$Z FileTmpE FiLeTmP_RAYONS
$Z FileTmpE FiLeTmP_COULEURS
$Z FileTmpE FiLeTmP_COORDONNEES