From: Juergen Gilg <gilg@acrotex.net>
Date: Sun, 4 Nov 2012 20:12:04 +0000 (+0100)
Subject: ... nommer quelques iles ...
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=commitdiff_plain;h=60c75bfb08dd2f4539517a73064df6d4228a8a2c

... nommer quelques iles ...

modification de villes.ps et carte1_JG_Distiller.ps
---

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.pdf b/cartes/32U/postscript/carte1_JG_Distiller.pdf
index 9ca049d..c83d627 100644
Binary files a/cartes/32U/postscript/carte1_JG_Distiller.pdf and b/cartes/32U/postscript/carte1_JG_Distiller.pdf differ
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
diff --git a/cartes/32U/postscript/villes.ps b/cartes/32U/postscript/villes.ps
index c69f86f..3d20566 100644
--- a/cartes/32U/postscript/villes.ps
+++ b/cartes/32U/postscript/villes.ps
@@ -59,6 +59,16 @@
 [440.419 287.995 (Schwerin) 45] %Mecklenburg-Vorpommern
 [354.114 363.428 (Kiel) 90] %Schleswig-Holstein
 ] def
+/V_allemagne_iles[
+[604 347 (Usedom) 90]
+[584 383 (Rügen) 90]
+[430 395 (Fehmarn) 180]
+[214 430 (Sylt) 0]
+[204 400 (Amrum) 0]
+[244 395 (Föhr) 90]
+[220 385 (Pellworm) 0]
+[140 300 (Borkum) 270]
+] def
 /V_autriche[
 [767.174 -423.668 (Graz) -1]
 [687.146 -480.757 (Klagenfurt) -1]