3 << /PageSize [750 900] >> setpagedevice
4 % ------------------------------------------------------------------------------
5 % Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement).
8 {1 index /FID ne {def} {pop pop} ifelse} forall
9 /Encoding ISOLatin1Encoding def
12 /Temporary exch definefont
14 % ------------------------------------------------------------------------------
15 (C:/Users/Jürgen/Desktop/carte1/carte1/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 DeepSkyBlue fill
21 % ------------------------------------------------------------------------------
23 (C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps) run
24 (C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps) run
25 (C:/Users/Jürgen/Desktop/carte1/carte1/fleuves.ps) run
26 (C:/Users/Jürgen/Desktop/carte1/carte1/lacs.ps) run
27 (C:/Users/Jürgen/Desktop/carte1/carte1/villes.ps) run
28 (C:/Users/Jürgen/Desktop/carte1/carte1/iles.ps) run
30 % ------------------------------------------------------------------------------
34 % ------------------------------------------------------------------------------
38 /nbr region length def
39 region 0 get aload pop
40 /Y exch def /X exch def
44 /ncount ncount 1 add def
45 region exch get aload pop
46 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
47 /Y exch def /X exch def
53 /disquedict 10 dict def
54 disquedict /mtrx matrix put
64 /Y exch def /X exch def
65 /savematrix mtrx currentmatrix def
66 X Y translate RayonVille dup scale
75 /savematrix mtrx currentmatrix def
77 %% Dimension (largeur) du nom -------------------------
78 /Helvetica-Bold findfont fontfacteur scalefont ISOEncode setfont
79 Ville stringwidth pop /WX exch def
80 %% ----------------------------------------------------
81 Position cos LabelOffset mul /X exch def
82 Position sin LabelOffset mul /Y exch def
89 X WX sub Y 5 sub moveto
93 X WX 2 div sub Y moveto
96 X WX 2 div sub Y 10 sub moveto
100 %% Présentation du nom --------------------------------
101 0.7 setgray Ville show
102 CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
103 %% ----------------------------------------------------
108 % ------------------------------------------------------------------------------
112 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
114 [hollande france italie suisse tchequie pologne belgique autriche
115 luxembourg liechtenstein danemark] {
116 { Construction closepath gsave MediumSeaGreen fill grestore} forall
119 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121 { Construction closepath gsave DarkBlue fill grestore} forall
124 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 [allemagne hollande france suisse tchequie pologne belgique autriche
126 luxembourg liechtenstein danemark] {
127 { Construction closepath DarkGray stroke } forall
130 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
133 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 [rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
135 { Construction DarkBlue 0.25 setlinewidth stroke} forall
141 /Helvetica-Bold findfont 20 scalefont setfont
142 /shm { gsave DarkBlue show grestore } def
143 90.412 368.266 mo (Nordsee)shm
144 630.412 418.266 mo (Ostsee)shm
146 % ------------------------------------------------------------------------------
148 % ------------------------------------------------------------------------------
152 /nbr region length def
153 region 0 get aload pop
154 /Y exch def /X exch def
158 /ncount ncount 1 add def
159 region exch get aload pop
160 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
161 /Y exch def /X exch def
167 %% PlacePoint et PlaceNom ------------------------------------------------------
168 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
169 %% dictionnaire disquedict
170 /disquedict 10 dict def
171 disquedict /mtrx matrix put
181 /Y exch def /X exch def
182 /savematrix mtrx currentmatrix def
183 X Y translate RayonDisque dup scale
192 /savematrix mtrx currentmatrix def
194 %% Dimension (largeur) du nom -------------------------
195 Nom stringwidth pop /WX exch def
196 %% ----------------------------------------------------
197 Position cos LabelOffset mul /X exch def
198 Position sin LabelOffset mul /Y exch def
201 X Y HauteurCaractere 2 sub moveto
205 X WX sub Y HauteurCaractere 2 div sub moveto
209 X WX 2 div sub Y moveto
212 X WX 2 div sub Y HauteurCaractere sub moveto
216 %% Présentation du nom --------------------------------
218 CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom show
219 %% ----------------------------------------------------
224 % ------------------------------------------------------------------------------
228 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
230 [hollande france italie suisse tchequie pologne belgique autriche
231 luxembourg liechtenstein danemark] {
232 { Construction closepath gsave MediumSeaGreen fill grestore} forall
235 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
237 { Construction closepath gsave DarkBlue fill grestore} forall
240 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
241 [allemagne hollande france suisse tchequie pologne belgique autriche
242 luxembourg liechtenstein danemark] {
243 { Construction closepath DarkGray stroke } forall
246 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
249 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
251 { Construction DarkBlue 0.25 setlinewidth stroke} forall
254 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
255 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
256 /HauteurCaractere 6 def
257 /CouleurNom {DarkRed} def
260 V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall
262 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
263 /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
264 /HauteurCaractere 10 def
265 /CouleurNom {Orange} def
266 /RayonDisque 3 def % Des points un peu plus gros pour les capitales
268 V_allemagne_capitales_lander {
269 PlacePoint gsave Orange fill grestore PlaceNom
272 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
274 /HauteurCaractere 10 def
275 /CouleurNom {DarkGreen} def
276 [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] {
277 { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
280 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
282 /HauteurCaractere 5 def
283 /CouleurNom {DarkBlue} def
287 PlacePoint pop PlaceNom
290 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
291 /CouleurNom {DarkBlue} def
294 PlacePoint gsave LightGoldenrod fill grestore PlaceNom