X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=cartes%2F32U%2Fpostscript%2Fcarte1_JG_Distiller.ps;h=0992877e21db3598e713d692489ec5c26743e19f;hp=6ea27ebd49bcfb8f3b0f733b21232f05e98b48ee;hb=60c75bfb08dd2f4539517a73064df6d4228a8a2c;hpb=9d676aee89fd754735aee8aad4b97dab74c7f16b

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps
index 6ea27eb..0992877 100644
--- 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