X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=cartes%2F32U%2Fpostscript%2Fcarte1_JG_Distiller.ps;h=475d086a46522b2981c156bb3e3dc81905f904ec;hp=2c8f5deb081a40175ea4ace7da9fb12820d84983;hb=5a92046d532c89e02c36c63a6a39f3731ee0919f;hpb=0672713a74c5ccccb2174443b419f6e39700acac diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps index 2c8f5de..475d086 100644 --- a/cartes/32U/postscript/carte1_JG_Distiller.ps +++ b/cartes/32U/postscript/carte1_JG_Distiller.ps @@ -2,7 +2,7 @@ << /PageSize [750 900] >> setpagedevice % ------------------------------------------------------------------------------ -% Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement). +% 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 @@ -12,9 +12,9 @@ /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 +(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 @@ -25,6 +25,7 @@ grestore (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 +(C:/Users/Jürgen/Desktop/carte1/carte1/iles.ps) run % ------------------------------------------------------------------------------ /Pas 1 def @@ -67,14 +68,14 @@ disquedict /mtrx matrix put 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 14 scalefont ISOEncode setfont + /Helvetica-Bold findfont fontfacteur scalefont ISOEncode setfont Ville stringwidth pop /WX exch def %% ---------------------------------------------------- Position cos LabelOffset mul /X exch def @@ -96,7 +97,7 @@ disquedict /mtrx matrix put } ifelse } ifelse } ifelse - %% Présentation du nom -------------------------------- + %% Présentation du nom -------------------------------- 0.7 setgray Ville show CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show %% ---------------------------------------------------- @@ -104,75 +105,117 @@ disquedict /mtrx matrix put 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 +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-Bold findfont 20 scalefont setfont +/shm { gsave DarkBlue show grestore } def +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 -/PlaceNomb { +/PlaceNom { 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 + %% 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 @@ -204,41 +247,51 @@ allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall 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] { +[rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] { { Construction DarkBlue 0.25 setlinewidth stroke} forall } forall +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 PlaceNom } 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 et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/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 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 + PlacePoint gsave Orange fill grestore PlaceNom } forall -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {DarkBlue} def -V_allemagne_iles { - PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +/Helvetica-Bold findfont 8 scalefont ISOEncode setfont +/HauteurCaractere 10 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +/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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% /CouleurNom {DarkBlue} def +/fontfacteur 8 def V_allemagne_rivers { - PlacePoint gsave LightGoldenrod fill grestore PlaceNomb + PlacePoint gsave LightGoldenrod fill grestore PlaceNom } forall showpage