+++ /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
-(C:/Users/Jürgen/Desktop/carte1/carte1/noms-iles.ps) run
-(C:/Users/Jürgen/Desktop/carte1/carte1/noms-fleuves.ps) run
-
-% ------------------------------------------------------------------------------
-/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
-
-/concatstrings {
- exch dup length
- 2 index length add string
- dup dup 4 2 roll copy length
- 4 -1 roll putinterval
-} bind def
-
-%% PlacePoint et PlaceNom ------------------------------------------------------
-%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupère ce qu'il lui faut dans
-%% dictionnaire placedict
-%%
-%% Usage : [e n (nom) pos (proc)] PlacePoint .... PlaceNom
-%% Le cinquième argument est facultatif....
-
-/placedict 10 dict def
-placedict /mtrx matrix put
-
-/PlacePoint {
- placedict begin
- /argv exch def /argn argv length def
- argv aload pop
- /proc (Place_Defaut) def
- argn 4 gt { (Place_) exch concatstrings /proc exch def } if
- /pos exch def /nom exch def
- /Y exch def /X exch def
- newpath
- /savematrix mtrx currentmatrix def
- X Y translate RayonDisque dup scale
- 0 0 1 0 360 arc
- savematrix setmatrix
- end
-} def
-
-/PlaceNom {
- placedict begin
- pos -1 gt {
- /savematrix mtrx currentmatrix def
- X Y translate
- %% Dimension (largeur) du nom -------------------------
- nom stringwidth pop /wx exch def
- %% ----------------------------------------------------
- proc cvx exec
- %% ----------------------------------------------------
- savematrix setmatrix
- } if
- end
-} def
-
-/Place_Defaut_Position {
- pos cos LabelOffset mul /X exch def
- pos sin LabelOffset mul /Y exch def
- X 0 gt {
- %% Nom à droite
- X Y HauteurCaractere 2 div sub moveto
- } {
- X 0 lt {
- %% Nom à gauche
- 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 HauteurCaractere sub moveto
- } ifelse
- } ifelse
- } ifelse
-} def
-
-/Place_Defaut {
- Place_Defaut_Position
- %% Présentation du nom --------------------------------
- 0.7 setgray nom show
- CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
-} def
-
-/Place_Centering {
- wx 2 div neg wx 2 div neg rmoveto
- %% Présentation du nom --------------------------------
- 0.7 setgray nom show
- CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
-} def
-
-/Place_Rotate {
- pos cos 0 ge {
- pos rotate
- LabelOffset HauteurCaractere 2 div neg moveto
- } {
- pos 180 sub rotate
- LabelOffset wx add neg HauteurCaractere 2 div neg moveto
- } ifelse
- %% Présentation du nom --------------------------------
- 0.7 setgray nom show
- CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
-} def
-
-/Place_RotateCentering {
- pos rotate wx 2 div neg HauteurCaractere 2 div neg moveto
- %% Présentation du nom --------------------------------
- 0.7 setgray nom show
- CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show
-} 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 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 {DarkGreen} def
-/RayonDisque 2 def
-/LabelOffset 5 def
-[V_hollande V_belgique V_luxembourg V_france V_suisse V_autriche
-V_tchequie V_pologne] {
- { PlacePoint gsave DarkGreen fill grestore PlaceNom} 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
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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 Orange fill grestore PlaceNom
-} forall
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/Helvetica-Bold findfont 6 scalefont ISOEncode setfont
-/HauteurCaractere 5 def
-/CouleurNom {DarkBlue} def
-/RayonDisque 3 def
-/LabelOffset 5 def
-I_allemagne {
- PlacePoint PlaceNom
-} forall
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/Helvetica-Bold findfont 6 scalefont ISOEncode setfont
-/HauteurCaractere 5 def
-/CouleurNom {DarkBlue} def
-R_allemagne {
- PlacePoint PlaceNom
-} forall
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres annotations %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/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
-
-
-showpage