From: Juergen Gilg Date: Sun, 4 Nov 2012 19:27:16 +0000 (+0100) Subject: modifications de villes.ps X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=commitdiff_plain;h=9d676aee89fd754735aee8aad4b97dab74c7f16b 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 --- 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 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 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 --- 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ç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ódz) -1] +[1000.760 130.421 (Lódz) -1] [1098.305 199.543 (Warsaw) -1] -[1064.262 -54.356 (Kraków) -1] +[1064.262 -54.356 (Kraków) -1] [748.846 372.189 (Koszalin) -1] ] def /V_suisse[