summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-geo
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 00:56:57 +0000
commitf07bb53970ee2ecc53f81a206a3d3a67ef665e4a (patch)
tree6f57a1d62971db79e5ff023bdfd83b22cb971dc9 /Master/texmf-dist/doc/generic/pst-geo
parent007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (diff)
doc 6
git-svn-id: svn://tug.org/texlive/trunk@85 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-geo')
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/README18
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE6
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgzbin0 -> 651539 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgzbin0 -> 3347 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgzbin0 -> 1066 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty3
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex406
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty3
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex493
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty3
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex187
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty3
-rw-r--r--Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex280
13 files changed, 1402 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-geo/README b/Master/texmf-dist/doc/generic/pst-geo/README
new file mode 100644
index 00000000000..427f71d8e50
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/README
@@ -0,0 +1,18 @@
+2004-05-09 data small database and city files "extract the tarzip"
+2004-05-10 dataII big database "extract the tarzip"
+2004-05-07 doc "extract the tarzip"
+2004-05-10 examples2d "extract the tarzip"
+2004-05-10 examples3d "extract the tarzip"
+2004-05-04 map3d.pro PostScript header file
+2004-05-05 map3dII.pro PostScript header file
+2004-05-03 pst-map2d.sty LaTeX style file
+2004-05-09 pst-map2d.tex corresponding TeX file
+2004-05-03 pst-map2dII.sty LaTeX style file
+2004-05-09 pst-map2dII.tex corresponding TeX file
+2004-05-03 pst-map3d.sty LaTeX style file
+2004-05-09 pst-map3d.tex corresponding TeX file
+2004-05-03 pst-map3dII.sty LaTeX style file
+2004-05-09 pst-map3dII.tex corresponding TeX file
+
+Install all files as usual, decompress the zipped ones and update
+the TeX database with texhash or mktexlsr, if needed. \ No newline at end of file
diff --git a/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE b/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE
new file mode 100644
index 00000000000..9ee7b945a23
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE
@@ -0,0 +1,6 @@
+We have removed the (30 megabyte) dataII/dataII.tgz file from TeX Live,
+and data/data.tgz (for another 1.5mb), to save space for the CD-sized TL
+inst distribution. They can be found at
+CTAN:graphics/pstricks/contrib/pst-geo.
+
+--karl@tug.org, September 2005. (This README.TEXLIVE file is public domain. :)
diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz b/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz
new file mode 100644
index 00000000000..c3a50215c93
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgz b/Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgz
new file mode 100644
index 00000000000..28db02a0748
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgz
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgz b/Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgz
new file mode 100644
index 00000000000..6a6c4a002b8
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgz
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty
new file mode 100644
index 00000000000..4a1f0d756bb
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty
@@ -0,0 +1,3 @@
+\ProvidesPackage{pst-map2d}[2003/12/05 package wrapper for PSTricks pst-map2d.tex]
+\input pst-map2d.tex
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex
new file mode 100644
index 00000000000..9825d8376ad
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex
@@ -0,0 +1,406 @@
+%%
+%% This is file `pst-map2d.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-map2d.tex'
+%%
+%% Manuel Luque <Mluque5130@aol.com> (France)
+%% Giuseppe Matarazzo <joematara@hotmail.com> (Italy)
+%% Herbert Voss <voss@perce.de> (Germany)
+%%
+%% May 09, 2004
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-map2d' is a PSTricks package to create geographical objects
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fileversion{1.05}
+\def\filedate{2004/05/10}
+
+\message{`PST-map2d' v\fileversion, \filedate\space (ML/GM/HV)}
+
+\csname PSTMaptwod\endcsname
+\let\PSTMaptwodLoaded\endinput
+
+% Require PSTricks
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
+% David Carlisle interface to the `keyval' package.
+\input pst-key.tex
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+
+\SpecialCoor
+%
+\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données
+\setkeys{psset}{path=data}
+%\openin1=chemin.txt
+%\read1 to \psk@WorldMap@Path
+%
+\define@key{psset}{level}{\edef\psk@WorldMap@level{#1}}
+\setkeys{psset}{level=1}
+%
+\define@key{psset}{type}{\edef\psk@WorldMap@type{#1}}
+\setkeys{psset}{type=1}
+% type=1 ==> Mercator
+% type=2 ==> Lambert
+% type=3 ==> simple
+% type=4 ==> Sanson-Flamsteed
+% type=5 ==> cylindrical
+% type=6 ==> Babinet
+% type=7 ==> Collignon
+% type=8 ==> Bonne
+\define@key{psset}{n}{\edef\psk@WorldMap@n{#1}}
+\setkeys{psset}{n=1.77245} % sqrt(pi) % pour Collignon
+%
+\define@key{psset}{limiteL}{\edef\psk@WorldMap@limiteL{#1}}
+\setkeys{psset}{limiteL=180} % longitude limite
+%
+\define@key{psset}{latitude0}{\edef\psk@WorldMap@latitudeO{#1}}
+\setkeys{psset}{latitude0=45} % pour Bonne latitude 0
+%
+\define@key{psset}{longitude0}{\edef\psk@WorldMap@longitudeO{#1}}
+\setkeys{psset}{longitude0=0} % pour Bonne longitude 0
+%
+\define@key{psset}{increment}{\edef\psk@WorldMap@increment{#1}}
+\setkeys{psset}{increment=10}
+%
+\define@key{psset}{MapFillColor}{\edef\psk@WorldMap@Fillcolor{#1}} % couleur des continents
+\setkeys{psset}{MapFillColor= 0.99 0.95 0.7 }
+%
+\newif\ifPst@WorldMap@capitals
+\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}}
+\setkeys{psset}{capital=false}
+%
+\newif\ifPst@WorldMap@city
+\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}}
+\setkeys{psset}{city=false}
+%
+\newif\ifPst@WorldMap@Rivers
+\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMap@Rivers#1}}
+\setkeys{psset}{rivers=true}
+%
+\newif\ifPst@WorldMap@Borders
+\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMap@Borders#1}}
+\setkeys{psset}{borders=false}
+%
+\newif\ifPst@WorldMap@maillage
+\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}}
+\setkeys{psset}{maillage=true}
+%
+\newif\ifPst@WorldMap@Fill
+\define@key{psset}{Fill}[true]{\@nameuse{Pst@WorldMap@Fill#1}}
+\setkeys{psset}{Fill=true}
+%
+\newif\ifPst@WorldMap@USA
+\define@key{psset}{USA}[false]{\@nameuse{Pst@WorldMap@USA#1}}
+\setkeys{psset}{USA=false}
+%
+\newif\ifPst@WorldMap@AUS
+\define@key{psset}{AUS}[false]{\@nameuse{Pst@WorldMap@AUS#1}}
+\setkeys{psset}{AUS=false}
+%
+\newif\ifPst@WorldMap@MEX
+\define@key{psset}{MEX}[false]{\@nameuse{Pst@WorldMap@MEX#1}}
+\setkeys{psset}{MEX=false}
+%
+\def\VariablesMap{%
+ /Coeff_mercatorY {2 div 45 add dup sin exch cos div ln 57.2958 mul} def % Mercator
+ /Coeff_simpleY {1 mul} def % simple
+ /Coeff_lambertY {sin 57.2958 mul} def % Lambert
+ /Coeff_sanson_flamsteedY {1 mul} def % Sanson_Flamstead
+ /Coeff_cylindricalY { dup sin exch cos div 57.2958 mul} def % Cylindrical
+ /Coeff_babinetY { sin 2 sqrt mul 57.2958 mul} def % Babinet
+ /n \psk@WorldMap@n\space def
+ /Coeff_collignonY { 0 ge { 1 2 sqrt 90 Y sub 2 div sin mul sub 57.2958 mul n mul}
+ { 1 2 sqrt 90 Y add 2 div sin mul sub 57.2958 mul n mul neg} ifelse }def % Collignon
+ /Coeff_BonneY {pop /RHO l0 dup cos exch sin div Y neg l0 add 57.2958 div add def
+ /Theta Y cos X L0 sub mul RHO div def
+ Theta cos RHO mul neg 57.2958 mul}def % Bonne
+%
+ /Coeff_mercatorX {1 mul} def % Mercator
+ /Coeff_simpleX {1 mul} def % simple
+ /Coeff_lambertX {1 mul} def % Lambert
+ /Coeff_sanson_flamsteedX {Y cos mul} def % Sanson_Flamstead
+ /Coeff_cylindricalX { 1 mul } def % Cylindrical
+ /Coeff_babinetX { 2 mul 2 sqrt mul 3.1415926 div Y cos mul} def % Babinet
+ /Coeff_collignonX { 2 mul 2 sqrt mul 90 Y abs sub 2 div sin mul n div} def % Collignon
+ /l0 \psk@WorldMap@latitudeO\space def
+ /L0 \psk@WorldMap@longitudeO\space def
+ /Coeff_BonneX { pop /RHO l0 dup cos exch sin div Y neg l0 add 57.2958 div add def
+ /Theta Y cos X L0 sub mul RHO div def
+ Theta sin RHO mul 57.2958 mul } def % Bonne
+ \ifcase\psk@WorldMap@type\or
+ /CoeffY {Coeff_mercatorY} def
+ /CoeffX {Coeff_mercatorX} def
+ /StartY -85 def
+ \or
+ /CoeffY {Coeff_simpleY} def
+ /CoeffX {Coeff_simpleX} def
+ /StartY -90 def
+ \or
+ /CoeffY {Coeff_lambertY} def
+ /CoeffX {Coeff_lambertX} def
+ /StartY -90 def
+ \or
+ /CoeffY {Coeff_sanson_flamsteedY} def
+ /CoeffX {Coeff_sanson_flamsteedX} def
+ /StartY -90 def
+ \or
+ /CoeffY {Coeff_cylindricalY} def
+ /CoeffX {Coeff_cylindricalX} def
+ /StartY -85 def
+ \or
+ /CoeffY {Coeff_babinetY} def
+ /CoeffX {Coeff_babinetX} def
+ /StartY -90 def
+ \or
+ /CoeffY {Coeff_collignonY} def
+ /CoeffX {Coeff_collignonX} def
+ /StartY -90 def
+ \or
+ /CoeffY {Coeff_BonneY} def
+ /CoeffX {Coeff_BonneX} def
+ /StartY -90 def
+ \fi%
+ /step \psk@WorldMap@level\space def % hv 2004-05-04
+}
+\newcount\TypeProjection
+\def\WorldMap{\pst@object{WorldMap}}
+\def\WorldMap@i{\@ifnextchar[{\WorldMap@do}{\WorldMap@do[]}}
+\def\WorldMap@do[#1]{{%
+ \setkeys{psset}{#1}%
+ \begin@ClosedObj
+ \addto@pscode{%
+ \VariablesMap
+ (\psk@WorldMap@Path/river.dat) run
+ (\psk@WorldMap@Path/pcoast.dat) run
+ (\psk@WorldMap@Path/pisland.dat) run
+ (\psk@WorldMap@Path/pborder.dat) run
+ (\psk@WorldMap@Path/plake.dat) run
+ (\psk@WorldMap@Path/usa.dat) run
+ (\psk@WorldMap@Path/aus.dat) run
+ (\psk@WorldMap@Path/mex.dat) run
+ 1 setlinejoin
+ 0 0 translate
+ /xunit {\pst@number\psxunit\space mul 20 div }def
+ /yunit {\pst@number\psyunit\space mul 20 div }def
+ /increment \psk@WorldMap@increment\space def
+ /limiteLongitude \psk@WorldMap@limiteL\space def
+%
+ \ifPst@WorldMap@Fill
+ gsave
+ newpath
+ /X limiteLongitude neg def
+ /Y StartY def
+ X CoeffX xunit Y CoeffY yunit moveto
+ StartY 2 StartY neg {%
+ /Y exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+ } for
+ /X limiteLongitude def
+ StartY neg -2 StartY {
+ /Y exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+ } for
+ closepath
+ /Color {0.5 0.8 0.8} def
+ Color setrgbcolor
+ fill
+ grestore
+ \fi
+ /CalculsPoints {
+ /region exch def
+ newpath
+ /nbr region length def % nombre de régions
+ region 0 get aload pop
+ /Y exch def /X exch def
+ X CoeffX xunit Y CoeffY yunit moveto
+ /ncount 0 def % hv 2004-05-04
+ 0 1 nbr 1 sub {
+ /ncount ncount 1 add def % hv 2004-05-04
+ region exch get aload pop
+ ncount step mod 0 eq nbr ncount sub 0 lt or { % hv 2004-05-04
+ /Y exch def /X exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+ }{ pop pop } ifelse % hv 2004-05-04
+ } for
+ } def
+%
+ /Draw { {
+ CalculsPoints
+ \ifPst@WorldMap@Fill
+ closepath
+% Colour in earth's surfaces
+ gsave
+ Color setrgbcolor
+ fill
+ grestore
+ \fi
+ stroke
+ } forall
+ } def
+\ifPst@WorldMap@Borders
+ border
+\else
+ coasts
+\fi
+%/Color {0.5 0.8 0.5} def
+/Color {\psk@WorldMap@Fillcolor} def
+ Draw
+islands
+ Draw
+\ifPst@WorldMap@MEX
+mexico
+ Draw
+\fi
+\ifPst@WorldMap@USA
+usa
+ Draw
+\fi
+\ifPst@WorldMap@AUS
+australia
+ Draw
+\fi
+/Color {0.5 0.8 0.8} def
+lake
+ Draw
+% les rivières
+\ifPst@WorldMap@Rivers
+/DrawRivers {
+ {
+CalculsPoints
+0 0 1 setrgbcolor
+stroke
+} forall
+}def
+river
+DrawRivers
+\fi
+%
+\ifPst@WorldMap@maillage
+% meridiens
+limiteLongitude neg increment limiteLongitude {% for X
+ /X exch def
+ newpath
+ /Y StartY def
+ X CoeffX xunit StartY CoeffY yunit moveto
+StartY increment 10 div StartY neg { % for Y
+ /Y exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+} for
+gsave
+% 11 janvier 2004
+X 0 eq {1 0 0 setrgbcolor}{0.2 setgray} ifelse
+%
+0.25 setlinewidth
+stroke
+grestore
+} for
+% parallèles
+StartY increment StartY neg {% for Y
+ /Y exch def
+newpath
+ /X limiteLongitude neg def
+ X CoeffX xunit Y CoeffY yunit moveto
+limiteLongitude neg increment 10 div limiteLongitude { % for X
+ /X exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+} for
+% 11 janvier 2004
+Y 0 eq {1 0 0 setrgbcolor}{0.2 setgray} ifelse
+%
+0.25 setlinewidth
+stroke
+} for
+\fi
+/DrawCitys {
+/CITY exch def
+/Rayon exch def
+/nbr CITY length def % nombre de villes
+0 1 nbr 1 sub {
+ /compteur exch def
+ CITY compteur get aload pop
+ /X exch def /Y exch def
+ gsave
+ 1 0 0 setrgbcolor newpath
+ X CoeffX xunit Y CoeffY yunit
+ Rayon 0 360 arc closepath fill
+ grestore
+} for
+} def
+\ifPst@WorldMap@city
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5 % rayon du point
+ citycapitals
+ DrawCitys
+% les autres villes
+ (\psk@WorldMap@Path/c-sub.dat) run
+ 0.5 % rayon du point
+ CitySub
+DrawCitys
+\fi
+\ifPst@WorldMap@capitals
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5
+ citycapitals
+ DrawCitys
+\fi
+}%
+\end@ClosedObj
+}}
+%
+\def\pnodeMap(#1,#2)#3{% hv 2004-05-09
+ \pst@killglue
+ \pnode(!
+ \VariablesMap
+ /Y #2 def
+ /X #1 def
+ X CoeffX 20 div Y CoeffY 20 div){#3}%
+}
+%
+%------------------- hv 2004-05-08 ----------------------
+\def\psNodeLabelStyle{}
+\define@key{psset}{mapCountry}{\edef\psk@WorldMap@mapCountry{#1}}
+\setkeys{psset}{mapCountry=all}
+\define@key{psset}{nodeWidth}{\edef\psk@WorldMap@nodeWidth{#1}}
+\setkeys{psset}{nodeWidth=1mm}
+\newpsstyle{psNodeMapStyle}{fillstyle=solid,fillcolor=red}
+%
+\def\mapput{\@ifnextchar[{\mapput@i}{\mapput@i[90]}}
+\def\mapput@i[#1](#2,#3){\@ifnextchar[{\mapput@iii[#1](#2,#3)}{\mapput@ii[#1](#2,#3)}}
+\def\mapput@ii[#1](#2,#3)#4{\mapput@iii[#1](#2,#3)[#4]{#4}}
+\def\mapput@iii[#1](#2,#3)[#4]#5{%
+ \@ifnextchar[{\mapput@iv[#1](#2,#3)[#4]#5}{\mapput@iv[#1](#2,#3)[#4]#5[\@empty]}}
+\def\mapput@iv[#1](#2,#3)[#4]#5[#6]{{%
+% [angle](longitude,lattitude)[node name]{node label}[country]
+ \def\pst@tempb{all}
+ \ifx\pst@tempb\psk@WorldMap@mapCountry
+ \mapput@v[#1](#2,#3)[#4]{#5}
+ \else
+ \def\pst@tempb{#6}
+% \typeout{Compare \pst@tempb{} with \psk@WorldMap@mapCountry}
+ \ifx\pst@tempb\psk@WorldMap@mapCountry
+ \mapput@v[#1](#2,#3)[#4]{#5}
+ \fi%
+ \fi%
+}}
+\def\mapput@v[#1](#2,#3)[#4]#5{{%
+ \pnodeMap(#2,#3){#4}
+% \typeout{Node: #4}
+ \pst@dima=\psk@WorldMap@nodeWidth
+ \pscircle[style=psNodeMapStyle](#4){\pst@dima}
+ \pscircle*(#4){0.5\pst@dima}
+ \uput{1.2\pst@dima}[#1](#4){{\psNodeLabelStyle #5}}%
+}}
+%------------------- hv 2004-05-08 ----------------------
+%
+\catcode`\@=\PstAtCode\relax
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty
new file mode 100644
index 00000000000..42d4b41bf2f
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty
@@ -0,0 +1,3 @@
+\ProvidesPackage{pst-map2dII}[2003/12/22 package wrapper for PSTricks pst-map2dII.tex]
+\input{pst-map2dII}
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex
new file mode 100644
index 00000000000..bf73ed554f7
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex
@@ -0,0 +1,493 @@
+%%
+%% This is file `pst-mapII.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-map2dII.tex'
+%%
+%% Manuel Luque <Mluque5130@aol.com> (France)
+%% Giuseppe Matarazzo <joematara@hotmail.com> (Italy)
+%% Herbert Voss <voss@perce.de> (Germany)
+%%
+%% May 09, 2004
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-map2dII' is a PSTricks package to create geographical objects
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fileversion{0.8}
+\def\filedate{2004/05/09}
+
+\message{`PST-map2dII v\fileversion, \filedate\space (ML/GM/HV)}
+
+\csname PSTMapTwoDII\endcsname
+\let\PSTMapTwoDIILoaded\endinput
+
+% Require PSTricks
+\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
+% David Carlisle interface to the `keyval' package.
+\input pst-key.tex
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+
+\SpecialCoor
+%
+\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données
+\setkeys{psset}{path=data}
+%
+\define@key{psset}{type}{\edef\psk@WorldMapII@type{#1}}
+\setkeys{psset}{type=1}
+\define@key{psset}{increment}{\edef\psk@WorldMapII@increment{#1}}
+\setkeys{psset}{increment=10}
+% type=1 ==> Mercator
+% type=2 ==> Lambert
+% type=3 ==> simple
+% type=4 ==> Sanson-Flamsteed
+% type=5 ==> cylindrical
+% type=6 ==> Babinet
+% type=7 ==> Collignon
+% type=8 ==> Bonne
+\define@key{psset}{n}{\edef\psk@WorldMap@n{#1}}
+\setkeys{psset}{n=1.77245} % sqrt(pi) % pour Collignon
+%
+\define@key{psset}{limiteL}{\edef\psk@WorldMap@limiteL{#1}}
+\setkeys{psset}{limiteL=180} % longitude limite
+%
+\define@key{psset}{limiteL}{\edef\psk@WorldMap@limiteL{#1}}
+\setkeys{psset}{limiteL=180} % longitude limite
+%
+\define@key{psset}{latitude0}{\edef\psk@WorldMap@latitudeO{#1}}
+\setkeys{psset}{latitude0=45} % pour Bonne latitude 0
+%
+\define@key{psset}{longitude0}{\edef\psk@WorldMap@longitudeO{#1}}
+\setkeys{psset}{longitude0=0} % pour Bonne longitude 0
+%
+\newif\ifPst@WorldMap@capitals
+\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}}
+\setkeys{psset}{capital=false}
+%
+\newif\ifPst@WorldMap@city
+\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}}
+\setkeys{psset}{city=false}
+%
+\newif\ifPst@WorldMapII@Rivers
+\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}}
+\setkeys{psset}{rivers=false}
+%
+\newif\ifPst@WorldMapII@Borders
+\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}}
+\setkeys{psset}{borders=true}
+%
+\newif\ifPst@WorldMapII@maillage
+\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMapII@maillage#1}}
+\setkeys{psset}{maillage=true}
+%
+\newif\ifPst@WorldMapII@Fill
+\define@key{psset}{Fill}[true]{\@nameuse{Pst@WorldMapII@Fill#1}}
+\setkeys{psset}{Fill=true}
+%
+\newif\ifPst@WorldMapII@Europe
+\define@key{psset}{europe}[true]{\@nameuse{Pst@WorldMapII@Europe#1}}
+\setkeys{psset}{europe=true}
+%
+\newif\ifPst@WorldMapII@Asia
+\define@key{psset}{asia}[true]{\@nameuse{Pst@WorldMapII@Asia#1}}
+\setkeys{psset}{asia=false}
+%
+\newif\ifPst@WorldMapII@Africa
+\define@key{psset}{africa}[true]{\@nameuse{Pst@WorldMapII@Africa#1}}
+\setkeys{psset}{africa=false}
+%
+\newif\ifPst@WorldMapII@namer
+\define@key{psset}{namer}[true]{\@nameuse{Pst@WorldMapII@namer#1}}
+\setkeys{psset}{namer=false}
+%
+\newif\ifPst@WorldMapII@samer
+\define@key{psset}{samer}[true]{\@nameuse{Pst@WorldMapII@samer#1}}
+\setkeys{psset}{samer=false}
+%
+\newif\ifPst@WorldMapII@all% hv 2004-05-05
+\define@key{psset}{all}[true]{%
+ \setkeys{psset}{europe=true,asia=true,africa=true,namer=true,samer=true}
+}
+%
+\define@key{psset}{level}{\edef\psk@WorldMapII@level{#1}}% hv 2004-05-05
+\setkeys{psset}{level=5}% only every 5th data record
+%
+\def\VariablesMap{%
+ /Coeff_mercatorY {2 div 45 add dup sin exch cos div ln 57.2958 mul} def % Mercator
+ /Coeff_simpleY {1 mul} def % simple
+ /Coeff_lambertY {sin 57.2958 mul} def % Lambert
+ /Coeff_sanson_flamsteedY {1 mul} def % Sanson_Flamstead
+ /Coeff_cylindricalY { dup sin exch cos div 57.2958 mul} def % Cylindrical
+ /Coeff_babinetY { sin 2 sqrt mul 57.2958 mul} def % Babinet
+ /n \psk@WorldMap@n\space def
+ /Coeff_collignonY { 0 ge { 1 2 sqrt 90 Y sub 2 div sin mul sub 57.2958 mul n mul}
+ { 1 2 sqrt 90 Y add 2 div sin mul sub 57.2958 mul n mul neg} ifelse }def % Collignon
+ /Coeff_BonneY {pop /RHO l0 dup cos exch sin div Y neg l0 add 57.2958 div add def
+ /Theta Y cos X L0 sub mul RHO div def
+ Theta cos RHO mul neg 57.2958 mul}def % Bonne
+ /Coeff_mercatorX {1 mul} def % Mercator
+ /Coeff_simpleX {1 mul} def % simple
+ /Coeff_lambertX {1 mul} def % Lambert
+ /Coeff_sanson_flamsteedX {Y cos mul} def % Sanson_Flamstead
+ /Coeff_cylindricalX { 1 mul } def % Cylindrical
+ /Coeff_babinetX { 2 mul 2 sqrt mul 3.1415926 div Y cos mul} def % Babinet
+ /Coeff_collignonX { 2 mul 2 sqrt mul 90 Y abs sub 2 div sin mul n div} def % Collignon
+ /l0 \psk@WorldMap@latitudeO\space def
+ /L0 \psk@WorldMap@longitudeO\space def
+ /Coeff_BonneX {pop /RHO l0 dup cos exch sin div Y neg l0 add 57.2958 div add def
+ /Theta Y cos X L0 sub mul RHO div def
+ Theta sin RHO mul 57.2958 mul}def % Bonne
+ \ifcase\psk@WorldMapII@type\or% type 1 % hv 2004-05-04
+ /CoeffY {Coeff_mercatorY} def
+ /CoeffX {Coeff_mercatorX} def
+ /StartY -85 def
+ \or% type 2 % hv 2004-05-04
+ /CoeffY {Coeff_simpleY} def
+ /CoeffX {Coeff_simpleX} def
+ /StartY -90 def
+ \or% type 3 % hv 2004-05-04
+ /CoeffY {Coeff_lambertY} def
+ /CoeffX {Coeff_lambertX} def
+ /StartY -90 def
+ \or% type 4 % hv 2004-05-04
+ /CoeffY {Coeff_sanson_flamsteedY} def
+ /CoeffX {Coeff_sanson_flamsteedX} def
+ /StartY -90 def
+ \or% type 5 % hv 2004-05-04
+ /CoeffY {Coeff_cylindricalY} def
+ /CoeffX {Coeff_cylindricalX} def
+ /StartY -85 def
+ \or% type 6 % hv 2004-05-04
+ /CoeffY {Coeff_babinetY} def
+ /CoeffX {Coeff_babinetX} def
+ /StartY -90 def
+ \or% type 7 % hv 2004-05-04
+ /CoeffY {Coeff_collignonY} def
+ /CoeffX {Coeff_collignonX} def
+ /StartY -90 def
+ \else% every other is type 8 % hv 2004-05-04
+ /CoeffY {Coeff_BonneY} def
+ /CoeffX {Coeff_BonneX} def
+ /StartY -90 def
+ \fi
+ /step \psk@WorldMapII@level\space def % hv 2004-05-04
+}
+ %
+\newcount\TypeProjection
+\def\WorldMapII{\pst@object{WorldMapII}}
+\def\WorldMapII@i{\@ifnextchar[{\WorldMapII@do}{\WorldMapII@do[]}}
+\def\WorldMapII@do[#1]{{%
+ \setkeys{psset}{#1}%
+ \begin@ClosedObj
+ \addto@pscode{%
+ /increment \psk@WorldMapII@increment\space def
+ \VariablesMap
+ 1 setlinejoin
+ 0 0 translate
+ /xunit {\pst@number\psxunit\space mul 20 div } def
+ /yunit {\pst@number\psyunit\space mul 20 div } def
+ /limiteLongitude \psk@WorldMap@limiteL\space def
+%
+ /CalculsPoints {
+ /region exch def
+ gsave
+ newpath
+ /nbr region length def % nombre de points
+ region nbr 2 sub get
+ /Y exch def
+ region nbr 1 sub get
+ /X exch def
+ X CoeffX xunit Y CoeffY yunit moveto
+ /ncount 0 def % hv 2004-05-04
+ nbr 2 sub -2 2 {
+ /Counter exch def % hv 2004-05-04
+ /ncount ncount 1 add def % hv 2004-05-04
+ ncount step ge { % hv 2004-05-04
+ region Counter get
+ /Y exch def
+ region Counter 1 add get
+ /X exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+ /ncount 0 def % hv 2004-05-04
+ }{ /ncount ncount 1 add def } ifelse % hv 2004-05-04
+ } for
+ } def
+%
+ /CalculsPointsAsia {
+ /region exch def
+ gsave
+ newpath
+ /nbr region length def % nombre de points
+ region nbr 2 sub get
+ /Y exch def
+ region nbr 1 sub get
+ /X exch def
+ X 0 le {/X X 360 add def} if
+ X CoeffX xunit Y CoeffY yunit moveto
+ /ncount 0 def % hv 2004-05-04
+ nbr 2 sub -2 2 {
+ /Counter exch def % hv 2004-05-04
+ /ncount ncount 1 add def % hv 2004-05-04
+ ncount step ge { % hv 2004-05-04
+ region Counter get
+ /Y exch def
+ region Counter 1 add get
+ /X exch def
+ X 0 le {/X X 360 add def} if
+ X CoeffX xunit Y CoeffY yunit lineto
+ /ncount 0 def % hv 2004-05-04
+ }{ /ncount ncount 1 add def } ifelse % hv 2004-05-04
+ } for
+ } def
+%
+ /Draw {
+ { CalculsPoints
+ stroke
+ } forall
+ } def
+%
+ /DrawAsia {
+ { CalculsPointsAsia
+ stroke
+ } forall
+ } def
+ /DrawRivers {
+ { CalculsPoints
+ gsave
+ 0 0 1 setrgbcolor
+ stroke
+ grestore
+ } forall
+ } def
+%
+ /DrawRiversAsia {
+ { CalculsPointsAsia
+ gsave
+ 0 0 1 setrgbcolor
+ stroke
+ grestore
+ } forall
+ } def
+ /DrawBdy {
+ { CalculsPoints
+ gsave
+ 1 0 0 setrgbcolor
+ stroke
+ grestore
+ } forall
+ } def
+ \ifPst@WorldMapII@Europe
+ (\psk@WorldMap@Path/europe-cil.dat) run
+ europe-cil
+ Draw
+ \ifPst@WorldMapII@Rivers
+ (\psk@WorldMap@Path/europe-riv.dat) run
+ europe-riv
+ DrawRivers
+ \fi
+ \ifPst@WorldMapII@Borders
+ (\psk@WorldMap@Path/europe-bdy.dat) run
+ europe-bdy
+ DrawBdy
+ \fi
+ \fi
+%
+\ifPst@WorldMapII@Africa
+(\psk@WorldMap@Path/africa-cil.dat) run
+ africa-cil
+ Draw
+\ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/africa-riv.dat) run
+ africa-riv
+ DrawRivers
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/africa-bdy.dat) run
+ africa-bdy
+ DrawBdy
+\fi
+\fi
+%
+\ifPst@WorldMapII@Asia
+(\psk@WorldMap@Path/asia-cil.dat) run
+ asia-cil
+ DrawAsia
+(\psk@WorldMap@Path/asia-isl.dat) run
+ asia-isl
+ Draw
+\ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/asia-riv.dat) run
+ asia-riv
+ DrawRiversAsia
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/asia-bdy.dat) run
+ asia-bdy
+ DrawBdy
+\fi
+\fi
+\ifPst@WorldMapII@namer
+(\psk@WorldMap@Path/namer-cil.dat) run
+ namer-cil
+ Draw
+\ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/namer-riv.dat) run
+ namer-riv
+ DrawRivers
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/namer-bdy.dat) run
+(\psk@WorldMap@Path/namer-pby.dat) run
+ namer-bdy
+ DrawBdy
+ namer-pby
+ DrawBdy
+\fi
+ \fi
+\ifPst@WorldMapII@samer
+(\psk@WorldMap@Path/samer-cil.dat) run
+ samer-cil
+ Draw
+ (\psk@WorldMap@Path/samer-arc.dat) run
+ samer-arc
+ DrawAsia
+\ifPst@WorldMapII@Rivers
+(samer-riv.dat) run
+ samer-riv
+ DrawRivers
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/samer-bdy.dat) run
+ samer-bdy
+ DrawBdy
+\fi
+\fi
+%
+\ifPst@WorldMapII@maillage
+% meridiens
+limiteLongitude neg increment limiteLongitude {% for X
+ /X exch def
+ newpath
+ /Y StartY def
+ X CoeffX xunit StartY CoeffY yunit moveto
+StartY increment 10 div StartY neg { % for Y
+ /Y exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+} for
+gsave
+% 11 janvier 2004
+X 0 eq {1 0 0 setrgbcolor}{0.2 setgray} ifelse
+%
+0.25 setlinewidth
+stroke
+grestore
+} for
+% parallèles
+StartY increment StartY neg {% for Y
+ /Y exch def
+newpath
+ /X limiteLongitude neg def
+ X CoeffX xunit Y CoeffY yunit moveto
+limiteLongitude neg increment 10 div limiteLongitude { % for X
+ /X exch def
+ X CoeffX xunit Y CoeffY yunit lineto
+} for
+% 11 janvier 2004
+Y 0 eq {1 0 0 setrgbcolor}{0.2 setgray} ifelse
+%
+0.25 setlinewidth
+stroke
+} for
+\fi
+/DrawCitys {
+/CITY exch def
+/Rayon exch def
+/nbr CITY length def % nombre de villes
+0 1 nbr 1 sub {
+ /compteur exch def
+ CITY compteur get aload pop
+ /X exch def /Y exch def
+ gsave
+ 1 0 0 setrgbcolor newpath
+ X CoeffX xunit Y CoeffY yunit
+ Rayon 0 360 arc closepath fill
+ grestore
+} for
+} def
+\ifPst@WorldMap@city
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5 % rayon du point
+ citycapitals
+ DrawCitys
+% les autres villes
+ (\psk@WorldMap@Path/c-sub.dat) run
+ 0.5 % rayon du point
+ CitySub
+DrawCitys
+\fi
+\ifPst@WorldMap@capitals
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5
+ citycapitals
+ DrawCitys
+\fi
+}%
+\end@ClosedObj
+}}
+%
+
+\def\pnodeMap(#1,#2)#3{% hv 2004-05-09
+ \pst@killglue
+ \pnode(!
+ \VariablesMap
+ /Y #2 def
+ /X #1 def
+ X CoeffX 20 div Y CoeffY 20 div){#3}%
+}
+%
+%------------------- hv 2004-05-08 ----------------------
+\def\psNodeLabelStyle{}
+\define@key{psset}{mapCountry}{\edef\psk@WorldMap@mapCountry{#1}}
+\setkeys{psset}{mapCountry=all}
+\define@key{psset}{nodeWidth}{\edef\psk@WorldMap@nodeWidth{#1}}
+\setkeys{psset}{nodeWidth=1mm}
+\newpsstyle{psNodeMapStyle}{fillstyle=solid,fillcolor=red}
+%
+\def\mapput{\@ifnextchar[{\mapput@i}{\mapput@i[90]}}
+\def\mapput@i[#1](#2,#3){\@ifnextchar[{\mapput@iii[#1](#2,#3)}{\mapput@ii[#1](#2,#3)}}
+\def\mapput@ii[#1](#2,#3)#4{\mapput@iii[#1](#2,#3)[#4]{#4}}
+\def\mapput@iii[#1](#2,#3)[#4]#5{%
+ \@ifnextchar[{\mapput@iv[#1](#2,#3)[#4]#5}{\mapput@iv[#1](#2,#3)[#4]#5[\@empty]}}
+\def\mapput@iv[#1](#2,#3)[#4]#5[#6]{{%
+% [angle](longitude,lattitude)[node name]{node label}[country]
+ \def\pst@tempb{all}
+ \ifx\pst@tempb\psk@WorldMap@mapCountry
+ \mapput@v[#1](#2,#3)[#4]{#5}
+ \else
+ \def\pst@tempb{#6}
+% \typeout{Compare \pst@tempb{} with \psk@WorldMap@mapCountry}
+ \ifx\pst@tempb\psk@WorldMap@mapCountry
+ \mapput@v[#1](#2,#3)[#4]{#5}
+ \fi%
+ \fi%
+}}
+\def\mapput@v[#1](#2,#3)[#4]#5{{%
+ \pnodeMap(#2,#3){#4}
+% \typeout{Node: #4}
+ \pst@dima=\psk@WorldMap@nodeWidth
+ \pscircle[style=psNodeMapStyle](#4){\pst@dima}
+ \pscircle*(#4){0.5\pst@dima}
+ \uput{1.2\pst@dima}[#1](#4){\psNodeLabelStyle #5}%
+}}
+%------------------- hv 2004-05-08 ----------------------
+%
+\catcode`\@=\PstAtCode\relax
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty
new file mode 100644
index 00000000000..b602c6abae1
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty
@@ -0,0 +1,3 @@
+\ProvidesPackage{pst-map3d}[2004/01/05 package wrapper for PSTricks pst-map3d.tex]
+\input pst-map3d.tex
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex
new file mode 100644
index 00000000000..23901f8fb88
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex
@@ -0,0 +1,187 @@
+%%
+%% This is file `pst-map3d.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-map3d.tex'
+%%
+%% Manuel Luque <Mluque5130@aol.com> (France)
+%% Giuseppe Matarazzo <joematara@hotmail.com> (Italy)
+%% Herbert Voss <voss@perce.de> (Germany)
+%%
+%% May 09, 2004
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-map3d' is a PSTricks package to create geographical objects
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fileversion{1.02}
+\def\filedate{2004/05/09}
+
+\message{`PST-map3d v\fileversion, \filedate\space (ML/GM/HV)}
+
+\csname PSTMapThreeD\endcsname
+\let\PSTMapThreeDLoaded\endinput
+
+% Require PSTricks
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi % hv 2004-05-09
+% David Carlisle interface to the `keyval' package.
+\input pst-key.tex
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+
+\SpecialCoor
+%
+\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données
+\setkeys{psset}{path=data}
+%
+\pstheader{map3d.pro}
+\define@key{psset}{RotX}{\edef\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés
+\define@key{psset}{RotY}{\edef\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés
+\define@key{psset}{RotZ}{\edef\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés
+\define@key{psset}{Radius}{\edef\psk@TroisD@Radius{#1}} % rayon de la sphère
+%
+\define@key{psset}{THETA}{\edef\psk@TroisD@Theta{#1}}
+\define@key{psset}{PHI}{\edef\psk@TroisD@Phi{#1}}
+\define@key{psset}{Dobs}{\edef\psk@TroisD@Dobs{#1}}
+\define@key{psset}{Decran}{\edef\psk@TroisD@Ecran{#1}}
+\setkeys{psset}{THETA=0,PHI=45,Dobs=20,Decran=25,Radius=5}
+%
+\setkeys{psset}{RotX=0,RotY=0,RotZ=0}
+%
+\define@key{psset}{increment}{\edef\psk@WorldMap@increment{#1}}
+\setkeys{psset}{increment=10}
+%
+\define@key{psset}{maillageColor}{\edef\psk@WorldMap@maillageColor{#1}}
+\setkeys{psset}{maillageColor= 0.5 0.5 0.5 }
+%
+\define@key{psset}{MapFillColor}{\edef\psk@WorldMap@Fillcolor{#1}} % couleur des continents
+\setkeys{psset}{MapFillColor= 0.99 0.95 0.7 }
+%
+\define@key{psset}{level}{\edef\psk@WorldMap@level{#1}}
+\setkeys{psset}{level=1}
+%
+\def\variablesTroisD{%
+ /RotX \psk@TroisD@RotX\space def
+ /RotY \psk@TroisD@RotY\space def
+ /RotZ \psk@TroisD@RotZ\space def
+ /THETA \psk@TroisD@Theta\space def
+ /PHI \psk@TroisD@Phi\space def
+ /Rsphere \psk@TroisD@Radius\space def
+ /Dobs \psk@TroisD@Dobs\space def
+ /DScreen \psk@TroisD@Ecran\space def
+ /step \psk@WorldMap@level\space def
+ }%
+ %
+\newif\ifPst@WorldMap@capitals
+\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}}
+\setkeys{psset}{capital=false}
+%
+\newif\ifPst@WorldMap@city
+\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}}
+\setkeys{psset}{city=false}
+%
+\newif\ifPst@WorldMap@Rivers% hv 2004-05-03
+\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMap@Rivers#1}}
+\setkeys{psset}{rivers=true}
+%
+\newif\ifPst@WorldMap@maillage
+\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}}
+\setkeys{psset}{maillage=true}
+%
+\def\WorldMapThreeD{\pst@object{WorldMapThreeD}}
+\def\WorldMapThreeD@i{\@ifnextchar[{\WorldMapThreeD@do}{\WorldMapThreeD@do[]}}
+\def\WorldMapThreeD@do[#1]{{%
+\setkeys{psset}{#1}%
+\begin@ClosedObj
+\addto@pscode{%
+ /increment \psk@WorldMap@increment\space def
+ \variablesTroisD
+ (\psk@WorldMap@Path/river.dat) run
+ (\psk@WorldMap@Path/pisland.dat) run
+ (\psk@WorldMap@Path/pborder.dat) run
+ (\psk@WorldMap@Path/plake.dat) run
+ 1 setlinejoin
+ 0 0 translate
+ /xunit {\pst@number\psxunit\space mul}def
+ /yunit {\pst@number\psyunit\space mul}def
+ /runit {\pst@number\psrunit\space mul}def
+ gsave
+ newpath
+ 0.5 0.8 0.8 setrgbcolor
+ % cercle vu par l'observateur
+ /RsphereScreen Rsphere DScreen mul Dobs div
+ 1 Rsphere dup mul Dobs dup mul div sub sqrt div runit def
+ 0 0 RsphereScreen 0 360 arc
+ closepath
+ fill
+ grestore
+ /condition {PSfacette 0 le} def
+ /departPhi -90 def
+tx@map3DDict begin
+ MatriceTransformation
+/Draw {
+ {
+CalculsPoints
+closepath
+gsave
+Color setrgbcolor
+fill
+grestore
+stroke
+} forall
+}def
+%/Color {0.5 0.8 0.5} def
+/Color {\psk@WorldMap@Fillcolor} def
+border
+ Draw
+islands
+ Draw
+/Color {0.5 0.8 0.8} def
+lake
+ Draw
+% les rivières
+\ifPst@WorldMap@Rivers % hv 2004-05-03
+ /DrawRivers {
+ { CalculsPoints
+ 0 0 1 setrgbcolor
+ stroke
+ } forall
+ }def
+ river
+ DrawRivers
+\fi
+\ifPst@WorldMap@city
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5
+ citycapitals
+ DrawCitys
+% les autres villes
+ (\psk@WorldMap@Path/c-sub.dat) run
+ 0.5
+ CitySub
+DrawCitys
+\fi
+\ifPst@WorldMap@capitals
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 2
+ citycapitals
+ DrawCitys
+\fi
+\ifPst@WorldMap@maillage
+/maillageColor {\psk@WorldMap@maillageColor} def
+ MaillageSphere
+\fi
+end}%
+\end@ClosedObj
+}}
+%
+\catcode`\@=\PstAtCode\relax
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty
new file mode 100644
index 00000000000..370d67007e7
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty
@@ -0,0 +1,3 @@
+\ProvidesPackage{pst-map3dII}[2003/12/22 package wrapper for PSTricks pst-map3dII.tex]
+\input pst-map3dII.tex
+\endinput
diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex
new file mode 100644
index 00000000000..ae9480c168b
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex
@@ -0,0 +1,280 @@
+%%
+%% This is file `pst-map3dII.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-map3dII.tex'
+%%
+%% Manuel Luque <Mluque5130@aol.com> (France)
+%% Giuseppe Matarazzo <joematara@hotmail.com> (Italy)
+%% Herbert Voss <voss@perce.de> (Germany)
+%%
+%% May 09, 2004
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%% `pst-map3dII' is a PSTricks package to create geographical objects
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\fileversion{0.21}
+\def\filedate{2004/05/09}
+
+\message{`PST-mapThreeDII v\fileversion, \filedate\space (ML/GM/HV)}
+
+\csname PSTMapThreeDII\endcsname
+\let\PSTMapThreeDII\endinput
+
+% Require PSTricks
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+% David Carlisle interface to the `keyval' package.
+\input pst-key.tex
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+\pstheader{map3dII.pro}
+\SpecialCoor
+%
+\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données
+\setkeys{psset}{path=.}
+%
+\define@key{psset}{RotX}{\edef\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés
+\define@key{psset}{RotY}{\edef\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés
+\define@key{psset}{RotZ}{\edef\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés
+\define@key{psset}{Radius}{\edef\psk@TroisD@Radius{#1}} % rayon de la sphère
+%
+\define@key{psset}{THETA}{\edef\psk@TroisD@Theta{#1}}
+\define@key{psset}{PHI}{\edef\psk@TroisD@Phi{#1}}
+\define@key{psset}{Dobs}{\edef\psk@TroisD@Dobs{#1}}
+\define@key{psset}{Decran}{\edef\psk@TroisD@Ecran{#1}}
+\setkeys{psset}{THETA=0,PHI=45,Dobs=20,Decran=25,Radius=5}
+%
+\setkeys{psset}{RotX=0,RotY=0,RotZ=0}
+%
+\define@key{psset}{increment}{\edef\psk@WorldMapII@increment{#1}}
+\setkeys{psset}{increment=10}
+%
+\define@key{psset}{level}{\edef\psk@WorldMapII@level{#1}}% hv 2004-05-05
+\setkeys{psset}{level=5}
+%
+\def\variablesTroisD{%
+ /RotX \psk@TroisD@RotX\space def
+ /RotY \psk@TroisD@RotY\space def
+ /RotZ \psk@TroisD@RotZ\space def
+ /THETA \psk@TroisD@Theta\space def
+ /PHI \psk@TroisD@Phi\space def
+ /Rsphere \psk@TroisD@Radius\space def
+ /Dobs \psk@TroisD@Dobs\space def
+ /DScreen \psk@TroisD@Ecran\space def
+ /step \psk@WorldMapII@level\space def
+ }%
+ %
+\newif\ifPst@WorldMap@capitals
+\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}}
+\setkeys{psset}{capital=false}
+%
+\newif\ifPst@WorldMap@city
+\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}}
+\setkeys{psset}{city=false}
+%
+\newif\ifPst@WorldMap@maillage
+\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}}
+\setkeys{psset}{maillage=true}
+%
+\newif\ifPst@WorldMapII@Rivers
+\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}}
+\setkeys{psset}{rivers=true}
+%
+\newif\ifPst@WorldMapII@Borders
+\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}}
+\setkeys{psset}{borders=true}
+%
+\newif\ifPst@WorldMap@Europe
+\define@key{psset}{europe}[true]{\@nameuse{Pst@WorldMap@Europe#1}}
+\setkeys{psset}{europe=true}
+%
+\newif\ifPst@WorldMap@Asia
+\define@key{psset}{asia}[false]{\@nameuse{Pst@WorldMap@Asia#1}}
+\setkeys{psset}{asia=false}
+%
+\newif\ifPst@WorldMap@Africa
+\define@key{psset}{africa}[false]{\@nameuse{Pst@WorldMap@Africa#1}}
+\setkeys{psset}{africa=false}
+%
+\newif\ifPst@WorldMap@namer
+\define@key{psset}{namer}[false]{\@nameuse{Pst@WorldMap@namer#1}}
+\setkeys{psset}{namer=false}
+%
+\newif\ifPst@WorldMap@samer
+\define@key{psset}{samer}[false]{\@nameuse{Pst@WorldMap@samer#1}}
+\setkeys{psset}{samer=false}
+%
+\newif\ifPst@WorldMapII@all% hv 2004-05-05
+\define@key{psset}{all}[true]{%
+ \setkeys{psset}{europe=true,asia=true,africa=true,namer=true,samer=true}
+}
+%
+\def\WorldMapThreeDII{\pst@object{WorldMapThreeDII}}
+\def\WorldMapThreeDII@i{\@ifnextchar[{\WorldMapThreeDII@do}{\WorldMapThreeDII@do[]}}
+\def\WorldMapThreeDII@do[#1]{{%
+ \setkeys{psset}{#1}%
+ \begin@ClosedObj
+ \addto@pscode{%
+ \variablesTroisD
+ 1 setlinejoin
+ 0 0 translate
+ /increment \psk@WorldMapII@increment\space def
+ /xunit {\pst@number\psxunit\space mul}def
+ /yunit {\pst@number\psyunit\space mul}def
+ /runit {\pst@number\psrunit\space mul}def
+ gsave
+ newpath
+ 0.7 0.9 0.9 setrgbcolor
+% cercle vu par l'observateur
+ /RsphereScreen Rsphere DScreen mul Dobs div
+ 1 Rsphere dup mul Dobs dup mul div sub sqrt div runit def
+ 0 0 RsphereScreen 0 360 arc
+ closepath
+ fill
+ grestore
+ /condition {PSfacette 0 le} def
+ /departPhi -90 def
+ tx@mapII3DDict begin
+ MatriceTransformation
+ /Draw {
+ { CalculsPoints
+ stroke
+ } forall
+ }def
+%
+ /DrawRivers {
+ { CalculsPoints
+ gsave
+ 0 0 1 setrgbcolor
+ CLW 0.25 mul
+ stroke
+ grestore
+ } forall
+ } def
+%
+ /DrawBdy {
+ { CalculsPoints
+ gsave
+ 1 0 0 setrgbcolor
+ stroke
+ grestore
+ } forall
+ } def
+\ifPst@WorldMap@maillage
+ MaillageSphere
+\fi
+\ifPst@WorldMap@Europe
+ (\psk@WorldMap@Path/europe-cil.dat) run
+ europe-cil
+ Draw
+ \ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/europe-riv.dat) run
+ europe-riv
+ DrawRivers
+ \fi
+ \ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/europe-bdy.dat) run
+ europe-bdy
+ DrawBdy
+ \fi
+\fi
+%
+\ifPst@WorldMap@Africa
+ (\psk@WorldMap@Path/africa-cil.dat) run
+ africa-cil
+ Draw
+ \ifPst@WorldMapII@Rivers
+ (\psk@WorldMap@Path/africa-riv.dat) run
+ africa-riv
+ DrawRivers
+ \fi
+ \ifPst@WorldMapII@Borders
+ (\psk@WorldMap@Path/africa-bdy.dat) run
+ africa-bdy
+ DrawBdy
+ \fi
+\fi
+%
+\ifPst@WorldMap@Asia
+ (\psk@WorldMap@Path/asia-cil.dat) run
+ asia-cil
+ Draw
+ \ifPst@WorldMapII@Rivers
+ (\psk@WorldMap@Path/asia-riv.dat) run
+ asia-riv
+ DrawRivers
+ \fi
+ \ifPst@WorldMapII@Borders
+ (\psk@WorldMap@Path/asia-bdy.dat) run
+ asia-bdy
+ DrawBdy
+ \fi
+\fi
+%
+\ifPst@WorldMap@namer
+(\psk@WorldMap@Path/namer-cil.dat) run
+ namer-cil
+ Draw
+\ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/namer-riv.dat) run
+ namer-riv
+ DrawRivers
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/namer-bdy.dat) run
+(\psk@WorldMap@Path/namer-pby.dat) run
+ namer-bdy
+ DrawBdy
+ namer-pby
+ DrawBdy
+\fi
+\fi
+%
+\ifPst@WorldMap@samer
+(\psk@WorldMap@Path/samer-cil.dat) run
+ samer-cil
+ Draw
+\ifPst@WorldMapII@Rivers
+(\psk@WorldMap@Path/samer-riv.dat) run
+ samer-riv
+ DrawRivers
+ \fi
+\ifPst@WorldMapII@Borders
+(\psk@WorldMap@Path/samer-bdy.dat) run
+ samer-bdy
+ DrawBdy
+\fi
+\fi
+%
+\ifPst@WorldMap@city
+% les capitales
+ (\psk@WorldMap@Path/c-cap.dat) run
+ 1.5 % rayon du point
+ citycapitals
+ DrawCitys
+% les autres villes
+ (\psk@WorldMap@Path/c-sub.dat) run
+ 0.5 % rayon du point
+ CitySub
+DrawCitys
+\fi
+\ifPst@WorldMap@capitals
+% les capitales
+ (\psk@WorldMap@Path/citycapitals.dat) run
+ 1.5
+ citycapitals
+ DrawCitys
+\fi
+end}%
+\end@ClosedObj
+}}
+%
+%
+\catcode`\@=\PstAtCode\relax
+\endinput