-1 setlinejoin
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
-[hollande france italie suisse tchequie pologne belgique autriche
- luxembourg liechtenstein danemark] {
- { Construction closepath gsave MediumSeaGreen fill grestore} forall
-} forall
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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
+/Place_Defaut_Position {
+ pos cos LabelOffset mul /X exch def
+ pos sin LabelOffset mul /Y exch def
+ X 0 gt {
+ %% Nom à droite
+ X Y HauteurCaractere 2 div sub moveto
+ } {
+ X 0 lt {
+ %% Nom à gauche
+ X wx sub Y HauteurCaractere 2 div sub moveto
+ } {
+ Y 0 gt {
+ %% Nom au dessus
+ X wx 2 div sub Y moveto
+ } {
+ %% Nom en dessous
+ X wx 2 div sub Y HauteurCaractere sub moveto
+ } ifelse
+ } ifelse
+ } ifelse
+} def