... nommer quelques iles ...

[carto.git] / cartes / 32U / postscript / carte1_JG_Distiller.ps

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps
index 6ea27eb..0992877 100644 (file)
--- a/cartes/32U/postscript/carte1_JG_Distiller.ps
+++ b/cartes/32U/postscript/carte1_JG_Distiller.ps
@@ -141,6 +141,43 @@ disquedict /mtrx matrix put
                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
@@ -180,7 +217,7 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 630.412 418.266 mo (Ostsee)shm
 
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 /CouleurNom {DarkRed} def
 V_allemagne { 
      PlacePoint gsave DarkRed fill grestore PlaceNoma 
@@ -192,5 +229,10 @@ V_allemagne {
 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