From 73db52200c80efd376eb4ca156fbb40a643578f2 Mon Sep 17 00:00:00 2001 From: Jean-Michel Sarlat Date: Mon, 5 Nov 2012 11:08:21 +0100 Subject: [PATCH] =?utf8?q?Modification=20de=20la=20carte=20SVG=20de=20fa?= =?utf8?q?=C3=A7on=20=C3=A0=20pouvoir=20lire=20des=20coordonn=C3=A9es=20su?= =?utf8?q?r=20la=20carte=20(tooltip)=20afin=20de=20simplifier=20la=20mise?= =?utf8?q?=20en=20place=20des=20ajouts?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- cartes/32U/postscript/carte1.ps | 55 +- cartes/32U/postscript/carte1.svg | 1719 ++++++++++++++++++++++++------ cartes/32U/postscript/iles.ps | 10 + 3 files changed, 1415 insertions(+), 369 deletions(-) create mode 100644 cartes/32U/postscript/iles.ps 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 diff --git a/cartes/32U/postscript/carte1.svg b/cartes/32U/postscript/carte1.svg index 2612854..0457639 100644 --- a/cartes/32U/postscript/carte1.svg +++ b/cartes/32U/postscript/carte1.svg @@ -9,21 +9,22 @@ xmlns="http://www.w3.org/2000/svg" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" - id="svg3004" + id="svg7047" version="1.1" inkscape:version="0.48.2 r9819" width="938.75" height="1126.25" + onload='init(evt)' xml:space="preserve" - sodipodi:docname="carte1.svg">image/svg+xml + + + Bielefeld +Bielefeld +Dortmund +Dortmund +Duisburg +Duisburg +Wuppertal +Wuppertal +Essen +Essen +Bonn +Bonn +Münster +Münster +Karlsruhe +Karlsruhe +Heidelberg +Heidelberg +Ulm +Ulm +Mannheim +Mannheim +Freiburg +Freiburg +Kassel +Kassel +Giessen +Giessen +Bremerhaven +Bremerhaven +Oldenburg +Oldenburg +Emden +Emden +Braunschweig +Braunschweig +Osnabrück +Osnabrück +Göttingen +Göttingen +Gera +Gera +Jena +Jena +Flensburg +Flensburg +Lübeck +Lübeck +Koblenz +Koblenz +Coburg +Coburg +Augsburg +Augsburg +Fürth +Fürth +Regensburg +Regensburg +Rosenheim +Rosenheim +Hof +Hof +Würzburg +Würzburg +Ingolstadt +Ingolstadt +Nürnberg +Nürnberg +Cottbus +Cottbus +Chemnitz +Chemnitz +Leipzig +Leipzig +Stralsund +Stralsund +Rostock +Rostock +Köln +Köln +Frankfurt +Frankfurt +Erfurt + id="tspan7967">Erfurt Erfurt + id="tspan7973">Erfurt Mainz + id="tspan7981">Mainz Mainz + id="tspan7987">Mainz Dresden + id="tspan7995">Dresden Dresden + id="tspan8001">Dresden Müchen + id="tspan8009">Müchen Müchen + id="tspan8015">Müchen Berlin + id="tspan8023">Berlin Berlin + id="tspan8029">Berlin Bremen + id="tspan8037">Bremen Bremen + id="tspan8043">Bremen Hamburg + id="tspan8051">Hamburg Hamburg + id="tspan8057">Hamburg Hannover + id="tspan8065">Hannover Hannover + id="tspan8071">Hannover Saarbrücken + id="tspan8079">Saarbrücken Saarbrücken + id="tspan8085">Saarbrücken Stuttgart + id="tspan8093">Stuttgart Stuttgart + id="tspan8099">Stuttgart Düsseldorf + id="tspan8107">Düsseldorf Düsseldorf + id="tspan8113">Düsseldorf Wiesbaden + id="tspan8121">Wiesbaden Wiesbaden + id="tspan8127">Wiesbaden Potsdam + id="tspan8135">Potsdam Potsdam + id="tspan8141">Potsdam Magdeburg + id="tspan8149">Magdeburg Magdeburg + id="tspan8155">Magdeburg Schwerin + id="tspan8163">Schwerin Schwerin + id="tspan8169">Schwerin Kiel + id="tspan8177">Kiel Kiel - \ No newline at end of file + id="tspan8183">Kiel +Usedom +Usedom +Rügen +Rügen +Fehmarn +Fehmarn +Sylt +Sylt +Amrum +Amrum +Föhr +Föhr +Pellworm +Pellworm +Borkum +Borkum + + +Tooltip + \ No newline at end of file diff --git a/cartes/32U/postscript/iles.ps b/cartes/32U/postscript/iles.ps new file mode 100644 index 0000000..88741b5 --- /dev/null +++ b/cartes/32U/postscript/iles.ps @@ -0,0 +1,10 @@ +/I_allemagne[ +[604 347 (Usedom) 90] +[584 383 (Rügen) 90] +[430 395 (Fehmarn) 180] +[214 430 (Sylt) 0] +[204 400 (Amrum) 0] +[244 395 (Föhr) 90] +[220 385 (Pellworm) 0] +[140 300 (Borkum) 270] +] def \ No newline at end of file -- 2.20.1