From: Juergen Gilg Date: Sun, 4 Nov 2012 20:12:04 +0000 (+0100) Subject: ... nommer quelques iles ... X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=60c75bfb08dd2f4539517a73064df6d4228a8a2c;p=carto.git ... nommer quelques iles ... modification de villes.ps et carte1_JG_Distiller.ps --- diff --git a/cartes/32U/postscript/carte1_JG_Distiller.pdf b/cartes/32U/postscript/carte1_JG_Distiller.pdf index 9ca049d..c83d627 100644 Binary files a/cartes/32U/postscript/carte1_JG_Distiller.pdf 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 index 6ea27eb..0992877 100644 --- a/cartes/32U/postscript/carte1_JG_Distiller.ps +++ b/cartes/32U/postscript/carte1_JG_Distiller.ps @@ -141,6 +141,43 @@ disquedict /mtrx matrix put end } if } def + +/PlaceNomb { + Position -1 gt { + disquedict begin + /savematrix mtrx currentmatrix def + X Y translate + %% Dimension (largeur) du nom ------------------------- + /Helvetica-Bold findfont 6 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 @@ -180,7 +217,7 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall 630.412 418.266 mo (Ostsee)shm -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /CouleurNom {DarkRed} def V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNoma @@ -192,5 +229,10 @@ V_allemagne { V_allemagne_capitales_lander { PlacePoint gsave YellowGreen fill grestore PlaceNom } forall +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% +/CouleurNom {DarkBlue} def +V_allemagne_iles { + PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb +} forall showpage diff --git a/cartes/32U/postscript/villes.ps b/cartes/32U/postscript/villes.ps index c69f86f..3d20566 100644 --- a/cartes/32U/postscript/villes.ps +++ b/cartes/32U/postscript/villes.ps @@ -59,6 +59,16 @@ [440.419 287.995 (Schwerin) 45] %Mecklenburg-Vorpommern [354.114 363.428 (Kiel) 90] %Schleswig-Holstein ] def +/V_allemagne_iles[ +[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 /V_autriche[ [767.174 -423.668 (Graz) -1] [687.146 -480.757 (Klagenfurt) -1]