Changeset 44

Timestamp:

03/18/08 21:28:57 (10 months ago)

Author:

christophe

Message:

--

Files:

• trunk/mp-geo/doc/doc-mp-geo.tex (modified) (18 diffs)
• trunk/mp-geo/mp-geo.mp (modified) (21 diffs)

trunk/mp-geo/doc/doc-mp-geo.tex

@@ -4 +4 @@
-\usepackage[frenchb]{babel}
-\usepackage[pdftex,a4paper,margin=1.5cm,nohead]{geometry}
-%\usepackage[draft]{graphicx}
-\usepackage{graphicx}
-\graphicspath{{figuresdoc/}}
@@ -11 +10 @@
-
-\usepackage{calc,url,subfigure,amsmath}
-
+fourier,
-\input{christ5}
-\usepackage[charter]{mathdesign}
-
-
-\pagestyle{empty}
-
@@ -46 +42 @@
-\definecolor{LightRed}{rgb}{1,0.8,0.8}
-
-graphie
+
-\author{C.Poulain}
-\date{\today}
@@ -52 +48 @@
-\maketitle
-\begin{abstract}
-graphie
+
-Terre. Il est possible de la voir sous n'importe quel angle. La
-majorité des éléments présents réellement sont présents sur les
@@ -60 +56 @@
-\begin{figure}[ht]
-  \centering
-7]{pagepresentation-1
+8]{pagepresentation
-  \caption{Vue de l'Asie ($\theta=90$\degres; $\phi=20$\degres).}
-  \label{Asie}
-\end{figure}
-\newpage
-\tableofcontents
-\newpage
@@ -89 +84 @@
-    On doit être à l'aise avec cette valeur. ;-)
-}
-graphie
+
-ressources. \`A titre d'exemple, la création de l'image \ref{Asie} a duré environ 26 secondes\footnote{Les réponses données
-  par la commande \texttt{time} sous Linux sont\\
@@ -99 +94 @@
-\section{Introduction}
-Ce package est encore {\em en développement}. Par comparaison avec le
-graphie
+
-actuel, beaucoup moins de points de tracés\footnote{Les données
-  proviennent de la page \url{ftp://ftp.blm.gov/pub/gis/wdbprg.zip}
@@ -116 +111 @@
-parlant de ce package, je tiens à remercier Manuel {\sc Luque} pour l'aide
-et les encouragements qu'il a pu m'apporter durant l'élaboration de
-graphie
-
-
-5]{grandslacs-1
+
+
+
+7]{grandslacs
-  \caption{Les grands lacs d'Amérique du Nord ($\theta=-105$\degres;
-    $\phi=45$\degres)}
@@ -157 +152 @@
-  \centering
-  \subfigure[Figure
-5]{payscomplets-1.png}}\hfill\subfigure[Figure \ding{173}]{\includegraphics[scale=0.5]{paysnus-1
+7]{payscomplets.png}}\hfill\subfigure[Figure \ding{173}]{\includegraphics[scale=0.7]{paysnus
-\end{figure}
-Une autre option est celle de colorer uniformément ou pas les
@@ -166 +161 @@
-\begin{figure}[ht]
-  \centering
-5]{mondenoncolore-1
+7]{mondenoncolore
-  \caption{Coloration uniforme ($\theta=105$\degres; $\phi=30$\degres).}
-  \label{unicolore}
@@ -176 +171 @@
-\begin{figure}[ht]
-  \centering
-5]{oceaniemeridien-1
+7]{oceaniemeridien
-  \caption{Méridiens et parallèles ($\theta=120$\degres; $\phi=-20$\degres).}
-  \label{meridien}
@@ -273 +268 @@
-\begin{figure}[ht]
-  \centering
-5]{polesud-1.png
+7]{polesud
-  \caption{L'immensité du pôle sud ($\theta=0$; $\phi=90$\degres).}
-\end{figure}
@@ -282 +277 @@
-\begin{figure}[ht]
-  \centering
-[scale=0.5]{mp-geotrans-1
+{globetransparent
-  \caption{Un peu de transparence.}
-\end{figure}
@@ -344 +339 @@
-\begin{figure}[h]
-  \centering
-[scale=0.5]{mercator-1
+{Mercator
-  \caption{Carte de France selon une projection Mercator.}
-\end{figure}
@@ -381 +376 @@
-\begin{figure}[ht]
-  \centering
-[scale=0.5]{cylindrique-1
+{Cylindrique
-  \caption{Carte de France selon la projection cylindrique.}
-\end{figure}
@@ -410 +405 @@
-\begin{figure}[ht]
-  \centering
-[scale=0.5]{coniqueHN-1
+{coniqueHN
-  \caption{Projection conique - Hémisphère nord.}
-\end{figure}
@@ -426 +421 @@
-\begin{figure}[ht]
-  \centering
-[scale=0.5]{coniqueBS-1
+{coniqueBS
-  \caption{Projection conique - Hémisphère sud.}
-\end{figure}
@@ -448 +443 @@
-\begin{figure}[ht]
-  \centering
-[scale=0.5]{bonne-1
+{Bonne
-  \caption{Projection de Bonne}
-\end{figure}

trunk/mp-geo/mp-geo.mp

@@ -1 +1 @@
-%Package mp-geographie
-%Auteur:Christophe Poulain
-5
-8/02
+7
+5/03
-
-prologues:=2;
@@ -351 +351 @@
-enddef;
-
+
-vardef Lecturelacs=
-  nomfichiermul:=arborescence&"lacs.dat";
@@ -388 +389 @@
-enddef;
-
-vardef Lecturelacssup=
-  nomfichiermul:=arborescence&"lacssup.dat";
-  nblec:=scantokens readfrom nomfichiermul;
-  for p=1 upto nblec:
-    color Coord[],Pays[];
-    numeric ll;
-    ll:=0;
-    nbpts:=scantokens readfrom nomfichiermul;
-    for k=1 upto nbpts:
-      pair latlon;
-      latlon=scantokens readfrom nomfichiermul;
-      Coord[k]=rayon*(cosd(xpart(latlon))*cosd(ypart(latlon)),cosd(xpart(latlon))*sind(ypart(latlon)),sind(xpart(latlon)));
-      if ((xpart(latlon)>phim) and (xpart(latlon)<phip)):
-        if ProduitScalaire(Coord[k]-pte3,Oeil-pte3)>0:
-          ll:=ll+1;
-          Pays[k]=Coord[k];
-        else:
-          Pays[k]=2*Coord[k];
-        fi;
-      else:
-        Pays[k]=2*Coord[k];
-      fi;
-    endfor;
-    path pays;
-    if ll>0:
-      pays=Projgeo(Pays[1])
-      for l=2 upto nbpts:
-        --Projgeo(Pays[l])
-      endfor;
-      fill pays--cycle withcolor cielfonce;
-      draw pays;
-      clip currentpicture to cercles(pte3,pte1,pte3,pte1,pte4);
-    fi;
-  endfor;
-  closefrom nomfichiermul;
-enddef;
-
-vardef Lecturevolcans=
-  drawoptions(withcolor orange);
@@ -486 +450 @@
-enddef;
-
-vardef Lecturerivieressup=
-  nomfichiermul:=arborescence&"fleuvessup.dat";
-  nblec:=scantokens readfrom nomfichiermul;
-  for p=1 upto nblec:
-    color Coord[],fond,Pays[];
-    numeric ll;
-    ll:=0;
-    nbpts:=scantokens readfrom nomfichiermul;
-    for k=1 upto nbpts:
-      pair latlon;
-      latlon=scantokens readfrom nomfichiermul;
-      Coord[k]=rayon*(cosd(xpart(latlon))*cosd(ypart(latlon)),cosd(xpart(latlon))*sind(ypart(latlon)),sind(xpart(latlon)));
-      if ((xpart(latlon)>phim) and (xpart(latlon)<phip)):
-        if ProduitScalaire(Coord[k]-pte3,Oeil-pte3)>0:
-          ll:=ll+1;
-          Pays[k]=Coord[k];
-        else:
-          Pays[k]=2*Coord[k];
-        fi;
-      else:
-        Pays[k]=2*Coord[k];
-      fi;
-    endfor;
-    path pays;
-    if ll>0:
-      pays=Projgeo(Pays[1])
-      for l=2 upto nbpts:
-        --Projgeo(Pays[l])
-      endfor;
-      draw pays withcolor cielfonce;
-      clip currentpicture to cercles(pte3,pte1,pte3,pte1,pte4);
-    fi;
-  endfor;
-  closefrom nomfichiermul;
-enddef;
-
-vardef Lecturecapitales=
-  marque_p:="creux";
@@ -666 +594 @@
-  fi;
-  nblec:=scantokens readfrom nomfichiermul;
-n
+o
-    nblec:=nblec-1
-  fi;
@@ -797 +725 @@
-enddef;
-
-vardef Lecturelacspsup=
-  nomfichiermul:=arborescence&"lacssup.dat";
-  nblec:=scantokens readfrom nomfichiermul;
-  for p=1 upto nblec:
-    pair Coord[];
-    nbpts:=scantokens readfrom nomfichiermul;
-    numeric ll;
-    ll=0;
-    for k=1 upto nbpts:
-      pair latlon;
-      latlon=scantokens readfrom nomfichiermul;
-      if projection="mercator":
-        Coord[k]=mercatorc(xpart(latlon),ypart(latlon));
-      elseif projection="simple":
-        Coord[k]=simplec(xpart(latlon),ypart(latlon));
-      elseif projection="cylindrique":
-        Coord[k]=cylindriquec(xpart(latlon),ypart(latlon));
-      elseif projection="bonne":
-        Coord[k]=bonnec(xpart(latlon),ypart(latlon));
-      elseif projection="coniqueh":
-        if (xpart(latlon)>0) or (xpart(latlon)=0):
-          ll:=ll+1;
-          Coord[ll]=coniquec(xpart(latlon),ypart(latlon),45);
-        fi;
-      elseif projection="coniqueb":
-        if (xpart(latlon)<0):
-          ll:=ll+1;
-          Coord[ll]=coniquec(xpart(latlon),ypart(latlon),-45);
-        fi;
-      fi;
-    endfor;
-    path lac;
-    if (projection="mercator") or (projection="cylindrique") or (projection="simple") or (projection="bonne"):
-      ll:=nbpts
-    fi;
-    if ll>0:
-      lac=Coord[1]
-      for l=2 upto ll:
-        --Coord[l]
-      endfor;
-      fill lac--cycle withcolor cielfonce;
-      draw lac;
-    fi;
-  endfor;
-  closefrom nomfichiermul;
-enddef;
-
-vardef Lecturerivieresp=
-  nomfichiermul:=arborescence&"rivieres.dat";
@@ -890 +771 @@
-enddef;
-
-vardef Lecturerivierespsup=
-  nomfichiermul:=arborescence&"fleuvessup.dat";
-  nblec:=scantokens readfrom nomfichiermul;
-  for p=1 upto nblec:
-    pair Coord[];
-    nbpts:=scantokens readfrom nomfichiermul;
-    numeric ll;
-    ll:=0;
-    for k=1 upto nbpts:
-      pair latlon;
-      latlon=scantokens readfrom nomfichiermul;
-      if projection="mercator":
-        Coord[k]=mercatorc(xpart(latlon),ypart(latlon));
-      elseif projection="simple":
-        Coord[k]=simplec(xpart(latlon),ypart(latlon));
-      elseif projection="cylindrique":
-        Coord[k]=cylindriquec(xpart(latlon),ypart(latlon));
-      elseif projection="bonne":
-        Coord[k]=bonnec(xpart(latlon),ypart(latlon));
-      elseif projection="coniqueh":
-        if (xpart(latlon)>0) or (xpart(latlon)=0):
-          ll:=ll+1;
-          Coord[ll]=coniquec(xpart(latlon),ypart(latlon),45);
-        fi;
-      elseif projection="coniqueb":
-        if (xpart(latlon)<0):
-          ll:=ll+1;
-          Coord[ll]=coniquec(xpart(latlon),ypart(latlon),-45);
-        fi;
-      fi;
-    endfor;
-    path riv;
-    if (projection="mercator") or (projection="cylindrique") or (projection="simple") or (projection="bonne"):
-      ll:=nbpts;
-    fi;
-    if ll>0:
-      riv=Coord[1]
-      for l=2 upto ll:
-        --Coord[l]
-      endfor;
-      draw riv withcolor cielfonce;
-    fi;
-  endfor;
-  closefrom nomfichiermul;
-enddef;
-
-vardef Lecturecapitalesp=
-  marque_p:="creux";
@@ -1120 +955 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1128 +962 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  if maillage=true:
@@ -1149 +982 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1157 +989 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  if maillage=true:
@@ -1178 +1009 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1186 +1016 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  if maillage=true:
@@ -1208 +1037 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1216 +1044 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  if maillage=true:
@@ -1237 +1064 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1245 +1071 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  drawoptions(withcolor gris);
@@ -1263 +1088 @@
-  if lacs=true:
-    Lecturelacsp;
-    Lecturelacspsup;
-  fi;
-  Lectureilesp;
@@ -1271 +1095 @@
-  if fleuves=true:
-    Lecturerivieresp;
-    Lecturerivierespsup;
-  fi;
-  drawoptions(withcolor gris);
@@ -1327 +1150 @@
-  if lacs=true:
-    Lecturelacs;
-    Lecturelacssup;
-  fi;
-  Lectureiles;
@@ -1335 +1157 @@
-  if fleuves=true:
-    Lecturerivieres;
-    Lecturerivieressup;
-  fi;
-  if maillage=true: