modifications de villes.ps

jouer un peu avec carte1_JG_Distiller.ps

diff --git a/cartes/32U/postscript/LISTE.txt b/cartes/32U/postscript/LISTE.txt
index ef47755..03c5775 100644 (file)
--- a/cartes/32U/postscript/LISTE.txt
+++ b/cartes/32U/postscript/LISTE.txt
@@ -1,4 +1,4 @@
-== Fichiers de données adaptées à la zone 32U
+== Fichiers de données adaptées à la zone 32U
 pays.ps
 fleuves.ps
 lacs.ps
@@ -8,4 +8,6 @@ villes.ps
 carte1.ps::Allemagne 1 (ps)
 carte1.pdf::Allemagne 1 (pdf)
 carte1.png::Allemagne 1 (png)
-carte1.svg::Allemagne 1 (svg)
\ No newline at end of file
+carte1.svg::Allemagne 1 (svg)
+carte1_JG_Distiller.ps::Allemagne 1 with Distiller (ps)
+carte1_JG_Distiller.pdf::Allemagne 1 with Distiller (pdf)
\ No newline at end of file

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.pdf b/cartes/32U/postscript/carte1_JG_Distiller.pdf
new file mode 100644 (file)
index 0000000..9ca049d
Binary files /dev/null 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
new file mode 100644 (file)
index 0000000..6ea27eb
--- /dev/null
+++ b/cartes/32U/postscript/carte1_JG_Distiller.ps
@@ -0,0 +1,196 @@
+%! PS
+
+<< /PageSize [750 900] >> setpagedevice
+% ------------------------------------------------------------------------------
+% Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement).
+/ISOEncode {
+    dup length dict begin
+               {1 index /FID ne {def} {pop pop} ifelse} forall
+               /Encoding ISOLatin1Encoding def
+               currentdict
+    end
+    /Temporary exch definefont
+} bind def
+% ------------------------------------------------------------------------------
+(C:/Users/Jürgen/Desktop/carte1/carte1/svgnames.ps) run                                %% Utilisation des couleurs SVG                           
+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 DeepSkyBlue fill
+grestore
+% ------------------------------------------------------------------------------
+
+(C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps)    run
+(C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps)  run
+(C:/Users/Jürgen/Desktop/carte1/carte1/fleuves.ps) run
+(C:/Users/Jürgen/Desktop/carte1/carte1/lacs.ps)    run
+(C:/Users/Jürgen/Desktop/carte1/carte1/villes.ps)  run
+
+% ------------------------------------------------------------------------------
+/Pas 1 def
+/RayonVille 2 def
+/LabelOffset 6 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
+
+/disquedict 10 dict def
+disquedict /mtrx matrix put
+
+/Ville (Ville) def
+/Position -1 def
+/PlacePoint {  
+       aload pop
+       /Position exch def
+       /Ville exch def
+       newpath
+       disquedict begin
+               /Y exch def /X exch def
+               /savematrix mtrx currentmatrix def
+               X Y translate RayonVille 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 -------------------------
+                       /Helvetica-Bold findfont 14 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
+
+/PlaceNoma {
+       Position -1 gt {
+               disquedict begin
+                       /savematrix mtrx currentmatrix def                      
+                       X Y translate
+                       %% Dimension (largeur) du nom -------------------------
+                       /Helvetica-Bold findfont 8 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
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
+[hollande france italie suisse tchequie pologne belgique autriche
+  luxembourg liechtenstein danemark] {
+       { Construction closepath gsave MediumSeaGreen fill grestore} forall 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[leman constance] {
+       { Construction closepath gsave DarkBlue fill grestore} forall
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[allemagne hollande france suisse tchequie pologne belgique autriche
+  luxembourg liechtenstein danemark] {
+       { Construction closepath DarkGray stroke } forall 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
+       { Construction DarkBlue 0.25 setlinewidth stroke} forall
+} forall
+
+
+%% Les océans
+/mo /moveto load def
+/Helvetica findfont 20 scalefont setfont 
+/shm { gsave DarkBlue show grestore } def
+90.412 368.266 mo (Nordsee)shm
+630.412 418.266 mo (Ostsee)shm
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {DarkRed} def
+V_allemagne { 
+     PlacePoint gsave DarkRed fill grestore PlaceNoma 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {Orange} def
+/RayonVille 3 def               % Des points un peu plus gros pour les capitales
+V_allemagne_capitales_lander {
+       PlacePoint gsave YellowGreen fill grestore PlaceNom
+} forall
+
+showpage

diff --git a/cartes/32U/postscript/villes.ps b/cartes/32U/postscript/villes.ps
index d7a4d91..c69f86f 100644 (file)
--- a/cartes/32U/postscript/villes.ps
+++ b/cartes/32U/postscript/villes.ps
@@ -1,62 +1,62 @@
 /V_allemagne[
-[248.388 107.035 (Bielefeld) -1]
-[173.117 52.457 (Dortmund) -1]
-[124.223 42.600 (Duisburg) -1]
-[152.916 21.775 (Wuppertal) -1]
-[142.814 44.291 (Essen) -1]
-[145.104 -36.946 (Bonn) -1]
-[185.836 101.203 (M\374nster) -1]
+[248.388 107.035 (Bielefeld) 0]
+[173.117 52.457 (Dortmund) 45]
+[124.223 42.600 (Duisburg) 270]
+[152.916 21.775 (Wuppertal) 45]
+[142.814 44.291 (Essen) 45]
+[145.104 -36.946 (Bonn) 45]
+[185.836 101.203 (M\374nster) 45]
 [236.745 -229.815 (Karlsruhe) 45]
-[258.872 -183.254 (Heidelberg) -1]
-[354.647 -296.157 (Ulm) -1]
-[242.257 -174.226 (Mannheim) -1]
+[258.872 -183.254 (Heidelberg) 45]
+[354.647 -296.157 (Ulm) 45]
+[242.257 -174.226 (Mannheim) 45]
 [196.336 -340.479 (Freiburg) 0]
-[315.491 25.863 (Kassel) -1]
-[255.853 -53.850 (Giessen) -1]
-[252.803 276.144 (Bremerhaven) -1]
-[228.443 229.573 (Oldenburg) -1]
-[161.972 257.100 (Emden) -1]
-[383.031 132.458 (Braunschweig) -1]
-[215.821 135.212 (Osnabr\374ck) -1]
+[315.491 25.863 (Kassel) 45]
+[255.853 -53.850 (Giessen) 45]
+[252.803 276.144 (Bremerhaven) 45]
+[228.443 229.573 (Oldenburg) 45]
+[161.972 257.100 (Emden) 45]
+[383.031 132.458 (Braunschweig) 45]
+[215.821 135.212 (Osnabr\374ck) 45]
 [344.462 50.659 (G\366ttingen) 45]
-[496.631 -17.543 (Gera) -1]
-[461.927 -12.183 (Jena) -1]
-[308.498 413.370 (Flensburg) -1]
-[390.433 312.951 (L\374beck) -1]
+[496.631 -17.543 (Gera) 45]
+[461.927 -12.183 (Jena) 45]
+[308.498 413.370 (Flensburg) 45]
+[390.433 312.951 (L\374beck) 45]
 [181.030 -78.907 (Koblenz) 0]
-[420.786 -87.319 (Coburg) -1]
-[421.398 -300.496 (Augsburg) -1]
-[425.529 -175.813 (F\374rth) -1]
-[508.729 -223.028 (Regensburg) -1]
-[515.025 -353.022 (Rosenheim) -1]
-[488.267 -79.492 (Hof) -1]
-[348.998 -140.568 (W\374rzburg) -1]
-[460.644 -252.613 (Ingolstadt) -1]
-[431.386 -177.883 (N\374rnberg) -1]
-[648.281 91.511 (Cottbus) -1]
-[556.655 -19.199 (Chemnitz) -1]
+[420.786 -87.319 (Coburg) 45]
+[421.398 -300.496 (Augsburg) 45]
+[425.529 -175.813 (F\374rth) 45]
+[508.729 -223.028 (Regensburg) 45]
+[515.025 -353.022 (Rosenheim) 45]
+[488.267 -79.492 (Hof) 45]
+[348.998 -140.568 (W\374rzburg) 45]
+[460.644 -252.613 (Ingolstadt) 45]
+[431.386 -177.883 (N\374rnberg) 315]
+[648.281 91.511 (Cottbus) 45]
+[556.655 -19.199 (Chemnitz) 45]
 [518.148 35.203 (Leipzig) 90]
-[547.374 367.260 (Stralsund) -1]
-[486.731 338.499 (Rostock) -1]
+[547.374 367.260 (Stralsund) 45]
+[486.731 338.499 (Rostock) 45]
 [136.574 -13.401 (K\366ln) 0]
 [257.389 -107.646 (Frankfurt) 45]
 ] def
 /V_allemagne_capitales_lander[
-[423.158 -8.987 (Erfurt) 90] %Thüringen
-[228.526 -120.508 (Mainz) 270] %Rheinland-Pfalz
+[423.158 -8.987 (Erfurt) 270] %Thüringen
+[228.526 -120.508 (Mainz) 225] %Rheinland-Pfalz
 [613.499 8.680 (Dresden) 0] %Sachsen
 [472.224 -323.493 (M\374chen) 90] %Bayern
 [579.198 170.744 (Berlin) 90] %Bundeshauptstadt
 [267.235 223.746 (Bremen) 270] %Bremen
-[346.884 276.481 (Hamburg) 90] %Hamburg
+[346.884 276.481 (Hamburg) 270] %Hamburg
 [329.426 144.653 (Hannover) 90] %Niedersachsen
-[132.902 -200.169 (Saarbr\374cken) 0] %Saarland
-[295.324 -254.426 (Stuttgart) 0] %Baden-Württemberg
-[125.601 19.230 (D\374sseldorf) 0] %Nordrhein-Westfalen
-[226.973 -109.605 (Wiesbaden) 90] %Hessen
+[132.902 -200.169 (Saarbr\374cken) 270] %Saarland
+[295.324 -254.426 (Stuttgart) 0] %Baden-Württemberg
+[125.601 19.230 (D\374sseldorf) 270] %Nordrhein-Westfalen
+[226.973 -109.605 (Wiesbaden) 180] %Hessen
 [557.479 155.927 (Potsdam) 270] %Brandenburg
-[459.957 121.339 (Magdeburg) 180] %Sachsen-Anhalt
-[440.419 287.995 (Schwerin) 0] %Mecklenburg-Vorpommern
+[459.957 121.339 (Magdeburg) 45] %Sachsen-Anhalt
+[440.419 287.995 (Schwerin) 45] %Mecklenburg-Vorpommern
 [354.114 363.428 (Kiel) 90] %Schleswig-Holstein
 ] def
 /V_autriche[
@@ -131,7 +131,7 @@
 [-137.744 -29.801 (Lille) -1]
 [-222.516 11.363 (Calais) -1]
 [-200.342 -108.333 (Amiens) -1]
-[55.814 -422.441 (BesanÃ\83§on) -1]
+[55.814 -422.441 (Besançon) -1]
 [156.956 -367.566 (Mulhouse) -1]
 [188.438 -275.925 (Strasbourg) 180]
 [74.550 -261.367 (Nancy) 180]
@@ -246,9 +246,9 @@
 [1209.481 -29.532 (Rzeszow) -1]
 [911.064 -4.493 (Opole) -1]
 [906.108 409.064 (Gdansk) -1]
-[1000.760 130.421 (LÃ\83³dz) -1]
+[1000.760 130.421 (Lódz) -1]
 [1098.305 199.543 (Warsaw) -1]
-[1064.262 -54.356 (KrakÃ\83³w) -1]
+[1064.262 -54.356 (Kraków) -1]
 [748.846 372.189 (Koszalin) -1]
 ] def
 /V_suisse[