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 % ------------------------------------------------------------------------------
30 % ------------------------------------------------------------------------------
32 % ------------------------------------------------------------------------------
36 /nbr region length def
37 region 0 get aload pop
38 /Y exch def /X exch def
42 /ncount ncount 1 add def
43 region exch get aload pop
44 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
45 /Y exch def /X exch def
51 %% PlacePoint et PlaceNom ------------------------------------------------------
52 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
53 %% dictionnaire disquedict
54 /disquedict 10 dict def
55 disquedict /mtrx matrix put
65 /Y exch def /X exch def
66 /savematrix mtrx currentmatrix def
67 X Y translate RayonDisque dup scale
76 /savematrix mtrx currentmatrix def
78 %% Dimension (largeur) du nom -------------------------
79 Nom stringwidth pop /WX exch def
80 %% ----------------------------------------------------
81 Position cos LabelOffset mul /X exch def
82 Position sin LabelOffset mul /Y exch def
85 X Y HauteurCaractere 2 sub moveto
89 X WX sub Y HauteurCaractere 2 div sub moveto
93 X WX 2 div sub Y moveto
96 X WX 2 div sub Y HauteurCaractere sub moveto
100 %% Présentation du nom --------------------------------
102 CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom 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 saale mosel weser ems main] {
135 { Construction DarkBlue 0.25 setlinewidth stroke} forall
138 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
140 /HauteurCaractere 6 def
141 /CouleurNom {DarkRed} def
144 V_allemagne { PlacePoint gsave DarkRed fill grestore} forall
146 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
147 /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
148 /HauteurCaractere 10 def
149 /CouleurNom {Orange} def
150 /RayonDisque 3 def % Des points un peu plus gros pour les capitales
152 V_allemagne_capitales_lander {
153 PlacePoint gsave YellowGreen fill grestore PlaceNom
156 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
158 /HauteurCaractere 5 def
159 /CouleurNom {DarkBlue} def
163 PlacePoint pop PlaceNom