summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-geo/pst-map3d.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pst-geo/pst-map3d.pro')
-rw-r--r--Master/texmf-dist/dvips/pst-geo/pst-map3d.pro58
1 files changed, 29 insertions, 29 deletions
diff --git a/Master/texmf-dist/dvips/pst-geo/pst-map3d.pro b/Master/texmf-dist/dvips/pst-geo/pst-map3d.pro
index eb46bfac51e..bb98d796fb5 100644
--- a/Master/texmf-dist/dvips/pst-geo/pst-map3d.pro
+++ b/Master/texmf-dist/dvips/pst-geo/pst-map3d.pro
@@ -1,8 +1,10 @@
% premiere version 29 novembre 2003
-% entierement modifiee le 08/02/2008
-% allégée de 3D.pro
-% version 1.0 du 5 mars 2008
+% entierement modifiee le 11/08/2009
+% allegee de 3D.pro
+% version 1.01 2009-08-11 (hv)
% manuel.luque27@gmail.com
+% hvoss@tug.org
+%
/tx@map3DDict 100 dict def
tx@map3DDict begin
%%
@@ -20,7 +22,7 @@ tx@map3DDict begin
/region exch def
/nbr region length def % nombre de points
0 1 nbr 1 sub {
- /counter exch def % pour mémoriser le premier point vu
+ /counter exch def % pour memoriser le premier point vu
region counter get aload pop
CalcCoor
CalculsPointsAfterTransformations
@@ -116,8 +118,7 @@ TableauRegionsVisibles
/CalcCoordinates{%
formulesTroisD
Xi xunit Yi yunit
- }
- def
+} def
% pour la 3D conventionnelle
/formulesTroisD{%
/xObservateur Xabscisse Sin1 mul neg Yordonnee Cos1 mul add def
@@ -125,8 +126,7 @@ TableauRegionsVisibles
/zObservateur Xabscisse neg Cos1Cos2 mul Yordonnee Sin1Cos2 mul sub Zcote Sin2 mul sub Dobs add def
/Xi DScreen xObservateur mul zObservateur div def
/Yi DScreen yObservateur mul zObservateur div def
- }
-def
+} def
%
/CalculsPointsAfterTransformations{%
/Xabscisse M11 Xpoint mul M12 Ypoint mul add M13 Zpoint mul add def
@@ -135,12 +135,12 @@ def
}
def
%
-/Test { % test de visibilité d'un point
+/Test { % test de visibilite d'un point
% rayon vers point de vue
/RXvue XpointVue Xabscisse sub def
/RYvue YpointVue Yordonnee sub def
/RZvue ZpointVue Zcote sub def
-% test de visibilité
+% test de visibilite
/PS RXvue Xabscisse mul % produit scalaire
RYvue Yordonnee mul add
RZvue Zcote mul add
@@ -171,7 +171,7 @@ CalculsPointsAfterTransformations
/xCentreFacette Xabscisse def
/yCentreFacette Yordonnee def
/zCentreFacette Zcote def
-% normale à la facette
+% normale a la facette
/nXfacette xCentreFacette def
/nYfacette yCentreFacette def
/nZfacette zCentreFacette def
@@ -179,7 +179,7 @@ CalculsPointsAfterTransformations
/RXvue XpointVue xCentreFacette sub def
/RYvue YpointVue yCentreFacette sub def
/RZvue ZpointVue zCentreFacette sub def
-% test de visibilité
+% test de visibilite
/PSfacette RXvue nXfacette mul
RYvue nYfacette mul add
RZvue nZfacette mul add
@@ -375,7 +375,7 @@ def
end
} def
-% coordonnées sphériques -> coordonnées cartésiennes
+% coordonnees spheriques -> coordonnees cartesiennes
/rtp2xyz {
6 dict begin
/phi exch def
@@ -469,7 +469,7 @@ end
%%%%% ### rotV3d ###
%% rotation autour d'un vecteur u
%% defini par (ux,uy,uz)
-%% ici l'axe des pôles de la Terre
+%% ici l'axe des peles de la Terre
%% d'un angle theta
/rotV3d {
15 dict begin
@@ -506,7 +506,7 @@ u1 u2 u3 rotV3d
% vecteur normal dans le plan equateur
/theta0 u1 neg u2 atan def
theta0 cos theta0 sin 0 /v defpoint3d
-% w tels que le trièdre u v w soit direct
+% w tels que le triadre u v w soit direct
u v vectprod3d dupp3d norme3d 1 exch div mulv3d /w defpoint3d
/TabPointsVusNeg[
-180 1 0{ % for
@@ -637,11 +637,11 @@ def
50 dict begin
/l exch def % latitude : phi
/L exch def % longitude : theta
- /dlmax exch def % intervalle maximal en degrés
+ /dlmax exch def % intervalle maximal en degres
/nbr exch def % nombre de cercles
/dl dlmax nbr div def
% le vecteur unitaire normal
-% à la sphère au point considéré
+% a la sphere au point considere
L cos l cos mul
L sin l cos mul
l sin
@@ -655,8 +655,8 @@ def
/y_o r L sin mul l cos mul def
/z_o r l sin mul def
% un vecteur unitaire du plan du cercle
-% perpendiculaire à n et dans le plan méridien
-% donc même longitude
+% perpendiculaire a n et dans le plan meridien
+% donc meme longitude
/x_I Rsphere L cos mul l' cos mul def
/y_I Rsphere L sin mul l' cos mul def
/z_I Rsphere l' sin mul def
@@ -666,34 +666,34 @@ def
/uOI defpoint3d
uOI dupp3d norme3d 1 exch div mulv3d
/v defpoint3d
-% un vecteur w normal à u et v dans le plan du cercle
+% un vecteur w normal a u et v dans le plan du cercle
u v vectprod3d dupp3d norme3d 1 exch div mulv3d
/w defpoint3d
-% on décrit le cercle
-
+% on decrit le cercle
v 0 cos r' mul mulv3d
w 0 sin r' mul mulv3d
addv3d x_o y_o z_o addv3d
/Zpoint exch def /Ypoint exch def /Xpoint exch def
+ MatriceTransformation %%%%%%%%%%%%%%%%% hv 2009-08-11
CalculsPointsAfterTransformations
CalcCoordinates
moveto
-0 1 360{%
+ 0 1 360 {
/t exch def
v t cos r' mul mulv3d
w t sin r' mul mulv3d
addv3d x_o y_o z_o addv3d
- /Zpoint exch def /Ypoint exch def /Xpoint exch def
- CalculsPointsAfterTransformations
- CalcCoordinates
- lineto
+ /Zpoint exch def /Ypoint exch def /Xpoint exch def
+ CalculsPointsAfterTransformations
+ CalcCoordinates
+ lineto
} for
-stroke
+ stroke
} for
end
} def
-%% nouvelle construction des parallèles
+%% nouvelle construction des paralleles
/Parallel {
0 1 360{ % for
/theta exch def