X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=cartes%2F32U%2Fpostscript%2Fcarte1.ps;h=7fedf9dce4bffeec4344630c7e707cce64af316c;hp=e2de82b4624cd82d113118c1ccf1038f999e6a80;hb=73db52200c80efd376eb4ca156fbb40a643578f2;hpb=aba376c99a64557fb62721ac9e8b7f2333bf843f

diff --git a/cartes/32U/postscript/carte1.ps b/cartes/32U/postscript/carte1.ps
index e2de82b..7fedf9d 100644
--- a/cartes/32U/postscript/carte1.ps
+++ b/cartes/32U/postscript/carte1.ps
@@ -16,7 +16,7 @@
 0 450 translate                                  %% Déplacement du point origine
 gsave                                                         %% Couleur du fond
   0 0 moveto 750 0 rlineto 0 900 rlineto -750 0 rlineto
-  closepath Aqua fill
+  closepath DeepSkyBlue fill
 grestore
 % ------------------------------------------------------------------------------
 
@@ -25,11 +25,10 @@ grestore
 (fleuves.ps) run
 (lacs.ps)    run
 (villes.ps)  run
+(iles.ps)    run
 
 % ------------------------------------------------------------------------------
 /Pas 1 def
-/RayonVille 2 def
-/LabelOffset 6 def
 % ------------------------------------------------------------------------------
 /Construction {
 	/region exch def
@@ -49,20 +48,23 @@ grestore
 	} for
 } def
 
+%% PlacePoint et PlaceNom ------------------------------------------------------
+%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
+%% dictionnaire disquedict
 /disquedict 10 dict def
 disquedict /mtrx matrix put
 
-/Ville (Ville) def
+/Nom (Ville) def
 /Position -1 def
 /PlacePoint {	
 	aload pop
 	/Position exch def
-	/Ville exch def
+	/Nom exch def
 	newpath
 	disquedict begin
 		/Y exch def /X exch def
 		/savematrix mtrx currentmatrix def
-		X Y translate RayonVille dup scale
+		X Y translate RayonDisque dup scale
 		0 0 1 0 360 arc
 		savematrix setmatrix
 	end
@@ -73,32 +75,31 @@ disquedict /mtrx matrix put
 		disquedict begin
 		  	/savematrix mtrx currentmatrix def		  	
 		  	X Y translate
-			%% Dimension (largeur) du nom -------------------------
-			/Helvetica-Bold findfont 14 scalefont ISOEncode setfont
-		  	Ville stringwidth pop /WX exch def
+			%% Dimension (largeur) du nom -------------------------			
+		  	Nom 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 Y HauteurCaractere 2 sub moveto
 			} {
 				X 0 lt {
 					%% Nom à gauche
-					X WX sub Y 5 sub moveto
+					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 10 sub moveto
+						X WX 2 div sub Y HauteurCaractere 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
+			0.7 setgray Nom show
+			CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom show
 			%% ----------------------------------------------------
 		  	savematrix setmatrix
 		end
@@ -134,14 +135,32 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 	{ Construction DarkBlue 0.25 setlinewidth stroke} forall
 } forall
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold   findfont 8 scalefont ISOEncode setfont
+/HauteurCaractere 6 def
+/CouleurNom       {DarkRed} def
+/RayonDisque      2 def
+/LabelOffset      5 def
 V_allemagne { PlacePoint gsave DarkRed fill grestore} forall
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
-/CouleurNom {Orange} def
-/RayonVille 3 def               % Des points un peu plus gros pour les capitales
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold   findfont 14 scalefont ISOEncode setfont
+/HauteurCaractere 10 def
+/CouleurNom       {Orange} def
+/RayonDisque      3 def         % Des points un peu plus gros pour les capitales
+/LabelOffset      6 def
 V_allemagne_capitales_lander {
 	PlacePoint gsave YellowGreen fill grestore PlaceNom
 } forall
 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
+/HauteurCaractere 5 def
+/CouleurNom       {DarkBlue} def
+/RayonDisque      3 def         
+/LabelOffset      5 def
+I_allemagne {
+	PlacePoint pop PlaceNom
+} forall
+
 showpage