Changeset 46 for trunk/pst-map3d/pst-map3d.tex

Timestamp:

03/19/08 06:28:31 (10 months ago)

Author:

manuel

Message:

pst-map3d.tex avait été oublié

Files:

• trunk/pst-map3d/pst-map3d.tex (modified) (4 diffs)

trunk/pst-map3d/pst-map3d.tex

@@ -180 +180 @@
-\define@key[psset]{pst-map3d}{borders}[false]{\@nameuse{Pst@WorldMap@border#1}}
-\psset{borders=true}
+%
+\newif\ifPst@WorldMap@france
+\define@key[psset]{pst-map3d}{france}[true]{\@nameuse{Pst@WorldMap@france#1}}
+\psset{france=false}
-%
-\newif\ifPst@WorldMap@capitals
@@ -339 +343 @@
-\fi
-%
+\ifPst@WorldMap@border
+  (\psk@WorldMap@Path/pborder.dat) run
+gsave
+GrandCercle
+clip
+border dup /REGION exch def
+CompteurRegions
+{CalculsPointsRegion
+  closepath
+   gsave
+ mapcolor
+  pst@fill  % fill
+  grestore
+  borderwidth
+  bordercolor
+  stroke
+  }forall
+grestore
+\fi
+%
-\ifPst@WorldMap@island
-  (\psk@WorldMap@Path/pisland.dat) run
@@ -358 +382 @@
-grestore
-\fi
-
-border
-pborder
-
-
-
-border
+  
+france
+france
+
+
+
+france
-CompteurRegions
-{CalculsPointsRegion
@@ -399 +423 @@
-grestore
-\fi
-  
+
-\ifPst@WorldMap@coasts
-  (\psk@WorldMap@Path/pcoast.dat) run