<< /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
/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
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
- 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
-
-/PlaceNoma {
- Position -1 gt {
- disquedict begin
- /savematrix mtrx currentmatrix def
- X Y translate
- %% Dimension (largeur) du nom -------------------------
- /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
+ /Helvetica-Bold findfont fontfacteur scalefont ISOEncode setfont
Ville stringwidth pop /WX exch def
%% ----------------------------------------------------
Position cos LabelOffset mul /X exch def
} 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
-
-/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 --------------------------------
+ %% Présentation du nom --------------------------------
0.7 setgray Ville show
CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
%% ----------------------------------------------------
{ Construction closepath gsave DarkBlue fill grestore} forall
} forall
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
[allemagne hollande france suisse tchequie pologne belgique autriche
luxembourg liechtenstein danemark] {
{ Construction closepath DarkGray stroke } forall
} forall
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 findfont 20 scalefont setfont
+/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
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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
+} forall
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes allemandes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/CouleurNom {DarkRed} def
-V_allemagne {
- PlacePoint gsave DarkRed fill grestore PlaceNoma
+/RayonVille 1.5 def
+/fontfacteur 8 def
+V_allemagne {
+ PlacePoint gsave DarkRed fill grestore PlaceNom
} forall
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
-/CouleurNom {Orange} def
-/RayonVille 3 def % Des points un peu plus gros pour les capitales
-V_allemagne_capitales_lander {
- PlacePoint gsave YellowGreen fill grestore PlaceNom
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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
} forall
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
/CouleurNom {DarkBlue} def
+/RayonVille 0 def
+/fontfacteur 6 def
V_allemagne_iles {
- PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb
+ PlacePoint gsave DeepSkyBlue fill grestore 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