diff options
author | Norbert Preining <preining@logic.at> | 2006-12-14 01:50:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2006-12-14 01:50:15 +0000 |
commit | 182e67d241ec6850017808d7aefa6616dd9f985f (patch) | |
tree | 41739c8076f293ff41e6d35c98ced0392be9195f /Master/texmf-dist/doc/generic | |
parent | a6884608408611b08f4d591522135737b0bd2063 (diff) |
pst-geo, first step in fixing it
git-svn-id: svn://tug.org/texlive/trunk@2728 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic')
23 files changed, 1444 insertions, 374 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-geo/Changes b/Master/texmf-dist/doc/generic/pst-geo/Changes new file mode 100644 index 00000000000..668ec61ccc9 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/Changes @@ -0,0 +1,15 @@ +..... pst-map2d.tex +1.07 2005-11-11 fix introduced bug with loading xkey +1.06 2005-11-10 using pst-xkey instead of pst-key + +..... pst-map2dII.tex +0.81 2005-11-10 using pst-xkey instead of pst-key + +..... pst-map3d.tex +1.03 2005-11-10 using pst-xkey instead of pst-key + +..... pst-map3dII.tex +0.23 2005-11-10 using pst-xkey instead of pst-key + + + diff --git a/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE b/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE deleted file mode 100644 index 9ee7b945a23..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/README.TEXLIVE +++ /dev/null @@ -1,6 +0,0 @@ -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/data.tgz b/Master/texmf-dist/doc/generic/pst-geo/data.tgz Binary files differnew file mode 100644 index 00000000000..8190239c2d1 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/data.tgz diff --git a/Master/texmf-dist/doc/generic/pst-geo/dataII.tgz b/Master/texmf-dist/doc/generic/pst-geo/dataII.tgz Binary files differnew file mode 100644 index 00000000000..a9bc0618c5a --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/dataII.tgz diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.pdf b/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.pdf Binary files differnew file mode 100644 index 00000000000..0e1038ff644 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.pdf diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.tex b/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.tex new file mode 100644 index 00000000000..a5a972badf9 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map2d.tex @@ -0,0 +1,254 @@ +%------------------------------------------------------------------- +% Map2d-doc Dec.05,2003 - rev.0.92 by M. Luque, G. Matarazzo +%------------------------------------------------------------------- +\documentclass[a4paper]{article} +\usepackage{pstricks,pst-map2d,url} +\usepackage[T1]{fontenc} +\pagestyle{empty} + \title{The \PstMapTwoDPackage{} package\\A PSTricks package for Geographical Projections} + \author{Manuel \textsc{Luque} + \mbox{\texttt{<Mluque5130.aol.com>}}\\ + et\\ + Giuseppe \textsc{Matarazzo} \mbox{\texttt{<joematara@hotmail.com>}}} + \date{Version 0.96\\ 19 février 2004\\ + {\small Documentation révisée le 19 février 2004}} +\newcommand{\PstMapTwoDPackage}{`\textsf{pst-map2d}'} +\newcommand\Parameter[1]{\colorbox{black}{\textcolor{white}{#1}}} +\psset{level=4,limiteL=190,path=../data} + +\begin{document} + \maketitle + \begin{abstract} + Nous sommes fix\'es pour objectif de repr\'esenter à l'aide PSTricks, diverses + projections cartographiques du globe terrestre. Cette extension \PstMapTwoDPackage{} concerne + les projections planes (Mercator, Lambert, cylindrique etc.). Un deuxi\`eme + package \textsf{pst-map3d} traite de la repr\'esentation en trois dimensions + du globe terrestre avec plusieurs fonctionnalit\'es qui rendent son + utilisation agr\'eable (tout au moins nous l'esp\'erons). + + Diff\'erentes possibilit\'es permettant de choisir le niveau du + d\'etail et les trac\'es possibles (villes, fronti\`eres, rivi\`eres etc.), vont + \^etre d\'etaill\'ees dans la suite du document. + \end{abstract} +\tableofcontents +\section{Les sources\label{sources}} +\subsection{Pour la partie math\'ematique} +\begin{enumerate} + \item Henri \textsc{Bouasse} : G\'eographie math\'ematique (1919), Delagrave. + \item \url{http://mathworld.wolfram.com/topics/MapProjections.html} +\end{enumerate} +\subsection{Les donn\'ees} +GLOBE Binaries DECODING : World Public Domain Dbase : + F.Pospeschil, A.Rivera (1999) + +\url{ftp://ftp.blm.gov/pub/gis/wdbprg.zip} + +Elles ont \'et\'e converties sous forme de tableau PostScript, en +degr\'es, +gr\^ ace à un petit programme en pascal (de Giuseppe Matarazzo) qui +fait partie de la distribution. +\subsection{Le pr\'ecurseur en postscript} +Bill \textsc{Casselman} : +\url{http://www.math.ubc.ca/~cass/graphics/text/www/} + +Dont le chapitre 8 a inspir\'e la r\'ealisation du programme pour PSTricks. +Il traite des transformations non linéaires et donne divers exemples dont +les projections planes de la mappemonde. C'est un très beau travail ! +\section{Les diff\'erents types de projections et le niveau de d\'etail} +\subsection{Les différents types de projections} +Il y a, pour l'instant, 6 types de projections, lesquelles se paramètrent de +la manière suivante : +\begin{center} +\renewcommand\arraystretch{2} +\begin{tabular}{|lcr|c|}\hline +\multicolumn{3}{|c|}{paramètre}&type de projection\\ \hline +type&=&1& Mercator\\ \hline +type&=&2 & Lambert\\ \hline +type&=&3 & simple\\ \hline +type&=&4 & Sanson-Flamsteed\\ \hline +type&=&5 & cylindrical\\ \hline +type&=&6 & Babinet\\ \hline +type&=&7 & Collignon\\ \hline +type&=&8 & Bonne\\ \hline +\end{tabular} +\end{center} +\subsection{Les cinq niveaux des d\'etails} +\begin{center} +\begin{tabular}{|lcr|c|}\hline +\multicolumn{3}{|c|}{niveau de détail}& caractèristique\\ \hline +level&=&1& très détaillé\\ \hline +level&=&2 & détaillé\\ \hline +level&=&3 & assez détaillé\\ \hline +level&=&4 & moyennement détaillé\\ \hline +level&=&5 & très schématique\\ \hline +\end{tabular} +\end{center} +\subsection{Les options} +On ne tracera, par défaut, que le contours des côtes. +\begin{itemize} +\item \Parameter{ilimiteL=180} : est la valeur absolue par défaut, en degrés, de +la longitude $(\pm 180)$. +\item \Parameter{increment=10} : est la valeur par défaut, en degrés, de l'écart angulaire entre deux +méridiens ou parallèles. On pourra donc fixer une valeur plus petite dans le cas +d'un zoom. +\item \Parameter{MapFillColor=0.99 0.95 0.7 } : permet de choisir la couleur de remplissage des continents, + en mode RGB. +\item \Parameter{borders=true} : on dessine les frontières des pays. +\item \Parameter{rivers=true} : permet de dessiner les fleuves et les rivières. +\item \Parameter{city=true} : marque les capitales et les principales villes. +\item \Parameter{capital=true} : on ne positionne que les capitales. +\item \Parameter{maillage=false} : permet de supprimer les parallèles et les +méridiens. +\item \Parameter{Fill=false} : les surfaces ne sont pas coloriées. +\item \Parameter{USA=true}, \Parameter{MEX=true}, +\Parameter{AUS=true} dessinent respectivement les états des +\textsc{USA}, du Mexique et de l'Australie. +\end{itemize} +\section{Mode d'emploi} +\subsection{Projection de Mercator} +L'utilisation de la commande est très simple : +\Parameter{$\backslash$WorldMap[maillage=false]} dessine la projection +de Mercator, sans les parallèles et les méridiens. Par défaut, c'est le +niveau de détail le plus élevé et la projection type Mercator qui ont été choisis : +\Parameter{[type=1,level=1]}. On jouera sur les unités +afin d'adapter le dessin aux dimensions souhaitées, avec par exemple~: +\begin{verbatim} +\psset{linewidth=0.75\pslinewidth} +{\psset{xunit=0.5,yunit=0.5} +\begin{pspicture}*(-9,-9)(10,9) +\WorldMap[maillage=false] +\end{pspicture}} +\end{verbatim} +qui permet d'obtenir la projection de Mercator suivante : +\begin{center} +\psset{linewidth=0.75\pslinewidth} +{\psset{xunit=0.5,yunit=0.5} +\psset{MapFillColor=0.5 0.8 0.5} +\begin{pspicture}*(-9,-9)(10,9) +\WorldMap[maillage=false] +\end{pspicture}} +\end{center} +Le script suivant dessine la projection de Mercator, en mode paysage : +\begin{verbatim} +\hbox{\hspace{-3cm}% +\begin{pspicture}*(-9,-9)(9,10) +\rput{90}(0,0){\WorldMap[city=true,borders=true]} +\end{pspicture}} +\end{verbatim} +\hbox{\hspace{-3cm}% +\begin{pspicture}*(-9,-9)(9,10) +\rput{90}(0,0){\WorldMap[city=true,borders=true,USA=true,AUS=true,MEX=true]} +\end{pspicture}} +\subsection{Projection de Lambert} +\begin{center} +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}(-9,-4.5)(9.5,4.5) +\WorldMap[type=2,city=true] +\end{pspicture}} +\end{center} +\subsection{Projection simple} +\begin{center} +\begin{pspicture}(-3,-9)(3,10) +\rput{90}(0,0){% +\WorldMap[type=3,maillage=true]} +\end{pspicture} +\end{center} +\subsection{Projection Sanson-Flamsteed} +\begin{center} +\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}(-5,-5)(8,5) +\WorldMap[type=4] +\end{pspicture} +\end{center} +\subsection{Projection cylindrique} +\hbox{\hspace{-3cm} +\begin{pspicture}*(-9,-9)(9.5,9) +\WorldMap[type=5] +\end{pspicture}} +\subsection{Projection de Babinet} +\begin{center} +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}(-9,-9)(10,9) +\WorldMap[type=6] +\end{pspicture}} +\end{center} +\subsection{Projection de Collignon} +\begin{center} +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}(-9,-9)(10,9) +\WorldMap[type=7] +\end{pspicture}} +\end{center} +\subsection{Projection de Bonne} +On peut choisir la latitude et la longitude de référence avec les +paramètres : \Parameter{latitude0=45} et \Parameter{longitude0=0}, +qui sont les valeurs par défaut. +\begin{center} +\begin{pspicture}(-7,-10)(7,3) +\WorldMap[type=8] +\end{pspicture} +\end{center} +\section{Comment faire un zoom sur un pays ou une région donnée} +Il n'a pas été prévu de commande particulière, mais la procédure +suivante : +\begin{enumerate} + \item Placer un \verb+\psgrid+ après le tracé de la carte, puis + repérer les coordonnées des deux sommets opposés du rectangle + dans lequel sera inclus la région souhaitée. +\psset{level=1} +\begin{center} +\psset{linewidth=0.5\pslinewidth} +\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}*(-9,-9)(10,9) +\WorldMap[rivers=true,city=true,USA=true,maillage=false] +\psgrid(-8,-8)(9,8) +\psframe[linewidth=0.5mm,linecolor=red](-6.5,1)(-3,3) +\end{pspicture} +\end{center} + \item Par exemple, si nous choisissons de représenter les + \'Etats-Unis les coordonnées des coins bas-gauche et haut-droit + seront : \verb+(-6.5,1)(-3,3)+ + + L'agrandissement sera obtenu en changeant d'unité, un zoom $\times4$ s'obtiendra avec : + \verb+\psset{xunit=4,yunit=4}+. Finalement la + commande s'écrira : +\begin{verbatim} +\begin{center} +\psset{xunit=4,yunit=4}% zoom 4* +\psset{linewidth=1.25\pslinewidth} +\begin{pspicture}*(-6.5,1)(-3,3) +\WorldMap[rivers=true,city=true,USA=true] +\end{pspicture} +\end{center} +\end{verbatim} +\begin{center} +\psset{xunit=4,yunit=4}% zoom 4* +\psset{linewidth=1.25\pslinewidth} +\begin{pspicture}*(-6.5,1)(-3,3) +\WorldMap[rivers=true,city=true,USA=true,maillage=true] +\end{pspicture} +\end{center} +\end{enumerate} +\section{Téléchargement des fichiers} +Le fichier des données (\texttt{wdb.zip}) est sur : \url{http://melusine.eu.org/syracuse/mluque/mappemonde/} + + Si vous +n'avez pas lu le fichier \verb+A LIRE+, la compilation a du mal se +passer. Il faut en effet indiquer le chemin des données dans la +variable \verb+path+. Cette variable contient le chemin des +données sur mon disque dur : + +\verb+path=C:/mappemonde/wdb+ + +Il faut donc avant le \verb+\begin{document}+, indiquer celui qui +correspond à votre configuration avec une commande du type : + +\verb+\psset{path=C:/mappemonde/wdb}+ + + ou bien le modifier +directement dans le fichier \verb+pst-map2d.tex+. + +Il est prévu la création d'un CR-ROM contenant toutes données, il +sera gravé et fourni gratuitement par Giuseppe à tous ceux qui lui +en feront la demande. +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.pdf b/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.pdf Binary files differnew file mode 100644 index 00000000000..4a923a35b50 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.pdf diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.tex b/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.tex new file mode 100644 index 00000000000..f0e25e3ddca --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map2dII.tex @@ -0,0 +1,334 @@ +\documentclass{article} +\usepackage[latin1]{inputenc}% +\usepackage{pstricks,url,graphicx,lscape} +\usepackage[francais]{babel} +\usepackage{pst-map2dII} +\definecolor{ocean}{rgb}{0.5,0.8,0.8} + \title{The \PstMapIIPackage{} package\\A PSTricks package for Geographical Projections} + \author{Manuel \textsc{Luque} + \mbox{\texttt{<Mluque5130@aol.com>}}\\ + \and Giuseppe \textsc{Matarazzo} \mbox{\texttt{<joematara@hotmail.com>}}% + \and Herbert \textsc{Voss} \mbox{\texttt{<voss@perce.de>}}} + \date{Version 0.71\\ May 9th, 2004} +\newcommand{\PstMapIIPackage}{`\textsf{pst-map2dII}'} +\newcommand\Parameter[1]{\colorbox{black}{\textcolor{white}{#1}}} +%------------------------ hv -------------------------- +\psset{linewidth=0.2\pslinewidth,level=50,path=../dataII} +%------------------------ hv -------------------------- +\begin{document} +\maketitle +\begin{abstract} +Dans la continuité de \textsf{pst-map2d}, cette solution se propose +d'utiliser la base de données géographiques : \textsf{CIA World DataBank II}, que l'on trouvera sur +\url{http://www.evl.uic.edu/pape/data/WDB/}. On récupérera sur ce +site toutes les données qui pèsent, compressées au format +\textsf{tgz}, 30~Mo et 121~Mo une fois décompactées. Cela donne +une finesse de tracé exceptionnelle, qui évidemment ne peut-être appréciée, non pas sur l'écran, +mais à l'impression, si possible avec une imprimante laser ! + +\'Evidemment le temps de calcul est proportionnel à la taille des +données à traiter. Cependant des options permettent de choisir la +représentation d'un continent ou plusieurs. Un ordinateur puissant +avec beaucoup de mémoire vive est donc souhaitable. +\begin{center} +\psset{xunit=5,yunit=5} +\psframebox[framesep=0pt,linewidth=0.2mm,doubleline=true]{% + \begin{pspicture}*(-0.5,1.70)(1.5,3)% + \WorldMapII[africa=true,increment=2] +\end{pspicture}} +\end{center} +\end{abstract} + +\tableofcontents + +\section{La mise en forme des données} +La mise en forme des données a été effectuée (\textsf{wdbII.zip}) sur : +\url{http://melusine.eu.org/syracuse/mluque/mappemonde/}. Si vous +souhaitez le faire vous-même, voici quelques indications. + +Pour faciliter le travail de PostScript et diminuer le temps de +calcul les données europe-cil.txt etc. doivent être très +légèrement adaptées avec un éditeur de texte acceptant les +fichiers lourds. + +Tous les lignes \textsf{segment ...} doivent être remplacées par : + +\textsf{][\% segment...}. + +Pour la clarté, si l'éditeur le permet +on insérera un saut de ligne entre les deux crochets \textsf{] [}. +On modifiera le début et la fin du fichier ainsi obtenu plaçant au +début, à la place du premier crochet~] : + +\textsf{/europe-cil [} + +et à la fin, on rajoutera : + +\textsf{] ] def}. + +Cet exemple valable pour le fichier \textsf{europe-cil.txt} doit +être répété et adapté en modifiant les noms à tous les autres +fichiers. + +Giuseppe Matarazzo a mis au point un programme permettant de faire +ce travail automatiquement, il fait partie de la distribution. + +Cependant le travail ne s'arrête pas là ! La structure des données +des fichiers \textsf{asia-cil}, \textsf{asia-riv} et +\textsf{samer-cil} pose problème. + +Commençons par le fichier qui donne le plus de soucis : +\textsf{asia-cil}. + +Avec un votre éditeur de textes rechercher puis supprimez les +segments : +\begin{itemize} +\item segment 7925 à segment 7957 +\item segment 7966 +\item segment 7968 à segment 7986 +\item segment 8377 +\item segment 8638 à segment 8641 +\item segment 8645 à segment 8650 +\item segment 8645 à segment 8650 +\item segments 15 à segment 123 +\end{itemize} +Exemple : on supprimera [ segment 7925 \ldots ] d'un crochet à +l'autre, crochets compris. + +Ces parties manquantes sont remplacées par le fichier +\textsf{asia-isl.dat} qui est la concaténation des précédents. + +Pour le fichier \textsf{samer-cil}, supprimez de même les segments +: +\begin{itemize} +\item segment 2166 +\item segment 1948 +\end{itemize} +Ils seront remplacés par le fichier \textsf{samer-arc} : voilà +vous êtes arrivés au bout de vos peines ! + + Si vous +n'avez pas lu le fichier \verb+A LIRE+, la compilation a du mal se +passer. Il faut en effet indiquer le chemin des données dans la +variable \verb+path+. Cette variable contient le chemin des +données sur mon disque dur : + +\verb+path=data+ + +Il faut donc avant le \verb+\begin{document}+, indiquer celui qui +correspond à votre configuration avec une commande du type : + +\verb+\psset{path=data}+ + + ou bien le modifier +directement dans le fichier \verb+pst-mapII.tex+. +\section{Les options} +\subsection{Les différents types de projections} Ils sont ceux +vus +avec \textsf{pst-map2d} ; ici il n'y a qu'un seul niveau de détail +: donc pas de choix possible. +\begin{center} +\renewcommand\arraystretch{2} +\begin{tabular}{|l|c|}\hline +\Parameter{type=1}& Mercator\\ \hline +\Parameter{type=2} & Lambert\\ \hline +\Parameter{type=3} & simple\\ \hline +\Parameter{type=4} & Sanson-Flamsteed\\ \hline +\Parameter{type=5} & cylindrical\\ \hline +\Parameter{type=6} & Babinet\\ \hline +\end{tabular} +\end{center} +\subsection{Les options} +Les options se résument ici aux choix des continents et aux fleuves ainsi qu'au dessin ou non des parallèles et méridiens. + +Par défaut tous les continents et fleuves sont tracés. +\begin{itemize} +\item \Parameter{europe=false} : l'Europe n'est pas dessinée. +\item \Parameter{africa=false} : l'Afrique n'est pas dessinée. +\item \Parameter{asia=false} : l'Asie n'est pas dessinée. +\item \Parameter{namer=false} : l'Amérique du Nord n'est pas dessinée. +\item \Parameter{samer=false} : l'Amérique du Sud n'est pas dessinée. +\item \Parameter{rivers=false} : les rivières ne sont pas dessinées. +\item \Parameter{borders=false} : les frontières ne sont pas +tracées. +\item \Parameter{city=false} : les villes ne sont pas +placées. Si \Parameter{city=true} : les capitales et les villes sont placées +(sans le nom). +\item \Parameter{capital=true} : les capitales sont seules indiquées. +\item \Parameter{maillage=false} : les parallèles et méridiens ne sont pas tracés. +\item \Parameter{increment=10} : est la valeur par défaut, en degrés, de l'écart angulaire entre deux +méridiens ou parallèles. On pourra donc fixer une valeur plus petite dans le cas +d'un zoom. +\item \Parameter{ilimiteL=180} : est la valeur absolue par défaut, en degrés, de +la longitude $(\pm 180)$. +\end{itemize} +\section{Le mode d'emploi} +\textbf{J'ai désactivé le tracé des fleuves et des frontières avec les options +:} +\begin{verbatim} +rivers=false,borders=false +\end{verbatim} +\textbf{Afin d'accélérer l'affichage. Libre à vous des les activer en les plaçant à +\texttt{true}} +\subsection{Mercator} +Le script suivant dessine la projection de Mercator (qui est le type par défaut), en mode paysage : +\begin{verbatim} +\hbox{\hspace{-3cm}% +\begin{pspicture}*(-9,-9)(9,10) +\rput{90}(0,0){\WorldMapII[all=true,level=75]} +\end{pspicture}} +\end{verbatim} +\makebox[\textwidth]{% +\begin{pspicture*}(-9,-9)(9,10) +\rput{90}(0,0){\WorldMapII[all=true,rivers=false,borders=false,linewidth=0.1\pslinewidth,level=75]} +\end{pspicture*} +} +\subsection{Projection de Lambert} +\begin{verbatim} +\begin{pspicture*}(-9,-5)(9,5) +\WorldMapII[type=2,all=true] +\end{pspicture*} +\end{verbatim} +\makebox[\textwidth]{% +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture}(-9,-5)(9,5) +\WorldMapII[type=2,all=true,rivers=false,borders=false,linewidth=0.1\pslinewidth] +\end{pspicture}} +} + +\begin{landscape} +\subsection{Projection simple} +\begin{verbatim} +\begin{pspicture*}(-9,-3)(9,3) + \psframe*[linecolor=ocean](-9,-3)(9,3) + \WorldMapII[type=3,maillage=false,all=true] +\end{pspicture*} +\end{verbatim} +\begin{pspicture*}(-9,-3)(9,3) + \psframe*[linecolor=ocean](-9,-3)(9,3) + \WorldMapII[type=3,all=true,maillage=false,rivers=false,borders=false,linewidth=0.1\pslinewidth] +\end{pspicture*} +\end{landscape} + +\subsection{Projection Sanson-Flamsteed} +\begin{verbatim} +\begin{pspicture*}(-10,-5)(10,5) + \WorldMapII[type=4,all=true] +\end{pspicture*} +\end{verbatim} +\begin{center} +\resizebox{\linewidth}{!}{% +\begin{pspicture*}(-10,-5)(10,5) + \WorldMapII[type=4,all=true,rivers=false,borders=false,linewidth=0.1\pslinewidth] +\end{pspicture*}} +\end{center} + +\clearpage + +\subsection{Projection cylindrique} +\begin{verbatim} +\psset{xunit=0.5,yunit=0.5} +\begin{pspicture}*(-9,-12)(9.5,14) +\psframe(-9,-12)(9.5,14) +\WorldMapII[type=5,all=true] +\end{pspicture} +\end{verbatim} +{\psset{xunit=0.5,yunit=0.5} +\begin{pspicture}*(-9,-12)(9.5,14) +\psframe(-9,-12)(9.5,14) +\WorldMapII[type=5,all=true,linewidth=0.1\pslinewidth,rivers=false,borders=false] +\end{pspicture}} + +\clearpage + + +\subsection{Projection de Babinet} +\begin{verbatim} +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture*}(-10,-5)(10,5) + \WorldMapII[type=6,all=true,rivers=false,borders=false,linewidth=0.1\pslinewidth] +\end{pspicture*}} +\end{verbatim} +{\psset{xunit=0.75,yunit=0.75} +\begin{pspicture*}(-10,-5)(10,5) + \WorldMapII[type=6,all=true,rivers=false,borders=false,linewidth=0.1\pslinewidth] +\end{pspicture*}} + +\clearpage + +\subsection{Projection de Collignon} +\begin{center} +\resizebox{\linewidth}{!}{% +\psset{xunit=0.75,yunit=0.75} +\begin{pspicture*}(-10,-5)(10,5) +\WorldMapII[type=7,all=true] +\end{pspicture*}} +\end{center} + +\clearpage + + +\subsection{Projection de Bonne} +On peut choisir la latitude et la longitude de référence avec les +paramètres : \Parameter{latitude0=45} et \Parameter{longitude0=0}, +qui sont les valeurs par défaut. +\begin{center} +\begin{pspicture*}(-7,-10)(7,3) +\WorldMapII[type=8,all=true] +\end{pspicture*} +\end{center} + +\clearpage + + +\section{Comment faire un zoom sur un pays ou une région donnée} +Il n'a pas été prévu de commande particulière, mais la procédure +suivante : +\begin{enumerate} + \item Placer un \verb+\psgrid+ après le tracé de la carte, puis + repérer les coordonnées des deux sommets opposés du rectangle + dans lequel sera inclus la région souhaitée. +\begin{center} +\psset{linewidth=0.2\pslinewidth} +\psset{xunit=0.75,yunit=0.75} +\begin{pspicture*}[showgrid=true](-9,-9)(10,9) + \WorldMapII[maillage=false,rivers=false,borders=false,all=true] +\psframe[linewidth=0.5mm,linecolor=red](-6.5,1)(-3,3) +\end{pspicture*} +\end{center} + \item Par exemple, si nous choisissons de représenter les + \'Etats-Unis les coordonnées des coins bas-gauche et haut-droit + seront : \verb+(-6.5,1)(-3,3)+ + + L'agrandissement sera obtenu en changeant d'unité, un zoom $\times4$ s'obtiendra avec : + \verb+\psset{xunit=4,yunit=4}+. Finalement la + commande s'écrira : +\begin{verbatim} +\begin{center} +\psset{xunit=4,yunit=4}% zoom 4* +\psset{linewidth=1.25\pslinewidth} + \begin{pspicture*}(-6.5,1)(-3,3) + \WorldMapII[samer=true,namer=true,europe=false] +\end{pspicture*} +\end{center} +\end{verbatim} +\begin{center} +\psset{xunit=4,yunit=4}% zoom 4* +\psset{linewidth=1.25\pslinewidth} + \begin{pspicture}*(-6.5,1)(-3,3) + \WorldMapII[samer=true,namer=true,europe=false] +\end{pspicture} +\end{center} +\item Pour le Japon, on choisira le cadre \verb+(6.2,1.4)(7.6,2.8)+ avec un +zoom$\times10$. On ne sectionnera que \texttt{asia=true}, tous les autres +sont à \texttt{false}. +\begin{center} +\psset{xunit=10,yunit=10}% zoom 10* +\psset{linewidth=1.25\pslinewidth} + \begin{pspicture}*(6.2,1.4)(7.6,2.8) + \WorldMapII[asia=true,increment=1] +\end{pspicture} +\end{center} +\end{enumerate} + +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.pdf b/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.pdf Binary files differnew file mode 100644 index 00000000000..7a78bece06b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.pdf diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.tex b/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.tex new file mode 100644 index 00000000000..8ae5dcd0db4 --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map3d.tex @@ -0,0 +1,227 @@ +%------------------------------------------------------------------- +% world_map3d.tex Janvier.05,2004 - rev 1.0 by M. Luque, G. Matarazzo +%------------------------------------------------------------------- +\documentclass[a4paper,french]{article} +\usepackage[latin1]{inputenc} +\usepackage{pstricks,pst-map3d,url,babel} +% + \title{The \PstMapThreeDPackage{} package\\A PSTricks package for Geographical Projections} + \author{Manuel \textsc{Luque} + \mbox{\texttt{<Mluque5130@aol.com>}}\\ + and\\ + Giuseppe \textsc{Matarazzo} \mbox{\texttt{<joematara@hotmail.com>}}} + \date{Version 1.02\\ Mai 06, 2004\\ + {\small Documentation revised November 11, 2005 by hv} +} +\newcommand{\PstMapThreeDPackage}{`\textsf{pst-map3d}'} +\newcommand\Parameter[1]{\colorbox{black}{\textcolor{white}{#1}}} +\psset{linewidth=0.2\pslinewidth,path=../data,level=4} +\begin{document} + \maketitle + \begin{abstract} + Dans la continuité de \textsf{pst-map2d}, \textsf{pst-map3d} + traite de la représentation en trois dimensions + du globe terrestre avec plusieurs fonctionnalités qui rendent son + utilisation agréable (tout au moins nous l'espérons). + \end{abstract} + \tableofcontents + \section{Les données\label{datas}} +GLOBE Binaries DECODING : World Public Domain Dbase : + F.Pospeschil, A.Rivera (1999) + +\url{ftp://ftp.blm.gov/pub/gis/wdbprg.zip} + +Elles ont \'et\'e converties sous forme de tableau PostScript, en +degr\'es, +gr\^ ace à un petit programme en pascal (de Giuseppe Matarazzo) qui +fait partie de la distribution. Ce sont les mêmes données que +celles du package \textsf{pst-map2d}. +\section{Les paramètres et les options} +\subsection{Les paramètres} +\begin{itemize} +\item \Parameter{PHI=49} : latitude du point de vue. +\item \Parameter{THETA=0} : longitude du point de vue. +\item \Parameter{Dobs=20} : distance de l'observateur par rapport au centre de la sphère. +\item \Parameter{Decran=25} : distance de l'écran de projection par rapport à l'observateur. +\item \Parameter{Radius=5} : rayon de la sphère. +\item \Parameter{increment=10} : écart angulaire, en degrés, entre deux +parallèles ou deux méridiens. +\item \Parameter{RotX=0} : on fait tourner le globe terrestre autour de l'axe +\textsf{Ox} et on recalcule les nouvelles coordonnées ; +\item \Parameter{RotY=0} : on fait tourner le globe terrestre de l'axe +\textsf{Oy} et on recalcule les nouvelles coordonnées ; +\item \Parameter{RotZ=0} : on fait tourner le globe terrestre autour de l'axe +\textsf{Oz} et on recalcule les nouvelles coordonnées. +\end{itemize} +$Oxyz$ est le repère ``\textit{absolu}'' dans lequel les coordonnées sont +définies. Lorsque \Parameter{RotX=0,RotY=0,RotZ=0}, $Oz$ coïncide avec l'axe des +pôles, le plan $Oxy$ est celui de l'équateur et l'axe $Ox$ correspond à +la longitude 0. + +Les valeurs indiquées sont les valeurs par défaut. L'image sera d'autant +plus grande que la distance de l'écran par rapport à l'observateur sera +grande. Les valeurs des distances sont en \textsf{cm}. +\subsection{Les options} +\begin{itemize} +\item \Parameter{MapFillColor=0.99 0.95 0.7 } : permet de choisir la couleur de remplissage des continents, + en mode RGB. +\item \Parameter{maillageColor=0.5 0.5 0.5 } : permet de choisir la couleur du canevas en mode RGB. +\item \Parameter{level=1} : niveau de détail élevé (valeur activée par défaut). +\item \Parameter{level=2} : niveau de détail moyen, la mappemonde est dessinée très rapidement . +\item \Parameter{city=true} : les capitales et les villes importantes sont placées. +\item \Parameter{capital=true} : seules les capitales sont indiquées. +\item \Parameter{maillage=false} : les parallèles et méridiens ne sont pas tracés. +\end{itemize} + +\clearpage + +\section{Divers exemples} +\psset{level=2} +\subsection{La mappemonde dans sa totalité} +\subsubsection{Sans les villes} +\begin{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) + \WorldMapThreeD[PHI=30,THETA=0]% +\end{pspicture}} +\end{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) + \WorldMapThreeD[PHI=30,THETA=0,maillageColor= 0 0 0]% +\end{pspicture}} + + +\clearpage + +\subsubsection{Avec les villes} +On voit ici l'effet de rotation du paramètre \verb+RotX=-60+ +\begin{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) + \WorldMapThreeD[PHI=50,THETA=0,city=true,RotX=-60]% +\end{pspicture}} +\end{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) + \WorldMapThreeD[PHI=50,THETA=0,city=true,RotX=-60]% +\end{pspicture}} + +\clearpage + +\subsection{Le choix du point de vue} +Si l'on fait abstraction des paramètres \verb+RotX+, \verb+RotY+ +et \verb+RotZ+, le point de vue est déterminé par \verb+THETA+ et +\verb+PHI+, c'est-à-dire par la latitude et la longitude. Il faut +ensuite choisir la distance du point de vue \verb+Dobs+ et la position de +l'écran de projection \verb+Decran+. + +Par exemple une vue du Pôle Nord sera obtenue avec : +\begin{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) +\WorldMapThreeD[PHI=90,THETA=-50] +\end{pspicture}} +\end{verbatim} + +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) +\WorldMapThreeD[PHI=90,THETA=-50] +\end{pspicture}} + +\clearpage + +Par exemple une vue au niveau de l'équateur sera obtenue avec : +\begin{verbatim} +\begin{pspicture}(-5,-5)(5,5) +\WorldMapThreeD[PHI=0,THETA=100,city=true] +\end{pspicture} +\end{verbatim} + +\begin{pspicture}(-7,-7)(7,7) +\WorldMapThreeD[PHI=0,THETA=100,city=true] +\end{pspicture} + +\clearpage + +Voici une vue du continent asiatique +\begin{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) +\WorldMapThreeD[PHI=50,THETA=90,maillage=false,city=true] +\end{pspicture}} +\end{verbatim} +\psframebox[fillstyle=solid,fillcolor=black]{ +\begin{pspicture}(-7,-7)(7,7) +\WorldMapThreeD[PHI=50,THETA=90,maillage=false,city=true] +\end{pspicture}} + +\clearpage +\section{Zoom et animations} +\subsection{Zoom} +Pour faire un zoom sur une partie de la mappemonde, il suffit de +rapprocher l'observateur de la sphère (pas trop cela crée des +distorsions) ou bien d'éloigner l'écran de projection. On passera +au \Parameter{level=1}. +\begin{verbatim} +\begin{center} +\psframebox[fillstyle=solid,fillcolor=black]{% +\begin{pspicture}*(-7,-4)(7,4) +\WorldMapThreeD[PHI=48,THETA=30,city=true,increment=5,Decran=48,level=1]% +\end{pspicture} +\end{center} +\end{verbatim} +\begin{center} +\psframebox[fillstyle=solid,fillcolor=black]{% +\begin{pspicture}*(-7,-4)(7,4) +\WorldMapThreeD[PHI=48,THETA=30,city=true,increment=5,Decran=48,level=1]% +\end{pspicture}} +\end{center} + +\clearpage + + +\subsection{Animations} +Pour faire tourner le globe autour de l'axe des pôles, on fera +varier \verb+THETA+ dans une boucle \verb+\multido+. On utilisera +l'une des techniques d'animation déjà présentées, par exemple sur +: + +\url{http://tug.org/mailman/htdig/pstricks/2002/000697.html} + +\url{http://tug.org/mailman/htdig/pstricks/2002/000698.html} + +\url{http://melusine.eu.org/syracuse/scripts/PST-anim/} +\begin{verbatim} +\begin{center} +\hbox{\hspace{-2cm} +\multido{\iTheta=0+10}{18}{% +\psframebox[fillstyle=solid,fillcolor=black]{% +\begin{pspicture}*(-7,-4)(7,4) +\WorldMapThreeD[PHI=48,THETA=\iTheta,city=true,increment=5,Decran=48,level=1]% +\end{pspicture}}} +} +\end{center} +\end{verbatim} +On pourra créer une animation consistant en un survol du globe en +faisant varier \verb+THETA+ et \verb+PHI+ ainsi qu'éventuellement +l'altitude de l'observateur. +\section{Téléchargement des fichiers} +Ce sont les mêmes fichiers de données que \verb+pst-map2d+ (une +partie de \texttt{wdb.zip}) : \url{http://melusine.eu.org/syracuse/mluque/mappemonde/} + + Si vous +n'avez pas lu le fichier \verb+A LIRE+ de la documentation de \verb+pst-map2d+, la compilation a du mal se +passer. Il faut en effet indiquer le chemin des données dans la +variable \verb+path+. Cette variable contient le chemin des +données sur mon disque dur : + +\verb+path=C:/mappemonde/wdb+ + +Il faut donc avant le \verb+\begin{document}+, indiquer celui qui +correspond à votre configuration avec une commande du type : + +\verb+\psset{path=C:/mappemonde/wdb}+ + + ou bien le modifier +directement dans le fichier \verb+pst-map3d.tex+. +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.pdf b/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.pdf Binary files differnew file mode 100644 index 00000000000..704f20de40b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.pdf diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.tex b/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.tex new file mode 100644 index 00000000000..e5a8591797d --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-geo/doc-map3dII.tex @@ -0,0 +1,261 @@ +%------------------------------------------------------------------- +% doc-pst-map3dII.tex Dec.22,2003 - rev.02 by M. Luque, G. Matarazzo +%------------------------------------------------------------------- +\documentclass[a4paper]{article} +\usepackage{pstricks,pst-map3dII,url} +\psset{path=../dataII,level=50} +\usepackage[francais]{babel} +\usepackage[ansinew]{inputenc}% + \title{The \PstMapThreeDIIPackage{} package\\A PSTricks package for Geographical Projections} + \author{Manuel \textsc{Luque} + \mbox{\texttt{<Mluque5130@aol.com>}}\\ + and\\ + Giuseppe \textsc{Matarazzo} \mbox{\texttt{<joematara@hotmail.com>}}} + \date{Version 0.2\\ December 20, 2003\\ + {\small Documentation revised November 11, 2005 by hv}} +\newcommand{\PstMapThreeDIIPackage}{`\textsf{pst-map3dII}'} +\newcommand\Parameter[1]{\colorbox{black}{\textcolor{white}{#1}}} +\begin{document} + \maketitle + \begin{abstract} + Dans la continuité de \textsf{pst-map2dII}, cette solution se propose +d'utiliser la base de données géographiques : \textsf{CIA World DataBank II}, que l'on trouvera sur +\url{http://www.evl.uic.edu/pape/data/WDB/} pour dessiner la +mappemonde en 3D. + +Comme nous l'avions déjà signalé dans le précédent package et si vous ne l'avez pas fait, il faudra récupérera sur ce +site toutes les données qui pèsent, compressées au format +\textsf{tgz}, 30~Mo et 121~Mo une fois décompactées. Cela donne +une finesse de tracé exceptionnelle ! + +\'Evidemment le temps de calcul est proportionnel à la taille des +données à traiter. Cependant des options permettent de choisir la +représentation d'un continent ou plusieurs. Un ordinateur puissant +avec beaucoup de mémoire vive est donc souhaitable : pour un travail confortable 512~Mb semble l'idéal. Cependant si +on se limite au dessin de certaines parties du monde, le temps de +calcul est très raisonnable et une mémoire réduite suffisante. + \end{abstract} + + \tableofcontents + +\section{La mise en forme des données} +Pour faciliter le travail de PostScript et diminuer le temps de +calcul les données europe-cil.txt etc. doivent être très +légèrement adaptées avec un éditeur de texte acceptant les +fichiers lourds. + +Tous les lignes \textsf{segment ...} doivent être remplacées par : + +\textsf{][\% segment...}. + +Pour la clarté, si l'éditeur le permet +on insérera un saut de ligne entre les deux crochets \textsf{] [}. +On modifiera le début et la fin du fichier ainsi obtenu plaçant au +début, à la place du premier crochet~] : + +\textsf{/europe-cil [} + +et à la fin, on rajoutera : + +\textsf{] ] def}. + +On enregistrera le fichier sous le nom \textsf{europe-cil.dat}. + +Cet exemple valable pour le fichier \textsf{europe-cil.txt} doit +être répété et adapté, en modifiant les noms, à tous les autres +fichiers. + +Giuseppe Matarazzo a mis au point un programme permettant de faire +ce travail automatiquement, il fait partie de la distribution (en cas de problèmes veuillez le contacter). + +\section{Un exemple : la région méditerranéenne} +Elle s'obtient par la commande : +\begin{verbatim} +\WorldMapThreeDII[PHI=40,THETA=15,Decran=80,increment=2,% + asia=true,africa=true,namer=false,samer=false]% +\end{verbatim} + +Dans laquelle \textsf{PHI=40,THETA=15} fixent en latitude et longitude la +position du point de vue : sur la carte le point de coordonnées +géographiques correspondantes sera au centre ; il est nécessaire cependant, que les coordonnées de +l'environnement \verb+\begin{pspicture}*(-9,-4)(9,4)+ possèdent une symétrie +centrale. \textsf{Decran=80} fixe la distance de l'écran de projection de +l'image vue, plus cette distance sera grande et plus l'image obtenue (plus +l'effet de zoom) sera grande. + +\textsf{asia=true,africa=true,namer=false,samer=false} indique les régions +qui seront ou non représentées, \textsf{europe=true} y est par défaut. + +\textsf{increment=2} représente l'écart angulaire, en degrés, entre deux +parallèles ou deux méridiens. Les explications concernant ces paramètres +vont être développées dans les exemples suivants, ainsi que celles d'autres +paramètres. + +\makebox[\textwidth]{% +\begin{pspicture*}(-9,-4)(9,4) +\WorldMapThreeDII[PHI=35,THETA=15,Decran=80,city=true,% + borders=true,asia=true, + africa=true,rivers=false,% + linewidth=0.5\pslinewidth,increment=5]% +\end{pspicture*}} + +\section{Les paramètres et les options} +\subsection{Les paramètres} +\begin{itemize} +\item \Parameter{PHI=49} : latitude du point de vue. +\item \Parameter{THETA=0} : longitude du point de vue. +\item \Parameter{Dobs=20} : distance de l'observateur par rapport au centre de la sphère. +\item \Parameter{Decran=25} : distance de l'écran de projection par rapport à l'observateur. +\item \Parameter{Radius=5} : rayon de la sphère. +\item \Parameter{increment=10} : écart angulaire, en degrés, entre deux +parallèles ou deux méridiens. +\item \Parameter{RotX=0} : on fait tourner le globe terrestre autour de l'axe +\textsf{Ox} et on recalcule les nouvelles coordonnées ; +\item \Parameter{RotY=0} : on fait tourner le globe terrestre de l'axe +\textsf{Oy} et on recalcule les nouvelles coordonnées ; +\item \Parameter{RotZ=0} : on fait tourner le globe terrestre autour de l'axe +\textsf{Oz} et on recalcule les nouvelles coordonnées. +\end{itemize} +$Oxyz$ est le repère ``\textit{absolu}'' dans lequel les coordonnées sont +définies. Si \Parameter{RotX=0,RotY=0,RotZ=0}, $Oz$ coïncide avec l'axe des +pôles, le plan $Oxy$ est celui de l'équateur et l'axe $Ox$ correspond à +la longitude 0. + +Les valeurs indiquées sont les valeurs par défaut. L'image sera d'autant +plus grande que la distance de l'écran par rapport à l'observateur sera +grande. Les valeurs des distances sont en \textsf{cm}. + +\subsection{Les options} +\begin{itemize} +\item \Parameter{europe=true} : l'Europe est dessinée(par défaut). +\item \Parameter{africa=false} : l'Afrique n'est pas dessinée. +\item \Parameter{asia=false} : l'Asie n'est pas dessinée. +\item \Parameter{namer=false} : l'Amérique du Nord n'est pas dessinée. +\item \Parameter{samer=false} : l'Amérique du Sud n'est pas dessinée. +\item \Parameter{rivers=false} : les rivières ne sont pas dessinées. +\item \Parameter{borders=false} : les frontières ne sont pas dessinées. +\item \Parameter{city=true} : les capitales et les villes importantes sont placées. +\item \Parameter{capital=true} : seules les capitales sont indiquées. +\item \Parameter{maillage=false} : les parallèles et méridiens ne sont pas tracés. +\end{itemize} +\section{Le mode d'emploi} +\subsection{La mappemonde dans sa totalité} +C'est évidemment possible, mais le temps de calcul est élevé .Il vaut mieux +si on ne possède pas un ordinateur rapide avec beaucoup de mémoire vive +désactiver le tracé de fleuves et des frontières. + +En choisissant les valeurs de \Parameter{PHI} et \Parameter{THETA} on +fixera le point de vue. + +Avec le scénario suivant on se place au-dessus du pôle Nord. +\begin{verbatim} +\WorldMapThreeDII[PHI=80,THETA=-10,Decran=25,city=true,% + asia=true,africa=true,namer=true,samer=true,% + rivers=false,borders=false]% +\end{verbatim} +\begin{center} +\begin{pspicture}*(-7,-7)(7,7) +\psframe*[linecolor=black](-7,-7)(7,7) +\WorldMapThreeDII[PHI=80,THETA=-10,Decran=25,city=true,% + asia=true,africa=true,namer=true,samer=true,% + rivers=false,borders=false, + linewidth=0.5\pslinewidth]% +\end{pspicture} +\end{center} + +\clearpage + +Avec les paramètres : +\begin{verbatim} +\WorldMapThreeDII[PHI=35,THETA=20,Decran=25,RotX=-45,city=true,% + asia=true,africa=true,namer=true,samer=true,% + rivers=false,borders=false]% +\end{verbatim} +On tourne le globe terrestre de $\mathrm{-45^o}$ autour de $Ox$, dans le repère $Oxyz$ +les nouvelles coordonnées sont re-calculées ; le dessin +des fleuves et rivières est désactivé. +\begin{center} +\begin{pspicture}*(-7,-7)(7,7) +\psframe*[linecolor=black](-7,-7)(7,7) +\WorldMapThreeDII[PHI=42,THETA=20,Decran=25,RotX=-45,city=true,% + asia=true,africa=true,namer=true,samer=true,% + rivers=true,borders=true, + linewidth=0.5\pslinewidth]% +\end{pspicture} +\end{center} + +\subsection{Visualiser une partie du globe terrestre} +Il est cependant plus intéressant de servir du package pour faire un gros +plan d'une région du globe. On désactivera alors les régions qui ne sont pas +représentées, comme nous l'avons vu dans le premier exemple de présentation. + +\clearpage +\subsubsection{La France} +\begin{verbatim} +\begin{pspicture}*(-8,-8)(8,8) +\WorldMapThreeDII[PHI=45,THETA=2,Decran=150,city=true,% + asia=false,africa=false,samer=true,europe=true,increment=2]% France +\end{pspicture} +\end{verbatim} +\begin{center} +\hbox{\hspace{-1.5cm}% +\begin{pspicture}*(-8,-8)(8,8) +\WorldMapThreeDII[PHI=45,THETA=2,Decran=150,city=true,% + asia=false,africa=false,samer=true,europe=true,increment=2]% France +\end{pspicture}} +\end{center} + + +\clearpage + +\subsubsection{L'Amérique centrale} +\begin{verbatim} +\hbox{\hspace{-1.5cm}% +\begin{pspicture}*(-8,-8)(8,8) +\WorldMapThreeDII[PHI=15,THETA=-90,Decran=80,city=true,% + asia=false,africa=false,samer=true,europe=false, + namer=true,increment=2]% Mexico +\end{pspicture}} +\end{verbatim} +\begin{center} +\hbox{\hspace{-1.5cm}% +\begin{pspicture}*(-8,-8)(8,8) +\WorldMapThreeDII[PHI=15,THETA=-90,Decran=80,city=true,% + asia=false,africa=false,samer=true,europe=false,namer=true,increment=2]% Mexico +\end{pspicture}} +\end{center} + + +\clearpage + +\subsubsection{Madagascar} +\begin{verbatim} +\begin{pspicture}*(-5,-5)(5,5) +\WorldMapThreeDII[PHI=-19,THETA=47.5,Decran=85,Dobs=15,city=true,% + asia=false,africa=true,samer=false,europe=false,% + namer=false,increment=2]% Madagascar +\end{pspicture} +\end{verbatim} +\begin{center} +\begin{pspicture}*(-5,-5)(5,5) +\WorldMapThreeDII[PHI=-19,THETA=47.5,Decran=85,Dobs=15,city=true,% + asia=false,africa=true,samer=false,europe=false,namer=false,increment=2]% Madagascar +\end{pspicture} +\end{center} +\section{Téléchargement des fichiers} +\begin{itemize} + \item Les données géographiques sont à télécharger sur : + + \url{http://www.evl.uic.edu/pape/data/WDB/} + \item Les fichiers concernant le package sur : + + \url{http://pageperso.aol.fr/manuelluque1/map3dII/doc-pst-map3dii.html} +\end{itemize} +\section{Appel à collaboration} +Il reste beaucoup de choses à faire\ldots par exemple placer, en option, le +nom des villes, les degrés de méridiens et parallèles etc. + +Par conséquent, si ce sujet vous intéresse et si vous souhaitez compléter et +améliorer ces packages : \textsf{pst-map2d, pst-map3d, pst-map2dII, +pst-map3dII}, n'hésitez pas à vous manifester\ldots +\end{document} diff --git a/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz b/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz Binary files differdeleted file mode 100644 index c3a50215c93..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/doc/doc.tgz +++ /dev/null diff --git a/Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgz b/Master/texmf-dist/doc/generic/pst-geo/examples2d.tgz Binary files differindex 28db02a0748..28db02a0748 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/examples2d/examples2d.tgz +++ b/Master/texmf-dist/doc/generic/pst-geo/examples2d.tgz diff --git a/Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgz b/Master/texmf-dist/doc/generic/pst-geo/examples3d.tgz Binary files differindex 6a6c4a002b8..6a6c4a002b8 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/examples3d/examples3d.tgz +++ b/Master/texmf-dist/doc/generic/pst-geo/examples3d.tgz diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty deleted file mode 100644 index 4a1f0d756bb..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.sty +++ /dev/null @@ -1,3 +0,0 @@ -\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 index 9825d8376ad..e93eecd1b6b 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex +++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2d.tex @@ -19,10 +19,6 @@ %% `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 @@ -30,23 +26,28 @@ % 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 +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey\fi % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-map2d}% added 2004-09-29 hv +% +\def\fileversion{1.07} +\def\filedate{2005/11/11} +\message{`PST-map2d' v\fileversion, \filedate\space (ML/GM/HV)} +% \SpecialCoor % -\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données -\setkeys{psset}{path=data} +\define@key[psset]{pst-map2d}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données +\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]{pst-map2d}{level}{\edef\psk@WorldMap@level{#1}} +\psset{level=1} % -\define@key{psset}{type}{\edef\psk@WorldMap@type{#1}} -\setkeys{psset}{type=1} +\define@key[psset]{pst-map2d}{type}{\edef\psk@WorldMap@type{#1}} +\psset{type=1} % type=1 ==> Mercator % type=2 ==> Lambert % type=3 ==> simple @@ -55,59 +56,59 @@ % 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]{pst-map2d}{n}{\edef\psk@WorldMap@n{#1}} +\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]{pst-map2d}{limiteL}{\edef\psk@WorldMap@limiteL{#1}} +\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]{pst-map2d}{latitude0}{\edef\psk@WorldMap@latitudeO{#1}} +\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]{pst-map2d}{longitude0}{\edef\psk@WorldMap@longitudeO{#1}} +\psset{longitude0=0} % pour Bonne longitude 0 % -\define@key{psset}{increment}{\edef\psk@WorldMap@increment{#1}} -\setkeys{psset}{increment=10} +\define@key[psset]{pst-map2d}{increment}{\edef\psk@WorldMap@increment{#1}} +\psset{increment=10} % -\define@key{psset}{MapFillColor}{\edef\psk@WorldMap@Fillcolor{#1}} % couleur des continents -\setkeys{psset}{MapFillColor= 0.99 0.95 0.7 } +\define@key[psset]{pst-map2d}{MapFillColor}{\edef\psk@WorldMap@Fillcolor{#1}} % couleur des continents +\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} +\define@key[psset]{pst-map2d}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} +\psset{capital=false} % \newif\ifPst@WorldMap@city -\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} -\setkeys{psset}{city=false} +\define@key[psset]{pst-map2d}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} +\psset{city=false} % \newif\ifPst@WorldMap@Rivers -\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMap@Rivers#1}} -\setkeys{psset}{rivers=true} +\define@key[psset]{pst-map2d}{rivers}[true]{\@nameuse{Pst@WorldMap@Rivers#1}} +\psset{rivers=true} % \newif\ifPst@WorldMap@Borders -\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMap@Borders#1}} -\setkeys{psset}{borders=false} +\define@key[psset]{pst-map2d}{borders}[true]{\@nameuse{Pst@WorldMap@Borders#1}} +\psset{borders=false} % \newif\ifPst@WorldMap@maillage -\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} -\setkeys{psset}{maillage=true} +\define@key[psset]{pst-map2d}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} +\psset{maillage=true} % \newif\ifPst@WorldMap@Fill -\define@key{psset}{Fill}[true]{\@nameuse{Pst@WorldMap@Fill#1}} -\setkeys{psset}{Fill=true} +\define@key[psset]{pst-map2d}{Fill}[true]{\@nameuse{Pst@WorldMap@Fill#1}} +\psset{Fill=true} % \newif\ifPst@WorldMap@USA -\define@key{psset}{USA}[false]{\@nameuse{Pst@WorldMap@USA#1}} -\setkeys{psset}{USA=false} +\define@key[psset]{pst-map2d}{USA}[false]{\@nameuse{Pst@WorldMap@USA#1}} +\psset{USA=false} % \newif\ifPst@WorldMap@AUS -\define@key{psset}{AUS}[false]{\@nameuse{Pst@WorldMap@AUS#1}} -\setkeys{psset}{AUS=false} +\define@key[psset]{pst-map2d}{AUS}[false]{\@nameuse{Pst@WorldMap@AUS#1}} +\psset{AUS=false} % \newif\ifPst@WorldMap@MEX -\define@key{psset}{MEX}[false]{\@nameuse{Pst@WorldMap@MEX#1}} -\setkeys{psset}{MEX=false} +\define@key[psset]{pst-map2d}{MEX}[false]{\@nameuse{Pst@WorldMap@MEX#1}} +\psset{MEX=false} % \def\VariablesMap{% /Coeff_mercatorY {2 div 45 add dup sin exch cos div ln 57.2958 mul} def % Mercator @@ -174,7 +175,7 @@ \def\WorldMap{\pst@object{WorldMap}} \def\WorldMap@i{\@ifnextchar[{\WorldMap@do}{\WorldMap@do[]}} \def\WorldMap@do[#1]{{% - \setkeys{psset}{#1}% + \psset{#1}% \begin@ClosedObj \addto@pscode{% \VariablesMap @@ -368,10 +369,10 @@ DrawCitys % %------------------- 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} +\define@key[psset]{pst-map2d}{mapCountry}{\edef\psk@WorldMap@mapCountry{#1}} +\psset{mapCountry=all} +\define@key[psset]{pst-map2d}{nodeWidth}{\edef\psk@WorldMap@nodeWidth{#1}} +\psset{nodeWidth=1mm} \newpsstyle{psNodeMapStyle}{fillstyle=solid,fillcolor=red} % \def\mapput{\@ifnextchar[{\mapput@i}{\mapput@i[90]}} diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty deleted file mode 100644 index 42d4b41bf2f..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.sty +++ /dev/null @@ -1,3 +0,0 @@ -\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 index bf73ed554f7..35c449004e0 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex +++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map2dII.tex @@ -19,30 +19,31 @@ %% `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 +\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex \fi +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex \fi % +% +\def\fileversion{0.81} +\def\filedate{2005/11/10} +\message{`PST-map2dII v\fileversion, \filedate\space (ML/GM/HV)} \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-map2dII}% added 2005-09-29 hv + \SpecialCoor % -\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données -\setkeys{psset}{path=data} +\define@key[psset]{pst-map2dII}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données +\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} +\define@key[psset]{pst-map2dII}{type}{\edef\psk@WorldMapII@type{#1}} +\psset{type=1} +\define@key[psset]{pst-map2dII}{increment}{\edef\psk@WorldMapII@increment{#1}} +\psset{increment=10} % type=1 ==> Mercator % type=2 ==> Lambert % type=3 ==> simple @@ -51,142 +52,137 @@ % 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]{pst-map2dII}{n}{\edef\psk@WorldMap@n{#1}} +\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]{pst-map2dII}{limiteL}{\edef\psk@WorldMap@limiteL{#1}} +\psset{limiteL=180} % longitude limite % -\define@key{psset}{limiteL}{\edef\psk@WorldMap@limiteL{#1}} -\setkeys{psset}{limiteL=180} % longitude limite +\define@key[psset]{pst-map2dII}{limiteL}{\edef\psk@WorldMap@limiteL{#1}} +\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]{pst-map2dII}{latitude0}{\edef\psk@WorldMap@latitudeO{#1}} +\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]{pst-map2dII}{longitude0}{\edef\psk@WorldMap@longitudeO{#1}} +\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} +\define@key[psset]{pst-map2dII}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} +\psset{capital=false} % \newif\ifPst@WorldMap@city -\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} -\setkeys{psset}{city=false} +\define@key[psset]{pst-map2dII}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} +\psset{city=false} % \newif\ifPst@WorldMapII@Rivers -\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}} -\setkeys{psset}{rivers=false} +\define@key[psset]{pst-map2dII}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}} +\psset{rivers=false} % \newif\ifPst@WorldMapII@Borders -\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}} -\setkeys{psset}{borders=true} +\define@key[psset]{pst-map2dII}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}} +\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} +\define@key[psset]{pst-map2dII}{maillage}[true]{\@nameuse{Pst@WorldMapII@maillage#1}} +\psset{maillage=true} % \newif\ifPst@WorldMapII@Europe -\define@key{psset}{europe}[true]{\@nameuse{Pst@WorldMapII@Europe#1}} -\setkeys{psset}{europe=true} +\define@key[psset]{pst-map2dII}{europe}[true]{\@nameuse{Pst@WorldMapII@Europe#1}} +\psset{europe=true} % \newif\ifPst@WorldMapII@Asia -\define@key{psset}{asia}[true]{\@nameuse{Pst@WorldMapII@Asia#1}} -\setkeys{psset}{asia=false} +\define@key[psset]{pst-map2dII}{asia}[true]{\@nameuse{Pst@WorldMapII@Asia#1}} +\psset{asia=false} % \newif\ifPst@WorldMapII@Africa -\define@key{psset}{africa}[true]{\@nameuse{Pst@WorldMapII@Africa#1}} -\setkeys{psset}{africa=false} +\define@key[psset]{pst-map2dII}{africa}[true]{\@nameuse{Pst@WorldMapII@Africa#1}} +\psset{africa=false} % \newif\ifPst@WorldMapII@namer -\define@key{psset}{namer}[true]{\@nameuse{Pst@WorldMapII@namer#1}} -\setkeys{psset}{namer=false} +\define@key[psset]{pst-map2dII}{namer}[true]{\@nameuse{Pst@WorldMapII@namer#1}} +\psset{namer=false} % \newif\ifPst@WorldMapII@samer -\define@key{psset}{samer}[true]{\@nameuse{Pst@WorldMapII@samer#1}} -\setkeys{psset}{samer=false} +\define@key[psset]{pst-map2dII}{samer}[true]{\@nameuse{Pst@WorldMapII@samer#1}} +\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]{pst-map2dII}{all}[true]{% + \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 +\define@key[psset]{pst-map2dII}{level}{\edef\psk@WorldMapII@level{#1}}% hv 2004-05-05 +\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 + /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_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 + /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 + 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 + \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 + \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 + \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 + \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 + \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 + \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 + \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 + /increment \psk@WorldMapII@increment\space def } % \newcount\TypeProjection \def\WorldMapII{\pst@object{WorldMapII}} -\def\WorldMapII@i{\@ifnextchar[{\WorldMapII@do}{\WorldMapII@do[]}} -\def\WorldMapII@do[#1]{{% - \setkeys{psset}{#1}% +\def\WorldMapII@i{{% + \use@par% \begin@ClosedObj - \addto@pscode{% - /increment \psk@WorldMapII@increment\space def + \addto@pscode{ \VariablesMap 1 setlinejoin 0 0 translate @@ -291,157 +287,157 @@ europe-riv DrawRivers \fi - \ifPst@WorldMapII@Borders - (\psk@WorldMap@Path/europe-bdy.dat) run - europe-bdy - DrawBdy + \ifPst@WorldMapII@Borders + (\psk@WorldMap@Path/europe-bdy.dat) run + europe-bdy + DrawBdy + \fi \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 + \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 + 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 + X 0 eq { 1 0 0 setrgbcolor }{ 0.2 setgray } ifelse % -0.25 setlinewidth -stroke -grestore -} for + 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 + 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 + 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 + (\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 + (\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 -}} + (\psk@WorldMap@Path/c-cap.dat) run + 1.5 + citycapitals + DrawCitys + \fi + }% + \end@ClosedObj + }\ignorespaces} % \def\pnodeMap(#1,#2)#3{% hv 2004-05-09 @@ -455,10 +451,10 @@ DrawCitys % %------------------- 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} +\define@key[psset]{pst-map2dII}{mapCountry}{\edef\psk@WorldMap@mapCountry{#1}} +\psset{mapCountry=all} +\define@key[psset]{pst-map2dII}{nodeWidth}{\edef\psk@WorldMap@nodeWidth{#1}} +\psset{nodeWidth=1mm} \newpsstyle{psNodeMapStyle}{fillstyle=solid,fillcolor=red} % \def\mapput{\@ifnextchar[{\mapput@i}{\mapput@i[90]}} diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty deleted file mode 100644 index b602c6abae1..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.sty +++ /dev/null @@ -1,3 +0,0 @@ -\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 index 23901f8fb88..f2613405cf3 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex +++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3d.tex @@ -7,7 +7,7 @@ %% %% Manuel Luque <Mluque5130@aol.com> (France) %% Giuseppe Matarazzo <joematara@hotmail.com> (Italy) -%% Herbert Voss <voss@perce.de> (Germany) +%% Herbert Voss <voss _at_ perce.de> (Germany) %% %% May 09, 2004 %% @@ -19,10 +19,6 @@ %% `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 @@ -30,41 +26,45 @@ % 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 +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex \fi +\def\fileversion{1.03} +\def\filedate{2005/11/10} + +\message{`PST-map3d v\fileversion, \filedate\space (ML/GM/HV)} +\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-map3d} +% \SpecialCoor % -\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données -\setkeys{psset}{path=data} +\define@key[psset]{pst-map3d}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données +\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]{pst-map3d}{RotX}{\edef\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés +\define@key[psset]{pst-map3d}{RotY}{\edef\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés +\define@key[psset]{pst-map3d}{RotZ}{\edef\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés +\define@key[psset]{pst-map3d}{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} +\define@key[psset]{pst-map3d}{THETA}{\edef\psk@TroisD@Theta{#1}} +\define@key[psset]{pst-map3d}{PHI}{\edef\psk@TroisD@Phi{#1}} +\define@key[psset]{pst-map3d}{Dobs}{\edef\psk@TroisD@Dobs{#1}} +\define@key[psset]{pst-map3d}{Decran}{\edef\psk@TroisD@Ecran{#1}} +\psset{THETA=0,PHI=45,Dobs=20,Decran=25} % -\setkeys{psset}{RotX=0,RotY=0,RotZ=0} +\psset{RotX=0,RotY=0,RotZ=0,Radius=5} % -\define@key{psset}{increment}{\edef\psk@WorldMap@increment{#1}} -\setkeys{psset}{increment=10} +\define@key[psset]{pst-map3d}{increment}{\edef\psk@WorldMap@increment{#1}} +\psset{increment=10} % -\define@key{psset}{maillageColor}{\edef\psk@WorldMap@maillageColor{#1}} -\setkeys{psset}{maillageColor= 0.5 0.5 0.5 } +\define@key[psset]{pst-map3d}{maillageColor}{\edef\psk@WorldMap@maillageColor{#1}} +\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]{pst-map3d}{MapFillColor}{\edef\psk@WorldMap@Fillcolor{#1}} % couleur des continents +\psset{MapFillColor= 0.99 0.95 0.7 } % -\define@key{psset}{level}{\edef\psk@WorldMap@level{#1}} -\setkeys{psset}{level=1} +\define@key[psset]{pst-map3d}{level}{\edef\psk@WorldMap@level{#1}} +\psset{level=1} % \def\variablesTroisD{% /RotX \psk@TroisD@RotX\space def @@ -79,25 +79,25 @@ }% % \newif\ifPst@WorldMap@capitals -\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} -\setkeys{psset}{capital=false} +\define@key[psset]{pst-map3d}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} +\psset{capital=false} % \newif\ifPst@WorldMap@city -\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} -\setkeys{psset}{city=false} +\define@key[psset]{pst-map3d}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} +\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} +\define@key[psset]{pst-map3d}{rivers}[true]{\@nameuse{Pst@WorldMap@Rivers#1}} +\psset{rivers=true} % \newif\ifPst@WorldMap@maillage -\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} -\setkeys{psset}{maillage=true} +\define@key[psset]{pst-map3d}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} +\psset{maillage=true} % \def\WorldMapThreeD{\pst@object{WorldMapThreeD}} \def\WorldMapThreeD@i{\@ifnextchar[{\WorldMapThreeD@do}{\WorldMapThreeD@do[]}} \def\WorldMapThreeD@do[#1]{{% -\setkeys{psset}{#1}% +\psset{#1}% \begin@ClosedObj \addto@pscode{% /increment \psk@WorldMap@increment\space def diff --git a/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty deleted file mode 100644 index 370d67007e7..00000000000 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.sty +++ /dev/null @@ -1,3 +0,0 @@ -\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 index ae9480c168b..a0116a97668 100644 --- a/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex +++ b/Master/texmf-dist/doc/generic/pst-geo/pst-map3dII.tex @@ -19,44 +19,44 @@ %% `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 -% +\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey\fi + +\def\fileversion{0.23} +\def\filedate{2005/11/10} + +\message{`PST-mapThreeDII v\fileversion, \filedate\space (ML/GM/HV)} \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax +\pst@addfams{pst-map3dII} \pstheader{map3dII.pro} \SpecialCoor % -\define@key{psset}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données -\setkeys{psset}{path=.} +\define@key[psset]{pst-map3dII}{path}{\edef\psk@WorldMap@Path{#1}} % chemin des données +\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]{pst-map3dII}{RotX}{\edef\psk@TroisD@RotX{#1}} % rotation autour de Ox en degrés +\define@key[psset]{pst-map3dII}{RotY}{\edef\psk@TroisD@RotY{#1}} % rotation autour de Oy en degrés +\define@key[psset]{pst-map3dII}{RotZ}{\edef\psk@TroisD@RotZ{#1}} % rotation autour de OZ en degrés +\define@key[psset]{pst-map3dII}{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} +\define@key[psset]{pst-map3dII}{THETA}{\edef\psk@TroisD@Theta{#1}} +\define@key[psset]{pst-map3dII}{PHI}{\edef\psk@TroisD@Phi{#1}} +\define@key[psset]{pst-map3dII}{Dobs}{\edef\psk@TroisD@Dobs{#1}} +\define@key[psset]{pst-map3dII}{Decran}{\edef\psk@TroisD@Ecran{#1}} +\psset{THETA=0,PHI=45,Dobs=20,Decran=25,Radius=5} % -\setkeys{psset}{RotX=0,RotY=0,RotZ=0} +\psset{RotX=0,RotY=0,RotZ=0} % -\define@key{psset}{increment}{\edef\psk@WorldMapII@increment{#1}} -\setkeys{psset}{increment=10} +\define@key[psset]{pst-map3dII}{increment}{\edef\psk@WorldMapII@increment{#1}} +\psset{increment=10} % -\define@key{psset}{level}{\edef\psk@WorldMapII@level{#1}}% hv 2004-05-05 -\setkeys{psset}{level=5} +\define@key[psset]{pst-map3dII}{level}{\edef\psk@WorldMapII@level{#1}}% hv 2004-05-05 +\psset{level=5} % \def\variablesTroisD{% /RotX \psk@TroisD@RotX\space def @@ -71,54 +71,54 @@ }% % \newif\ifPst@WorldMap@capitals -\define@key{psset}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} -\setkeys{psset}{capital=false} +\define@key[psset]{pst-map3dII}{capital}[false]{\@nameuse{Pst@WorldMap@capitals#1}} +\psset{capital=false} % \newif\ifPst@WorldMap@city -\define@key{psset}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} -\setkeys{psset}{city=false} +\define@key[psset]{pst-map3dII}{city}[false]{\@nameuse{Pst@WorldMap@city#1}} +\psset{city=false} % \newif\ifPst@WorldMap@maillage -\define@key{psset}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} -\setkeys{psset}{maillage=true} +\define@key[psset]{pst-map3dII}{maillage}[true]{\@nameuse{Pst@WorldMap@maillage#1}} +\psset{maillage=true} % \newif\ifPst@WorldMapII@Rivers -\define@key{psset}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}} -\setkeys{psset}{rivers=true} +\define@key[psset]{pst-map3dII}{rivers}[true]{\@nameuse{Pst@WorldMapII@Rivers#1}} +\psset{rivers=true} % \newif\ifPst@WorldMapII@Borders -\define@key{psset}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}} -\setkeys{psset}{borders=true} +\define@key[psset]{pst-map3dII}{borders}[true]{\@nameuse{Pst@WorldMapII@Borders#1}} +\psset{borders=true} % \newif\ifPst@WorldMap@Europe -\define@key{psset}{europe}[true]{\@nameuse{Pst@WorldMap@Europe#1}} -\setkeys{psset}{europe=true} +\define@key[psset]{pst-map3dII}{europe}[true]{\@nameuse{Pst@WorldMap@Europe#1}} +\psset{europe=true} % \newif\ifPst@WorldMap@Asia -\define@key{psset}{asia}[false]{\@nameuse{Pst@WorldMap@Asia#1}} -\setkeys{psset}{asia=false} +\define@key[psset]{pst-map3dII}{asia}[false]{\@nameuse{Pst@WorldMap@Asia#1}} +\psset{asia=false} % \newif\ifPst@WorldMap@Africa -\define@key{psset}{africa}[false]{\@nameuse{Pst@WorldMap@Africa#1}} -\setkeys{psset}{africa=false} +\define@key[psset]{pst-map3dII}{africa}[false]{\@nameuse{Pst@WorldMap@Africa#1}} +\psset{africa=false} % \newif\ifPst@WorldMap@namer -\define@key{psset}{namer}[false]{\@nameuse{Pst@WorldMap@namer#1}} -\setkeys{psset}{namer=false} +\define@key[psset]{pst-map3dII}{namer}[false]{\@nameuse{Pst@WorldMap@namer#1}} +\psset{namer=false} % -\newif\ifPst@WorldMap@samer -\define@key{psset}{samer}[false]{\@nameuse{Pst@WorldMap@samer#1}} -\setkeys{psset}{samer=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}{all}[true]{% - \setkeys{psset}{europe=true,asia=true,africa=true,namer=true,samer=true} +\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]{{% - \setkeys{psset}{#1}% + \psset{#1}% \begin@ClosedObj \addto@pscode{% \variablesTroisD @@ -144,13 +144,13 @@ MatriceTransformation /Draw { { CalculsPoints - stroke + stroke } forall }def % /DrawRivers { { CalculsPoints - gsave + gsave 0 0 1 setrgbcolor CLW 0.25 mul stroke |