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 % ------------------------------------------------------------------------------
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 {DarkRed} def
194 [V_allemagne V_hollande V_belgique V_luxembourg V_france V_suisse V_autriche
195 V_tchequie V_pologne] {
196 { PlacePoint gsave DarkRed fill grestore PlaceNom} forall
199 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200 /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
201 /HauteurCaractere 10 def
202 /CouleurNom {Orange} def
203 /RayonDisque 3 def % Des points un peu plus gros pour les capitales
205 V_allemagne_capitales_lander {
206 PlacePoint gsave YellowGreen fill grestore PlaceNom
209 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
210 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
211 /HauteurCaractere 5 def
212 /CouleurNom {DarkBlue} def
219 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières et lacs (Noms) %%%%%%%%%%%%%%%%%%%%%%%%
220 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
221 /HauteurCaractere 5 def
222 /CouleurNom {DarkBlue} def
223 [L_allemagne R_allemagne] {
224 { PlacePoint PlaceNom } forall
227 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres annotations %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
229 /Helvetica-Bold findfont 20 scalefont setfont
230 /shm { gsave DarkBlue show grestore } def
231 90.412 368.266 mo (Nordsee)shm
232 630.412 418.266 mo (Ostsee)shm