(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
} 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
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