diff options
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.tex | 279 |
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 |