end
} if
} def
+
+/PlaceNomb {
+ Position -1 gt {
+ disquedict begin
+ /savematrix mtrx currentmatrix def
+ X Y translate
+ %% Dimension (largeur) du nom -------------------------
+ /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
+ Ville stringwidth pop /WX exch def
+ %% ----------------------------------------------------
+ Position cos LabelOffset mul /X exch def
+ Position sin LabelOffset mul /Y exch def
+ X 0 gt {
+ %% Nom à droite
+ X Y 5 sub moveto
+ } {
+ X 0 lt {
+ %% Nom à gauche
+ X WX sub Y 5 sub moveto
+ } {
+ Y 0 gt {
+ %% Nom au dessus
+ X WX 2 div sub Y moveto
+ } {
+ %% Nom en dessous
+ X WX 2 div sub Y 10 sub moveto
+ } ifelse
+ } ifelse
+ } ifelse
+ %% Présentation du nom --------------------------------
+ 0.7 setgray Ville show
+ CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
+ %% ----------------------------------------------------
+ savematrix setmatrix
+ end
+ } if
+} def
% ------------------------------------------------------------------------------
1 setlinejoin
630.412 418.266 mo (Ostsee)shm
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/CouleurNom {DarkRed} def
V_allemagne {
PlacePoint gsave DarkRed fill grestore PlaceNoma
V_allemagne_capitales_lander {
PlacePoint gsave YellowGreen fill grestore PlaceNom
} forall
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {DarkBlue} def
+V_allemagne_iles {
+ PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb
+} forall
showpage