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
29 % ------------------------------------------------------------------------------
33 % ------------------------------------------------------------------------------
37 /nbr region length def
38 region 0 get aload pop
39 /Y exch def /X exch def
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
52 /disquedict 10 dict def
53 disquedict /mtrx matrix put
63 /Y exch def /X exch def
64 /savematrix mtrx currentmatrix def
65 X Y translate RayonVille dup scale
74 /savematrix mtrx currentmatrix def
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
88 X WX sub Y 5 sub moveto
92 X WX 2 div sub Y moveto
95 X WX 2 div sub Y 10 sub moveto
99 %% Présentation du nom --------------------------------
100 0.7 setgray Ville show
101 CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
102 %% ----------------------------------------------------
111 /savematrix mtrx currentmatrix def
113 %% Dimension (largeur) du nom -------------------------
114 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
115 Ville stringwidth pop /WX exch def
116 %% ----------------------------------------------------
117 Position cos LabelOffset mul /X exch def
118 Position sin LabelOffset mul /Y exch def
125 X WX sub Y 5 sub moveto
129 X WX 2 div sub Y moveto
132 X WX 2 div sub Y 10 sub moveto
136 %% Présentation du nom --------------------------------
137 0.7 setgray Ville show
138 CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
139 %% ----------------------------------------------------
148 /savematrix mtrx currentmatrix def
150 %% Dimension (largeur) du nom -------------------------
151 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
152 Ville stringwidth pop /WX exch def
153 %% ----------------------------------------------------
154 Position cos LabelOffset mul /X exch def
155 Position sin LabelOffset mul /Y exch def
162 X WX sub Y 5 sub moveto
166 X WX 2 div sub Y moveto
169 X WX 2 div sub Y 10 sub moveto
173 %% Présentation du nom --------------------------------
174 0.7 setgray Ville show
175 CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
176 %% ----------------------------------------------------
181 % ------------------------------------------------------------------------------
185 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
186 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
187 [hollande france italie suisse tchequie pologne belgique autriche
188 luxembourg liechtenstein danemark] {
189 { Construction closepath gsave MediumSeaGreen fill grestore} forall
192 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194 { Construction closepath gsave DarkBlue fill grestore} forall
197 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198 [allemagne hollande france suisse tchequie pologne belgique autriche
199 luxembourg liechtenstein danemark] {
200 { Construction closepath DarkGray stroke } forall
203 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
206 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
207 [rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
208 { Construction DarkBlue 0.25 setlinewidth stroke} forall
214 /Helvetica findfont 20 scalefont setfont
215 /shm { gsave DarkBlue show grestore } def
216 90.412 368.266 mo (Nordsee)shm
217 630.412 418.266 mo (Ostsee)shm
220 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 /CouleurNom {DarkRed} def
223 PlacePoint gsave DarkRed fill grestore PlaceNoma
226 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
227 /CouleurNom {Orange} def
228 /RayonVille 3 def % Des points un peu plus gros pour les capitales
229 V_allemagne_capitales_lander {
230 PlacePoint gsave YellowGreen fill grestore PlaceNom
232 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
233 /CouleurNom {DarkBlue} def
235 PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb
238 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
239 /CouleurNom {DarkBlue} def
241 PlacePoint gsave LightGoldenrod fill grestore PlaceNomb