X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=cartes%2F32U%2Fpostscript%2Fcarte1_JG_Distiller.ps;h=a5e43c0884f6c4730f3ff771d1b9a591c5752ee5;hb=055df52debc660685bbd266601c02539d44c1a65;hp=69cd1be2ade68dfc7157ef267ce2138b76784e21;hpb=0ed6f719184b52c92a097f256804ea63b2001397;p=carto.git diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps index 69cd1be..a5e43c0 100644 --- a/cartes/32U/postscript/carte1_JG_Distiller.ps +++ b/cartes/32U/postscript/carte1_JG_Distiller.ps @@ -25,11 +25,10 @@ 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 -/RayonVille 2 def -/LabelOffset 6 def % ------------------------------------------------------------------------------ /Construction { /region exch def @@ -49,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 @@ -142,42 +143,74 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall 90.412 368.266 mo (Nordsee)shm 630.412 418.266 mo (Ostsee)shm -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales de Länder (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {Orange} def -/RayonVille 2 def % Des points un peu plus gros pour les capitales -V_allemagne_capitales_lander { - PlacePoint gsave Orange fill grestore PlaceNom +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes allemandes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {DarkRed} def -/RayonVille 1.5 def -/fontfacteur 8 def -V_allemagne { - PlacePoint gsave DarkRed fill grestore PlaceNom +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +[leman constance] { + { Construction closepath gsave DarkBlue fill grestore} forall } forall -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes autres pays (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {DarkGreen} def -/RayonVille 1.5 def -/fontfacteur 8 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 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 saale mosel weser ems main] { + { Construction DarkBlue 0.25 setlinewidth stroke} forall } forall -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%% -/CouleurNom {DarkBlue} def -/RayonVille 0 def -/fontfacteur 6 def -V_allemagne_iles { - PlacePoint gsave DeepSkyBlue fill grestore PlaceNom +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +/Helvetica-Bold findfont 14 scalefont ISOEncode setfont +/HauteurCaractere 7 def +/CouleurNom {Orange} 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 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 (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +/Helvetica-Bold findfont 6 scalefont ISOEncode setfont +/HauteurCaractere 5 def +/CouleurNom {DarkBlue} def +I_allemagne { + 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