modification en carte1_JG_Distiller.ps

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps
index 475d086..a5e43c0 100644 (file)
--- a/cartes/32U/postscript/carte1_JG_Distiller.ps
+++ b/cartes/32U/postscript/carte1_JG_Distiller.ps
@@ -29,8 +29,6 @@ grestore
 
 % ------------------------------------------------------------------------------
 /Pas 1 def
-/RayonVille 2 def
-/LabelOffset 6 def
 % ------------------------------------------------------------------------------
 /Construction {
        /region exch def
@@ -50,56 +48,58 @@ 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
 } def
-/fontfacteur 14 def
+
 /PlaceNom {
        Position -1 gt {
                disquedict begin
                        /savematrix mtrx currentmatrix def                      
                        X Y translate
-                       %% Dimension (largeur) du nom -------------------------
-                       /Helvetica-Bold findfont fontfacteur 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
+                       %% Présentation du nom --------------------------------                        
+                       0.5 setgray Nom show
+                       CouleurNom WX neg 0.35 sub 0.25 rmoveto Nom show
                        %% ----------------------------------------------------
                        savematrix setmatrix
                end
@@ -143,88 +143,6 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 90.412 368.266 mo (Nordsee)shm
 630.412 418.266 mo (Ostsee)shm
 
-% ------------------------------------------------------------------------------
-/Pas 1 def
-% ------------------------------------------------------------------------------
-/Construction {
-       /region exch def
-       newpath
-       /nbr region length def
-       region 0 get aload pop
-       /Y exch def /X exch def
-       X Y moveto
-       /ncount 0 def
-       0 1 nbr 1 sub {
-               /ncount ncount 1 add def
-               region exch get aload pop
-               ncount Pas mod 0 eq nbr ncount sub 0 lt or {
-                       /Y exch def /X exch def
-                       X  Y lineto
-               }{ pop pop } ifelse
-       } 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
-
-/Nom (Ville) def
-/Position -1 def
-/PlacePoint {  
-       aload pop
-       /Position exch def
-       /Nom exch def
-       newpath
-       disquedict begin
-               /Y exch def /X exch def
-               /savematrix mtrx currentmatrix def
-               X Y translate RayonDisque dup scale
-               0 0 1 0 360 arc
-               savematrix setmatrix
-       end
-} def
-
-/PlaceNom {
-       Position -1 gt {
-               disquedict begin
-                       /savematrix mtrx currentmatrix def                      
-                       X Y translate
-                       %% 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 HauteurCaractere 2 sub moveto
-                       } {
-                               X 0 lt {
-                                       %% Nom à gauche
-                                       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 HauteurCaractere sub moveto
-                                       } ifelse
-                               } ifelse                
-                       } ifelse
-                       %% Présentation du nom --------------------------------                        
-                       0.7 setgray Nom show
-                       CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom show
-                       %% ----------------------------------------------------
-                       savematrix setmatrix
-               end
-       } if
-} def
-% ------------------------------------------------------------------------------
-
-1 setlinejoin
-
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 [hollande france italie suisse tchequie pologne belgique autriche
@@ -261,37 +179,38 @@ V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 /Helvetica-Bold   findfont 14 scalefont ISOEncode setfont
-/HauteurCaractere 10 def
+/HauteurCaractere 7 def
 /CouleurNom       {Orange} def
-/RayonDisque      3 def         % Des points un peu plus gros pour les capitales
-/LabelOffset      6 def
+/RayonDisque      3.5 def         % Des points un peu plus gros pour les capitales
+/LabelOffset      3.5 def
 V_allemagne_capitales_lander {
        PlacePoint gsave Orange fill grestore PlaceNom
 } forall
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/Helvetica-Bold   findfont 8 scalefont ISOEncode setfont
-/HauteurCaractere 10 def
+/Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
+/HauteurCaractere 5 def
+/RayonDisque      1 def
+/LabelOffset      1 def
 /CouleurNom       {DarkGreen} def
 [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] { 
     { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
  } forall
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 /Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
 /HauteurCaractere 5 def
-/CouleurNom       {DarkBlue} def
-/RayonDisque      3 def         
-/LabelOffset      5 def
+/CouleurNom       {DarkBlue} def        
 I_allemagne {
-       PlacePoint pop PlaceNom
+       PlacePoint pop PlaceNom 
 } forall
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
-/CouleurNom {DarkBlue} def
-/fontfacteur 8 def
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%
+/Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
+/HauteurCaractere 5 def
+/CouleurNom       {DarkBlue} def       
 V_allemagne_rivers {
-       PlacePoint gsave LightGoldenrod fill grestore PlaceNom
+       PlacePoint pop PlaceNom
 } forall
 
 showpage