Modification de la carte SVG de façon à pouvoir lire des coordonnées sur la carte...

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

diff --git a/cartes/32U/postscript/carte1.ps b/cartes/32U/postscript/carte1.ps
index e2de82b..7fedf9d 100644 (file)
--- 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
 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
 % ------------------------------------------------------------------------------
 
 grestore
 % ------------------------------------------------------------------------------
 


@@ -25,11 +25,10 @@ grestore
 (fleuves.ps) run
 (lacs.ps)    run
 (villes.ps)  run
 (fleuves.ps) run
 (lacs.ps)    run
 (villes.ps)  run

+(iles.ps)    run

 
 % ------------------------------------------------------------------------------
 /Pas 1 def
 
 % ------------------------------------------------------------------------------
 /Pas 1 def

-/RayonVille 2 def
-/LabelOffset 6 def

 % ------------------------------------------------------------------------------
 /Construction {
        /region exch def
 % ------------------------------------------------------------------------------
 /Construction {
        /region exch def


@@ -49,20 +48,23 @@ grestore
        } for
 } def
 
        } 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
 
 /disquedict 10 dict def
 disquedict /mtrx matrix put
 

-/Ville (Ville) def
+/Nom (Ville) def

 /Position -1 def
 /PlacePoint {  
        aload pop
        /Position exch 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
        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
                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
                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
                        %% ----------------------------------------------------
                        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 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
                                } {
                                        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 --------------------------------                        
                                        } 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
                        %% ----------------------------------------------------
                        savematrix setmatrix
                end


@@ -134,14 +135,32 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
        { Construction DarkBlue 0.25 setlinewidth stroke} forall
 } 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
 
 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
 
 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
 showpage