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
22 % ------------------------------------------------------------------------------
24 (C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps) run
25 (C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps) run
26 (C:/Users/Jürgen/Desktop/carte1/carte1/fleuves.ps) run
27 (C:/Users/Jürgen/Desktop/carte1/carte1/lacs.ps) run
28 (C:/Users/Jürgen/Desktop/carte1/carte1/villes.ps) run
29 (C:/Users/Jürgen/Desktop/carte1/carte1/noms-iles.ps) run
30 (C:/Users/Jürgen/Desktop/carte1/carte1/noms-fleuves.ps) run
32 % ------------------------------------------------------------------------------
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
55 2 index length add string
56 dup dup 4 2 roll copy length
60 %% PlacePoint et PlaceNom ------------------------------------------------------
61 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupère ce qu'il lui faut dans
62 %% dictionnaire placedict
64 %% Usage : [e n (nom) pos (proc)] PlacePoint .... PlaceNom
65 %% Le cinquième argument est facultatif....
67 /placedict 10 dict def
68 placedict /mtrx matrix put
72 /argv exch def /argn argv length def
74 /proc (Place_Defaut) def
75 argn 4 gt { (Place_) exch concatstrings /proc exch def } if
76 /pos exch def /nom exch def
77 /Y exch def /X exch def
79 /savematrix mtrx currentmatrix def
80 X Y translate RayonDisque dup scale
89 /savematrix mtrx currentmatrix def
91 %% Dimension (largeur) du nom -------------------------
92 nom stringwidth pop /wx exch def
93 %% ----------------------------------------------------
95 %% ----------------------------------------------------
101 /Place_Defaut_Position {
102 pos cos LabelOffset mul /X exch def
103 pos sin LabelOffset mul /Y exch def
106 X Y HauteurCaractere 2 div sub moveto
110 X wx sub Y HauteurCaractere 2 div sub moveto
114 X wx 2 div sub Y moveto
117 X wx 2 div sub Y HauteurCaractere sub moveto
124 Place_Defaut_Position
125 %% Présentation du nom --------------------------------
127 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
131 wx 2 div neg wx 2 div neg rmoveto
132 %% Présentation du nom --------------------------------
134 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
140 LabelOffset HauteurCaractere 2 div neg moveto
143 LabelOffset wx add neg HauteurCaractere 2 div neg moveto
145 %% Présentation du nom --------------------------------
147 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
150 /Place_RotateCentering {
151 pos rotate wx 2 div neg HauteurCaractere 2 div neg moveto
152 %% Présentation du nom --------------------------------
154 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
158 % ------------------------------------------------------------------------------
162 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
164 [hollande france italie suisse tchequie pologne belgique autriche
165 luxembourg liechtenstein danemark] {
166 { Construction closepath gsave MediumSeaGreen fill grestore} forall
169 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 { Construction closepath gsave DarkBlue fill grestore} forall
174 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175 [allemagne hollande france suisse tchequie pologne belgique autriche
176 luxembourg liechtenstein danemark] {
177 { Construction closepath DarkGray stroke } forall
180 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
183 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
185 { Construction DarkBlue 0.25 setlinewidth stroke} forall
188 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
190 /HauteurCaractere 6 def
191 /CouleurNom {DarkGreen} def
194 [V_hollande V_belgique V_luxembourg V_france V_suisse V_autriche
195 V_tchequie V_pologne] {
196 { PlacePoint gsave DarkGreen fill grestore PlaceNom} forall
199 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
201 /HauteurCaractere 6 def
202 /CouleurNom {DarkRed} def
205 V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom} forall
208 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
210 /HauteurCaractere 10 def
211 /CouleurNom {Orange} def
212 /RayonDisque 3 def % Des points un peu plus gros pour les capitales
214 V_allemagne_capitales_lander {
215 PlacePoint gsave Orange fill grestore PlaceNom
218 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
220 /HauteurCaractere 5 def
221 /CouleurNom {DarkBlue} def
228 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
230 /HauteurCaractere 5 def
231 /CouleurNom {DarkBlue} def
236 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres annotations %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
238 /Helvetica-Bold findfont 20 scalefont setfont
239 /shm { gsave DarkBlue show grestore } def
240 90.412 368.266 mo (Nordsee)shm
241 630.412 418.266 mo (Ostsee)shm