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 (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 % ------------------------------------------------------------------------------
31 % ------------------------------------------------------------------------------
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
54 2 index length add string
55 dup dup 4 2 roll copy length
59 %% PlacePoint et PlaceNom ------------------------------------------------------
60 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupère ce qu'il lui faut dans
61 %% dictionnaire placedict
63 %% Usage : [e n (nom) pos (proc)] PlacePoint .... PlaceNom
64 %% Le cinquième argument est facultatif....
66 /placedict 10 dict def
67 placedict /mtrx matrix put
71 /argv exch def /argn argv length def
73 /proc (Place_Defaut) def
74 argn 4 gt { (Place_) exch concatstrings /proc exch def } if
75 /pos exch def /nom exch def
76 /Y exch def /X exch def
78 /savematrix mtrx currentmatrix def
79 X Y translate RayonDisque dup scale
88 /savematrix mtrx currentmatrix def
90 %% Dimension (largeur) du nom -------------------------
91 nom stringwidth pop /wx exch def
92 %% ----------------------------------------------------
94 %% ----------------------------------------------------
100 /Place_Defaut_Position {
101 pos cos LabelOffset mul /X exch def
102 pos sin LabelOffset mul /Y exch def
105 X Y HauteurCaractere 2 div sub moveto
109 X wx sub Y HauteurCaractere 2 div sub moveto
113 X wx 2 div sub Y moveto
116 X wx 2 div sub Y HauteurCaractere sub moveto
123 Place_Defaut_Position
124 %% Présentation du nom --------------------------------
126 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
130 wx 2 div neg wx 2 div neg rmoveto
131 %% Présentation du nom --------------------------------
133 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
139 LabelOffset HauteurCaractere 2 div neg moveto
142 LabelOffset wx add neg HauteurCaractere 2 div neg moveto
144 %% Présentation du nom --------------------------------
146 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
149 /Place_RotateCentering {
150 pos rotate wx 2 div neg HauteurCaractere 2 div neg moveto
151 %% Présentation du nom --------------------------------
153 CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
157 % ------------------------------------------------------------------------------
161 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
163 [hollande france italie suisse tchequie pologne belgique autriche
164 luxembourg liechtenstein danemark] {
165 { Construction closepath gsave MediumSeaGreen fill grestore} forall
168 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 { Construction closepath gsave DarkBlue fill grestore} forall
173 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 [allemagne hollande france suisse tchequie pologne belgique autriche
175 luxembourg liechtenstein danemark] {
176 { Construction closepath DarkGray stroke } forall
179 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
180 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
182 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
184 { Construction DarkBlue 0.25 setlinewidth stroke} forall
187 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
189 /HauteurCaractere 6 def
190 /CouleurNom {DarkRed} def
193 [V_allemagne V_hollande V_belgique V_luxembourg V_france V_suisse V_autriche
194 V_tchequie V_pologne] {
195 { PlacePoint gsave DarkRed fill grestore PlaceNom} forall
198 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199 /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
200 /HauteurCaractere 10 def
201 /CouleurNom {Orange} def
202 /RayonDisque 3 def % Des points un peu plus gros pour les capitales
204 V_allemagne_capitales_lander {
205 PlacePoint gsave YellowGreen fill grestore PlaceNom
208 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
210 /HauteurCaractere 5 def
211 /CouleurNom {DarkBlue} def
218 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
220 /HauteurCaractere 5 def
221 /CouleurNom {DarkBlue} def
226 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres annotations %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
228 /Helvetica-Bold findfont 20 scalefont setfont
229 /shm { gsave DarkBlue show grestore } def
230 90.412 368.266 mo (Nordsee)shm
231 630.412 418.266 mo (Ostsee)shm