From: Juergen Gilg Date: Mon, 5 Nov 2012 22:36:21 +0000 (+0100) Subject: modification en carte1_JG_Distiller.ps X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=commitdiff_plain;h=7aac91b0a706cd21ff4805902de1744c0452a72c modification en carte1_JG_Distiller.ps --- diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps index 475d086..a5e43c0 100644 --- a/cartes/32U/postscript/carte1_JG_Distiller.ps +++ b/cartes/32U/postscript/carte1_JG_Distiller.ps @@ -29,8 +29,6 @@ grestore % ------------------------------------------------------------------------------ /Pas 1 def -/RayonVille 2 def -/LabelOffset 6 def % ------------------------------------------------------------------------------ /Construction { /region exch def @@ -50,56 +48,58 @@ 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 } def -/fontfacteur 14 def + /PlaceNom { Position -1 gt { disquedict begin /savematrix mtrx currentmatrix def X Y translate - %% Dimension (largeur) du nom ------------------------- - /Helvetica-Bold findfont fontfacteur 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 + %% Présentation du nom -------------------------------- + 0.5 setgray Nom show + CouleurNom WX neg 0.35 sub 0.25 rmoveto Nom show %% ---------------------------------------------------- savematrix setmatrix end @@ -143,88 +143,6 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall 90.412 368.266 mo (Nordsee)shm 630.412 418.266 mo (Ostsee)shm -% ------------------------------------------------------------------------------ -/Pas 1 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 - -%% 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 - -/Nom (Ville) def -/Position -1 def -/PlacePoint { - aload pop - /Position exch def - /Nom exch def - newpath - disquedict begin - /Y exch def /X exch def - /savematrix mtrx currentmatrix def - X Y translate RayonDisque 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 ------------------------- - 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 HauteurCaractere 2 sub moveto - } { - X 0 lt { - %% Nom à gauche - 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 HauteurCaractere sub moveto - } ifelse - } ifelse - } ifelse - %% Présentation du nom -------------------------------- - 0.7 setgray Nom show - CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom 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 @@ -261,37 +179,38 @@ V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /Helvetica-Bold findfont 14 scalefont ISOEncode setfont -/HauteurCaractere 10 def +/HauteurCaractere 7 def /CouleurNom {Orange} def -/RayonDisque 3 def % Des points un peu plus gros pour les capitales -/LabelOffset 6 def +/RayonDisque 3.5 def % Des points un peu plus gros pour les capitales +/LabelOffset 3.5 def V_allemagne_capitales_lander { PlacePoint gsave Orange fill grestore PlaceNom } forall %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 8 scalefont ISOEncode setfont -/HauteurCaractere 10 def +/Helvetica-Bold findfont 6 scalefont ISOEncode setfont +/HauteurCaractere 5 def +/RayonDisque 1 def +/LabelOffset 1 def /CouleurNom {DarkGreen} def [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] { { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall } forall -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /Helvetica-Bold findfont 6 scalefont ISOEncode setfont /HauteurCaractere 5 def -/CouleurNom {DarkBlue} def -/RayonDisque 3 def -/LabelOffset 5 def +/CouleurNom {DarkBlue} def I_allemagne { - PlacePoint pop PlaceNom + PlacePoint pop PlaceNom } forall -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {DarkBlue} def -/fontfacteur 8 def +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%% +/Helvetica-Bold findfont 6 scalefont ISOEncode setfont +/HauteurCaractere 5 def +/CouleurNom {DarkBlue} def V_allemagne_rivers { - PlacePoint gsave LightGoldenrod fill grestore PlaceNom + PlacePoint pop PlaceNom } forall showpage