cartes/32U/postscript/carte1_JG_Distiller.ps

   1 %! PS
   2
   3 << /PageSize [750 900] >> setpagedevice
   4 % ------------------------------------------------------------------------------
   5 % Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement).
   6 /ISOEncode {
   7     dup length dict begin
   8                 {1 index /FID ne {def} {pop pop} ifelse} forall
   9                 /Encoding ISOLatin1Encoding def
  10                 currentdict
  11     end
  12     /Temporary exch definefont
  13 } bind def
  14 % ------------------------------------------------------------------------------
  15 (C:/Users/Jürgen/Desktop/carte1/carte1/svgnames.ps) run                                %% Utilisation des couleurs SVG
  16 0 450 translate                                  %% Déplacement du point origine
  17 gsave                                                         %% Couleur du fond
  18   0 0 moveto 750 0 rlineto 0 900 rlineto -750 0 rlineto
  19   closepath DeepSkyBlue fill
  20 grestore
  21 % ------------------------------------------------------------------------------
  22
  23 (C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps)    run
  24 (C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps)  run
  25 (C:/Users/Jürgen/Desktop/carte1/carte1/fleuves.ps) run
  26 (C:/Users/Jürgen/Desktop/carte1/carte1/lacs.ps)    run
  27 (C:/Users/Jürgen/Desktop/carte1/carte1/villes.ps)  run
  28
  29 % ------------------------------------------------------------------------------
  30 /Pas 1 def
  31 /RayonVille 2 def
  32 /LabelOffset 6 def
  33 % ------------------------------------------------------------------------------
  34 /Construction {
  35         /region exch def
  36         newpath
  37         /nbr region length def
  38         region 0 get aload pop
  39         /Y exch def /X exch def
  40         X Y moveto
  41         /ncount 0 def
  42         0 1 nbr 1 sub {
  43                 /ncount ncount 1 add def
  44                 region exch get aload pop
  45                 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
  46                         /Y exch def /X exch def
  47                         X  Y lineto
  48                 }{ pop pop } ifelse
  49         } for
  50 } def
  51
  52 /disquedict 10 dict def
  53 disquedict /mtrx matrix put
  54
  55 /Ville (Ville) def
  56 /Position -1 def
  57 /PlacePoint {
  58         aload pop
  59         /Position exch def
  60         /Ville exch def
  61         newpath
  62         disquedict begin
  63                 /Y exch def /X exch def
  64                 /savematrix mtrx currentmatrix def
  65                 X Y translate RayonVille dup scale
  66                 0 0 1 0 360 arc
  67                 savematrix setmatrix
  68         end
  69 } def
  70
  71 /PlaceNom {
  72         Position -1 gt {
  73                 disquedict begin
  74                         /savematrix mtrx currentmatrix def
  75                         X Y translate
  76                         %% Dimension (largeur) du nom -------------------------
  77                         /Helvetica-Bold findfont 14 scalefont ISOEncode setfont
  78                         Ville stringwidth pop /WX exch def
  79                         %% ----------------------------------------------------
  80                         Position cos LabelOffset mul /X exch def
  81                         Position sin LabelOffset mul /Y exch def
  82                         X 0 gt {
  83                                 %% Nom à droite
  84                                 X Y 5 sub moveto
  85                         } {
  86                                 X 0 lt {
  87                                         %% Nom à gauche
  88                                         X WX sub Y 5 sub moveto
  89                                 } {
  90                                         Y 0 gt {
  91                                                 %% Nom au dessus
  92                                                 X WX 2 div sub Y moveto
  93                                         } {
  94                                                 %% Nom en dessous
  95                                                 X WX 2 div sub Y 10 sub moveto
  96                                         } ifelse
  97                                 } ifelse
  98                         } ifelse
  99                         %% Présentation du nom --------------------------------
 100                         0.7 setgray Ville show
 101                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
 102                         %% ----------------------------------------------------
 103                         savematrix setmatrix
 104                 end
 105         } if
 106 } def
 107
 108 /PlaceNoma {
 109         Position -1 gt {
 110                 disquedict begin
 111                         /savematrix mtrx currentmatrix def
 112                         X Y translate
 113                         %% Dimension (largeur) du nom -------------------------
 114                         /Helvetica-Bold findfont 8 scalefont ISOEncode setfont
 115                         Ville stringwidth pop /WX exch def
 116                         %% ----------------------------------------------------
 117                         Position cos LabelOffset mul /X exch def
 118                         Position sin LabelOffset mul /Y exch def
 119                         X 0 gt {
 120                                 %% Nom à droite
 121                                 X Y 5 sub moveto
 122                         } {
 123                                 X 0 lt {
 124                                         %% Nom à gauche
 125                                         X WX sub Y 5 sub moveto
 126                                 } {
 127                                         Y 0 gt {
 128                                                 %% Nom au dessus
 129                                                 X WX 2 div sub Y moveto
 130                                         } {
 131                                                 %% Nom en dessous
 132                                                 X WX 2 div sub Y 10 sub moveto
 133                                         } ifelse
 134                                 } ifelse
 135                         } ifelse
 136                         %% Présentation du nom --------------------------------
 137                         0.7 setgray Ville show
 138                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
 139                         %% ----------------------------------------------------
 140                         savematrix setmatrix
 141                 end
 142         } if
 143 } def
 144
 145 /PlaceNomb {
 146         Position -1 gt {
 147                 disquedict begin
 148                         /savematrix mtrx currentmatrix def
 149                         X Y translate
 150                         %% Dimension (largeur) du nom -------------------------
 151                         /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
 152                         Ville stringwidth pop /WX exch def
 153                         %% ----------------------------------------------------
 154                         Position cos LabelOffset mul /X exch def
 155                         Position sin LabelOffset mul /Y exch def
 156                         X 0 gt {
 157                                 %% Nom à droite
 158                                 X Y 5 sub moveto
 159                         } {
 160                                 X 0 lt {
 161                                         %% Nom à gauche
 162                                         X WX sub Y 5 sub moveto
 163                                 } {
 164                                         Y 0 gt {
 165                                                 %% Nom au dessus
 166                                                 X WX 2 div sub Y moveto
 167                                         } {
 168                                                 %% Nom en dessous
 169                                                 X WX 2 div sub Y 10 sub moveto
 170                                         } ifelse
 171                                 } ifelse
 172                         } ifelse
 173                         %% Présentation du nom --------------------------------
 174                         0.7 setgray Ville show
 175                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
 176                         %% ----------------------------------------------------
 177                         savematrix setmatrix
 178                 end
 179         } if
 180 } def
 181 % ------------------------------------------------------------------------------
 182
 183 1 setlinejoin
 184
 185 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 186 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 187 [hollande france italie suisse tchequie pologne belgique autriche
 188   luxembourg liechtenstein danemark] {
 189         { Construction closepath gsave MediumSeaGreen fill grestore} forall
 190 } forall
 191
 192 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 193 [leman constance] {
 194         { Construction closepath gsave DarkBlue fill grestore} forall
 195 } forall
 196
 197 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 198 [allemagne hollande france suisse tchequie pologne belgique autriche
 199   luxembourg liechtenstein danemark] {
 200         { Construction closepath DarkGray stroke } forall
 201 } forall
 202
 203 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 204 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 205
 206 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 207 [rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
 208         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 209 } forall
 210
 211
 212 %% Les océans
 213 /mo /moveto load def
 214 /Helvetica findfont 20 scalefont setfont
 215 /shm { gsave DarkBlue show grestore } def
 216 90.412 368.266 mo (Nordsee)shm
 217 630.412 418.266 mo (Ostsee)shm
 218
 219
 220 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 221 /CouleurNom {DarkRed} def
 222 V_allemagne {
 223      PlacePoint gsave DarkRed fill grestore PlaceNoma
 224 } forall
 225
 226 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 227 /CouleurNom {Orange} def
 228 /RayonVille 3 def               % Des points un peu plus gros pour les capitales
 229 V_allemagne_capitales_lander {
 230         PlacePoint gsave YellowGreen fill grestore PlaceNom
 231 } forall
 232 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 233 /CouleurNom {DarkBlue} def
 234 V_allemagne_iles {
 235         PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb
 236 } forall
 237
 238 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 239 /CouleurNom {DarkBlue} def
 240 V_allemagne_rivers {
 241         PlacePoint gsave LightGoldenrod fill grestore PlaceNomb
 242 } forall
 243
 244 showpage