+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[leman constance] {
+ { Construction closepath gsave DarkBlue fill grestore} forall
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[allemagne hollande france suisse tchequie pologne belgique autriche
+ luxembourg liechtenstein danemark] {
+ { Construction closepath DarkGray stroke } forall
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
+ { Construction DarkBlue 0.25 setlinewidth stroke} forall
+} forall
+
+
+%% Les océans
+/mo /moveto load def
+/Helvetica-Bold findfont 20 scalefont setfont
+/shm { gsave DarkBlue show grestore } def
+90.412 368.266 mo (Nordsee)shm
+630.412 418.266 mo (Ostsee)shm
+
+% ------------------------------------------------------------------------------
+/Pas 1 def
+% ------------------------------------------------------------------------------
+/Construction {
+ /region exch def
+ newpath
+ /nbr region length def
+ region 0 get aload pop
+ /Y exch def /X exch def
+ X Y moveto
+ /ncount 0 def
+ 0 1 nbr 1 sub {
+ /ncount ncount 1 add def
+ region exch get aload pop
+ ncount Pas mod 0 eq nbr ncount sub 0 lt or {
+ /Y exch def /X exch def
+ X Y lineto
+ }{ pop pop } ifelse
+ } for
+} def
+
+%% PlacePoint et PlaceNom ------------------------------------------------------
+%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
+%% dictionnaire disquedict
+/disquedict 10 dict def
+disquedict /mtrx matrix put
+
+/Nom (Ville) def
+/Position -1 def
+/PlacePoint {
+ aload pop
+ /Position exch def
+ /Nom exch def
+ newpath
+ disquedict begin
+ /Y exch def /X exch def
+ /savematrix mtrx currentmatrix def
+ X Y translate RayonDisque dup scale
+ 0 0 1 0 360 arc
+ savematrix setmatrix
+ end
+} def
+
+/PlaceNom {