Ajout d'une version SVG de la première carte
[carto.git] / cartes / 32U / postscript / carte1.ps
1 %! PS
2
3 << /PageSize [750 900] >> setpagedevice
4 % ------------------------------------------------------------------------------
5 % Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement).
6 /ISOEncode {
7     dup length dict begin
8                 {1 index /FID ne {def} {pop pop} ifelse} forall
9                 /Encoding ISOLatin1Encoding def
10                 currentdict
11     end
12     /Temporary exch definefont
13 } bind def
14 % ------------------------------------------------------------------------------
15 (svgnames.ps) run                                %% Utilisation des couleurs SVG                           
16 0 450 translate                                  %% Déplacement du point origine
17 gsave                                                         %% Couleur du fond
18   0 0 moveto 750 0 rlineto 0 900 rlineto -750 0 rlineto
19   closepath Aqua fill
20 grestore
21 % ------------------------------------------------------------------------------
22
23 (pays.ps)    run
24 (lander.ps)  run
25 (fleuves.ps) run
26 (lacs.ps)    run
27 (villes.ps)  run
28
29 % ------------------------------------------------------------------------------
30 /Pas 1 def
31 /RayonVille 2 def
32 /LabelOffset 6 def
33 % ------------------------------------------------------------------------------
34 /Construction {
35         /region exch def
36         newpath
37         /nbr region length def
38         region 0 get aload pop
39         /Y exch def /X exch def
40         X Y moveto
41         /ncount 0 def
42         0 1 nbr 1 sub {
43                 /ncount ncount 1 add def
44                 region exch get aload pop
45                 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
46                         /Y exch def /X exch def
47                         X  Y lineto
48                 }{ pop pop } ifelse
49         } for
50 } def
51
52 /disquedict 10 dict def
53 disquedict /mtrx matrix put
54
55 /Ville (Ville) def
56 /Position -1 def
57 /PlacePoint {   
58         aload pop
59         /Position exch def
60         /Ville exch def
61         newpath
62         disquedict begin
63                 /Y exch def /X exch def
64                 /savematrix mtrx currentmatrix def
65                 X Y translate RayonVille dup scale
66                 0 0 1 0 360 arc
67                 savematrix setmatrix
68         end
69 } def
70
71 /PlaceNom {
72         Position -1 gt {
73                 disquedict begin
74                         /savematrix mtrx currentmatrix def                      
75                         X Y translate
76                         %% Dimension (largeur) du nom -------------------------
77                         /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
78                         Ville stringwidth pop /WX exch def
79                         %% ----------------------------------------------------
80                         Position cos LabelOffset mul /X exch def
81                         Position sin LabelOffset mul /Y exch def
82                         X 0 gt {
83                                 %% Nom à droite
84                                 X Y 5 sub moveto
85                         } {
86                                 X 0 lt {
87                                         %% Nom à gauche
88                                         X WX sub Y 5 sub moveto
89                                 } {
90                                         Y 0 gt {
91                                                 %% Nom au dessus
92                                                 X WX 2 div sub Y moveto
93                                         } {
94                                                 %% Nom en dessous
95                                                 X WX 2 div sub Y 10 sub moveto
96                                         } ifelse
97                                 } ifelse                
98                         } ifelse
99                         %% Présentation du nom --------------------------------                        
100                         0.7 setgray Ville show
101                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
102                         %% ----------------------------------------------------
103                         savematrix setmatrix
104                 end
105         } if
106 } def
107 % ------------------------------------------------------------------------------
108
109 1 setlinejoin
110
111 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
113 [hollande france italie suisse tchequie pologne belgique autriche
114   luxembourg liechtenstein danemark] {
115         { Construction closepath gsave MediumSeaGreen fill grestore} forall 
116 } forall
117
118 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119 [leman constance] {
120         { Construction closepath gsave DarkBlue fill grestore} forall
121 } forall
122
123 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 [allemagne hollande france suisse tchequie pologne belgique autriche
125   luxembourg liechtenstein danemark] {
126         { Construction closepath DarkGray stroke } forall 
127 } forall
128
129 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
131
132 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
134         { Construction DarkBlue 0.25 setlinewidth stroke} forall
135 } forall
136
137 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 V_allemagne { PlacePoint gsave DarkRed fill grestore} forall
139
140 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
141 /CouleurNom {Orange} def
142 /RayonVille 3 def               % Des points un peu plus gros pour les capitales
143 V_allemagne_capitales_lander {
144         PlacePoint gsave YellowGreen fill grestore PlaceNom
145 } forall
146
147 showpage

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.