#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E S P H E R 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/.PROJ.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20041110090651). #
# #
#######################################################################################################################################
$Z setParam _____Rayon 1.0
$Z # Parametre introduit le 20041110182218... #
$Z setParam _____Zoom 0.8
$Z setParam _____RotationX $pis2
$Z setParam _____RotationY 0
$Z # Parametre introduit le 20041125105245... #
$Z setParam _____RotationZ 0
$Z # Parametre introduit le 20041125105245... #
$Z setParam _____Arguments "$K_VIDE"
$Z # Parametre introduit le 20060130140239 pour permettre, par exemple, de generer les normales. #
#20150209172235____:$Z Pal #
$m4 _____include(_____xiirs/.PROJ.11.1.sphere._____U)
$m4 # Introduit sous cette forme le 20170210171007... #
$Z if ($?_____imagesRFx == $EXIST) then
$Z # Test introduit le 20041118162736... #
$Z $xci/acces$X \
$Z A=$xTV/Fx \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFx \
$Z $formatI
$Z # La memorisation de '$_____imagesRF?' a ete introduite le 20041112125926... #
$Z else
$Z endif
$Z if ($?_____imagesRFy == $EXIST) then
$Z # Test introduit le 20041118162736... #
$Z $xci/acces$X \
$Z A=$xTV/Fy \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFy \
$Z $formatI
$Z # La memorisation de '$_____imagesRF?' a ete introduite le 20041112125926... #
$Z else
$Z endif
$Z if ($?_____imagesRFz == $EXIST) then
$Z # Test introduit le 20041118162736... #
$Z $xci/acces$X \
$Z A=$xTV/Fz \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$_____imagesRFz \
$Z $formatI
$Z # La memorisation de '$_____imagesRF?' a ete introduite le 20041112125926... #
$Z else
$Z endif
$Z set Parametres="$K_VIDE"
$Z set Parametres="$Parametres"" np=1"
$Z set Parametres="$Parametres"" brume=FAUX"
$Z set Parametres="$Parametres"" pu=0.02 pv=0.02"
$Z set Parametres="$Parametres"" eu=20 ev=20"
$Z set Parametres="$Parametres"" dpu=40 dpv=40"
$Z set Parametres="$Parametres"" ZOOM=$_____Zoom"
$Z set Parametres="$Parametres"" ROTATION_OX=$_____RotationX"
$Z set Parametres="$Parametres"" ROTATION_OY=$_____RotationY"
$Z set Parametres="$Parametres"" ROTATION_OZ=$_____RotationZ"
$Z set Parametres="$Parametres"" Lz=100"
$Z set Parametres="$Parametres"" rayon_de_visualisation=0.015"
$Z set Parametres="$Parametres"" N_AU_CARRE=VRAI"
$Z set Parametres="$Parametres"" edc=VRAI"
$Z $xrs/project2D.11$X \
$Z aFx=$_____Rayon Fx=$xTV/Fx \
$Z aFy=$_____Rayon Fy=$xTV/Fy \
$Z aFz=$_____Rayon Fz=$xTV/Fz \
$Z mu=0 Mu=0.5 \
$Z mv=0 Mv=1.0 \
$Z $Parametres \
$Z chiffres=0 \
$Z R=$_____imagesR \
$Z $_____Arguments \
$Z $formatI
$Z # Rappelons que la sphere "unite" est definie par : #
$Z # #
$Z # F (u,v) = sin(u).cos(v) #
$Z # x #
$Z # #
$Z # F (u,v) = sin(u).sin(v) #
$Z # y #
$Z # #
$Z # F (u,v) = cos(u) #
$Z # z #
$Z # #
$Z # avec : #
$Z # #
$Z # u E [ 0 , pi ] #
$Z # #
$Z # v E [ 0 , 2.pi ] #
$Z # #
$Z # On voit que 'u' n'est definie que dans [0,pi], c'est pourquoi, on trouve ci-dessus : #
$Z # #
$Z # mu=0 Mu=0.5 #
$Z # #
$Z # de facon a n'exploiter que la moitie inferieure (partie gauche des images) des deux champs #
$Z # '$xTV/SINUS.u' et '$xTV/COSINUS.u' qui ont donc ete calcules dans [0,2.pi]. On ne peut #
$Z # malheureusement generer ces deux derniers dans [0,pi] a cause de la derivation numerique #
$Z # 'v $xrs/surfaces.12$I DERIVATION_PARTIELLE' qui peut provoquer, via les 'ADD2(...)' et #
$Z # les 'SOUS(...)', des sorties hors du champ calcule. Etant donne que '$xrs/project2D.11$X' #
$Z # est par defaut en mode "F?_periodiser_?=VRAI", il est donc essentiel que les deux champs #
$Z # champs '$xTV/SINUS.u' et '$xTV/COSINUS.u' soient reellement periodiques, ce qui empeche #
$Z # donc de les calculer dans [0,pi], alors que dans [0,2.pi] ils sont bien periodiques... #
$Z # Evidemment, on trouve ci-dessus : #
$Z # #
$Z # mv=0 Mv=1.0 #
$Z # #
$Z # 'v' etant elle, contrairement a 'u', bien definie dans [0,2.pi]... #
$Z if ($?_____imagesRTAV == $EXIST) then
$Z # Test introduit le 20050820092529... #
$Z $xrs/project2D.11$X \
$Z aFx=$_____Rayon Fx=$xTV/Fx \
$Z aFy=$_____Rayon Fy=$xTV/Fy \
$Z aFz=$_____Rayon Fz=$xTV/Fz \
$Z mu=0 Mu=0.5 \
$Z mv=0 Mv=1.0 \
$Z $Parametres \
$Z textures_standard=FAUX \
$Z TR=$xTV/Fx \
$Z TV=$xTV/Fy \
$Z TB=$xTV/Fz \
$Z projeter=VRAI projeter_textures=VRAI projeter_textures_avant_mapping=VRAI \
$Z projections_standard=VRAI zero=FAUX \
$Z T_periodiser_X=FAUX T_prolonger_X=FAUX T_symetriser_X=VRAI \
$Z T_periodiser_Y=FAUX T_prolonger_Y=FAUX T_symetriser_Y=VRAI \
$Z PTR=$_____imagesRTAV$ROUGE \
$Z PTV=$_____imagesRTAV$VERTE \
$Z PTB=$_____imagesRTAV$BLEUE \
$Z chiffres=0 \
$Z $formatI
$Z # La memorisation de la texture non mappee a ete introduite le 20050820092529... #
$Z else
$Z endif
$Z if ($?_____imagesRTAP == $EXIST) then
$Z # Test introduit le 20050820092529... #
$Z $xrs/project2D.11$X \
$Z aFx=$_____Rayon Fx=$xTV/Fx \
$Z aFy=$_____Rayon Fy=$xTV/Fy \
$Z aFz=$_____Rayon Fz=$xTV/Fz \
$Z mu=0 Mu=0.5 \
$Z mv=0 Mv=1.0 \
$Z $Parametres \
$Z textures_standard=FAUX \
$Z TR=$xTV/Fx \
$Z TV=$xTV/Fy \
$Z TB=$xTV/Fz \
$Z projeter=VRAI projeter_textures=VRAI projeter_textures_apres_mapping=VRAI \
$Z projections_standard=VRAI zero=FAUX \
$Z T_periodiser_X=FAUX T_prolonger_X=FAUX T_symetriser_X=VRAI \
$Z T_periodiser_Y=FAUX T_prolonger_Y=FAUX T_symetriser_Y=VRAI \
$Z PTR=$_____imagesRTAP$ROUGE \
$Z PTV=$_____imagesRTAP$VERTE \
$Z PTB=$_____imagesRTAP$BLEUE \
$Z chiffres=0 \
$Z $formatI
$Z # La memorisation de la texture mappee (et distordue) a ete introduite le 20050820092529... #
$Z else
$Z endif
$Z $DELETE $xTV/SINUS.u
$Z $DELETE $xTV/SINUS.v
$Z $DELETE $xTV/COSINUS.u
$Z $DELETE $xTV/COSINUS.v
$Z $DELETE $xTV/Fx
$Z $DELETE $xTV/Fy
$Z $DELETE $xTV/Fz
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.