--- /dev/null
+%! PS
+
+<< /PageSize [750 900] >> setpagedevice
+% ------------------------------------------------------------------------------
+% 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
+ /Encoding ISOLatin1Encoding def
+ currentdict
+ end
+ /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
+ 0 0 moveto 750 0 rlineto 0 900 rlineto -750 0 rlineto
+ closepath DeepSkyBlue fill
+grestore
+% ------------------------------------------------------------------------------
+
+(C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps) run
+(C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps) run
+(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
+
+% ------------------------------------------------------------------------------
+/Pas 1 def
+/RayonVille 2 def
+/LabelOffset 6 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
+
+/disquedict 10 dict def
+disquedict /mtrx matrix put
+
+/Ville (Ville) def
+/Position -1 def
+/PlacePoint {
+ aload pop
+ /Position exch def
+ /Ville exch def
+ newpath
+ disquedict begin
+ /Y exch def /X exch def
+ /savematrix mtrx currentmatrix def
+ X Y translate RayonVille 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 -------------------------
+ /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
+ 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
+% ------------------------------------------------------------------------------
+
+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 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) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/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
+V_allemagne_capitales_lander {
+ PlacePoint gsave YellowGreen fill grestore PlaceNom
+} forall
+
+showpage