summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex279
1 files changed, 0 insertions, 279 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex b/Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex
deleted file mode 100644
index 6728202d4a5..00000000000
--- a/Master/texmf-dist/tex/generic/pst-geo/pst-map3dII.tex
+++ /dev/null
@@ -1,279 +0,0 @@
-%%
-%% 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
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\csname PSTMapThreeDII\endcsname
-\let\PSTMapThreeDII\endinput
-
-% Require PSTricks
-\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
-\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey\fi
-
-\def\fileversion{0.26}
-\def\filedate{2009/08/28}
-
-\message{`PST-mapThreeDII v\fileversion, \filedate\space (ML/GM/HV)}
-\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
-\pst@addfams{pst-map3dII}
-\pstheader{pst-map3dII.pro}
-\SpecialCoor
-%
-\define@key[psset]{pst-map3dII}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données
-\psset{path=.}
-%
-\define@key[psset]{pst-map3dII}{RotX}{\def\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés
-\define@key[psset]{pst-map3dII}{RotY}{\def\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés
-\define@key[psset]{pst-map3dII}{RotZ}{\def\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés
-\define@key[psset]{pst-map3dII}{Radius}{\def\psk@TroisD@Radius{#1}} % rayon de la sphère
-%
-\define@key[psset]{pst-map3dII}{THETA}{\def\psk@TroisD@Theta{#1}}
-\define@key[psset]{pst-map3dII}{PHI}{\def\psk@TroisD@Phi{#1}}
-\define@key[psset]{pst-map3dII}{Dobs}{\def\psk@TroisD@Dobs{#1}}
-\define@key[psset]{pst-map3dII}{Decran}{\def\psk@TroisD@Ecran{#1}}
-\psset{THETA=0,PHI=45,Dobs=20,Decran=25,Radius=5}
-\psset{RotX=0,RotY=0,RotZ=0}
-%
-\define@key[psset]{pst-map3dII}{increment}{\def\psk@WorldMapII@increment{#1}}
-\psset{increment=10}
-%
-\define@key[psset]{pst-map3dII}{level}{\def\psk@WorldMapII@level{#1}}% hv 2004-05-05
-\psset{level=5}
-%
-\def\geo@variablesIIID{%
- /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]{pst-map3dII}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}}
-\psset{capital=false}
-%
-\newif\ifPst@WorldMap@city
-\define@key[psset]{pst-map3dII}{city}[false]{\@nameuse{Pst@WorldMap@city#1}}
-\psset{city=false}
-%
-\newif\ifPst@WorldMap@maillage
-\define@key[psset]{pst-map3dII}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}}
-\psset{maillage=true}
-%
-\newif\ifPst@WorldMapII@Rivers
-\define@key[psset]{pst-map3dII}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}}
-\psset{rivers=true}
-%
-\newif\ifPst@WorldMapII@Borders
-\define@key[psset]{pst-map3dII}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}}
-\psset{borders=true}
-%
-\newif\ifPst@WorldMap@Europe
-\define@key[psset]{pst-map3dII}{europe}[true]{\@nameuse{Pst@WorldMap@Europe#1}}
-\psset{europe=true}
-%
-\newif\ifPst@WorldMap@Asia
-\define@key[psset]{pst-map3dII}{asia}[false]{\@nameuse{Pst@WorldMap@Asia#1}}
-\psset{asia=false}
-%
-\newif\ifPst@WorldMap@Africa
-\define@key[psset]{pst-map3dII}{africa}[false]{\@nameuse{Pst@WorldMap@Africa#1}}
-\psset{africa=false}
-%
-\newif\ifPst@WorldMap@namer
-\define@key[psset]{pst-map3dII}{namer}[false]{\@nameuse{Pst@WorldMap@namer#1}}
-\psset{namer=false}
-%
-\newif\ifPst@WorldMap@samer
-\define@key[psset]{pst-map3dII}{samer}[false]{\@nameuse{Pst@WorldMap@samer#1}}
-\psset{samer=false}
-%
-\newif\ifPst@WorldMapII@all% hv 2004-05-05
-\define@key[psset]{pst-map3dII}{all}[true]{%
- \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]{{%
- \psset{#1}%
- \begin@ClosedObj
- \addto@pscode{%
- \geo@variablesIIID
- 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