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

Timestamp:

03/09/08 11:38:18 (10 months ago)

Author:

manuel

Message:

Zones de fracture et linéations magnétiques

Files:

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

trunk/pst-map3d/pst-map3d.tex

@@ -74 +74 @@
-\definecolor{terre}{rgb}{0.99,0.95,0.7}
-\definecolor{mer}{rgb}{0.5,0.8,0.8}
+\definecolor{darkblue}{cmyk}{1,1,0,0.7}
-
-\define@key[psset]{pst-map3d}{mapcolor}{%
@@ -103 +104 @@
-\psset[pst-map3d]{wfraczoncolor=red}
-
+\define@key[psset]{pst-map3d}{wmaglincolor}{%
+\pst@getcolor{#1}\pswmaglincolor}
+\psset[pst-map3d]{wmaglincolor=darkblue}
+
-\define@key[psset]{pst-map3d}{ridgecolor}{%
-\pst@getcolor{#1}\psridgecolor}
@@ -145 +150 @@
-\def\psset@wfraczonwidth#1{\pssetlength\pswfraczonwidth{#1}}
-\psset@wfraczonwidth{.8pt}
+
+\newdimen\pswmaglinwidth
+\def\psset@wmaglinwidth#1{\pssetlength\pswmaglinwidth{#1}}
+\psset@wmaglinwidth{.8pt}
-
-\newdimen\psridgewidth
@@ -219 +228 @@
-\define@key[psset]{pst-map3d}{ridge}[true]{\@nameuse{Pst@WorldMap@ridge#1}}
-\psset{ridge=false}
+%
+\newif\ifPst@WorldMap@maglin
+\define@key[psset]{pst-map3d}{wmaglin}[true]{\@nameuse{Pst@WorldMap@maglin#1}}
+\psset{wmaglin=false}
-%
-\newif\ifPst@WorldMap@circles
@@ -252 +265 @@
-  /rivercolor  {\pst@usecolor\psrivercolor currentrgbcolor} def
-  /wfraczoncolor {\pst@usecolor\pswfraczoncolor currentrgbcolor} def
+  /wmaglincolor {\pst@usecolor\pswmaglincolor currentrgbcolor} def
-  /ridgecolor {\pst@usecolor\psridgecolor currentrgbcolor} def
-  /transfrmcolor {\pst@usecolor\pstransfrmcolor currentrgbcolor} def
@@ -262 +276 @@
-  /coastwidth {\pst@number\pscoastwidth SLW} def
-  /wfraczonwidth {\pst@number\pswfraczonwidth SLW} def
+  /wmaglinwidth {\pst@number\pswmaglinwidth SLW} def
-  /ridgewidth {\pst@number\psridgewidth SLW} def
-  /longitude_meridien \psk@WorldMap@longitudeMeridien\space def
@@ -469 +484 @@
-  wfraczoncolor
-  wfraczonwidth
+   stroke}forall
+\fi
+%
+\ifPst@WorldMap@maglin
+  (\psk@WorldMap@Path/wmaglin.dat) run
+GrandCercle
+clip
+wmaglin dup /REGION exch def
+CompteurRegions
+{CalculsPointsRegion
+  wmaglincolor
+  wmaglinwidth
-   stroke}forall
-\fi