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 (C:/Users/Jürgen/Desktop/carte1/carte1/iles.ps)  run
  29
  30 % ------------------------------------------------------------------------------
  31 /Pas 1 def
  32 /RayonVille 2 def
  33 /LabelOffset 6 def
  34 % ------------------------------------------------------------------------------
  35 /Construction {
  36         /region exch def
  37         newpath
  38         /nbr region length def
  39         region 0 get aload pop
  40         /Y exch def /X exch def
  41         X Y moveto
  42         /ncount 0 def
  43         0 1 nbr 1 sub {
  44                 /ncount ncount 1 add def
  45                 region exch get aload pop
  46                 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
  47                         /Y exch def /X exch def
  48                         X  Y lineto
  49                 }{ pop pop } ifelse
  50         } for
  51 } def
  52
  53 /disquedict 10 dict def
  54 disquedict /mtrx matrix put
  55
  56 /Ville (Ville) def
  57 /Position -1 def
  58 /PlacePoint {
  59         aload pop
  60         /Position exch def
  61         /Ville exch def
  62         newpath
  63         disquedict begin
  64                 /Y exch def /X exch def
  65                 /savematrix mtrx currentmatrix def
  66                 X Y translate RayonVille dup scale
  67                 0 0 1 0 360 arc
  68                 savematrix setmatrix
  69         end
  70 } def
  71 /fontfacteur 14 def
  72 /PlaceNom {
  73         Position -1 gt {
  74                 disquedict begin
  75                         /savematrix mtrx currentmatrix def
  76                         X Y translate
  77                         %% Dimension (largeur) du nom -------------------------
  78                         /Helvetica-Bold findfont fontfacteur scalefont ISOEncode setfont
  79                         Ville stringwidth pop /WX exch def
  80                         %% ----------------------------------------------------
  81                         Position cos LabelOffset mul /X exch def
  82                         Position sin LabelOffset mul /Y exch def
  83                         X 0 gt {
  84                                 %% Nom à droite
  85                                 X Y 5 sub moveto
  86                         } {
  87                                 X 0 lt {
  88                                         %% Nom à gauche
  89                                         X WX sub Y 5 sub moveto
  90                                 } {
  91                                         Y 0 gt {
  92                                                 %% Nom au dessus
  93                                                 X WX 2 div sub Y moveto
  94                                         } {
  95                                                 %% Nom en dessous
  96                                                 X WX 2 div sub Y 10 sub moveto
  97                                         } ifelse
  98                                 } ifelse
  99                         } ifelse
 100                         %% Présentation du nom --------------------------------
 101                         0.7 setgray Ville show
 102                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
 103                         %% ----------------------------------------------------
 104                         savematrix setmatrix
 105                 end
 106         } if
 107 } def
 108 % ------------------------------------------------------------------------------
 109
 110 1 setlinejoin
 111
 112 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 113 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 114 [hollande france italie suisse tchequie pologne belgique autriche
 115   luxembourg liechtenstein danemark] {
 116         { Construction closepath gsave MediumSeaGreen fill grestore} forall
 117 } forall
 118
 119 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 120 [leman constance] {
 121         { Construction closepath gsave DarkBlue fill grestore} forall
 122 } forall
 123
 124 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 125 [allemagne hollande france suisse tchequie pologne belgique autriche
 126   luxembourg liechtenstein danemark] {
 127         { Construction closepath DarkGray stroke } forall
 128 } forall
 129
 130 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 131 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 132
 133 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 134 [rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
 135         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 136 } forall
 137
 138
 139 %% Les océans
 140 /mo /moveto load def
 141 /Helvetica-Bold findfont 20 scalefont setfont
 142 /shm { gsave DarkBlue show grestore } def
 143 90.412 368.266 mo (Nordsee)shm
 144 630.412 418.266 mo (Ostsee)shm
 145
 146 % ------------------------------------------------------------------------------
 147 /Pas 1 def
 148 % ------------------------------------------------------------------------------
 149 /Construction {
 150         /region exch def
 151         newpath
 152         /nbr region length def
 153         region 0 get aload pop
 154         /Y exch def /X exch def
 155         X Y moveto
 156         /ncount 0 def
 157         0 1 nbr 1 sub {
 158                 /ncount ncount 1 add def
 159                 region exch get aload pop
 160                 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
 161                         /Y exch def /X exch def
 162                         X  Y lineto
 163                 }{ pop pop } ifelse
 164         } for
 165 } def
 166
 167 %% PlacePoint et PlaceNom ------------------------------------------------------
 168 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
 169 %% dictionnaire disquedict
 170 /disquedict 10 dict def
 171 disquedict /mtrx matrix put
 172
 173 /Nom (Ville) def
 174 /Position -1 def
 175 /PlacePoint {
 176         aload pop
 177         /Position exch def
 178         /Nom exch def
 179         newpath
 180         disquedict begin
 181                 /Y exch def /X exch def
 182                 /savematrix mtrx currentmatrix def
 183                 X Y translate RayonDisque dup scale
 184                 0 0 1 0 360 arc
 185                 savematrix setmatrix
 186         end
 187 } def
 188
 189 /PlaceNom {
 190         Position -1 gt {
 191                 disquedict begin
 192                         /savematrix mtrx currentmatrix def
 193                         X Y translate
 194                         %% Dimension (largeur) du nom -------------------------
 195                         Nom stringwidth pop /WX exch def
 196                         %% ----------------------------------------------------
 197                         Position cos LabelOffset mul /X exch def
 198                         Position sin LabelOffset mul /Y exch def
 199                         X 0 gt {
 200                                 %% Nom à droite
 201                                 X Y HauteurCaractere 2 sub moveto
 202                         } {
 203                                 X 0 lt {
 204                                         %% Nom à gauche
 205                                         X WX sub Y HauteurCaractere 2 div  sub moveto
 206                                 } {
 207                                         Y 0 gt {
 208                                                 %% Nom au dessus
 209                                                 X WX 2 div sub Y moveto
 210                                         } {
 211                                                 %% Nom en dessous
 212                                                 X WX 2 div sub Y HauteurCaractere sub moveto
 213                                         } ifelse
 214                                 } ifelse
 215                         } ifelse
 216                         %% Présentation du nom --------------------------------
 217                         0.7 setgray Nom show
 218                         CouleurNom WX neg 0.65 sub 0.65 rmoveto Nom show
 219                         %% ----------------------------------------------------
 220                         savematrix setmatrix
 221                 end
 222         } if
 223 } def
 224 % ------------------------------------------------------------------------------
 225
 226 1 setlinejoin
 227
 228 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 229 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 230 [hollande france italie suisse tchequie pologne belgique autriche
 231   luxembourg liechtenstein danemark] {
 232         { Construction closepath gsave MediumSeaGreen fill grestore} forall
 233 } forall
 234
 235 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 236 [leman constance] {
 237         { Construction closepath gsave DarkBlue fill grestore} forall
 238 } forall
 239
 240 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 241 [allemagne hollande france suisse tchequie pologne belgique autriche
 242   luxembourg liechtenstein danemark] {
 243         { Construction closepath DarkGray stroke } forall
 244 } forall
 245
 246 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 247 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 248
 249 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 250 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
 251         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 252 } forall
 253
 254 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 255 /Helvetica-Bold   findfont 8 scalefont ISOEncode setfont
 256 /HauteurCaractere 6 def
 257 /CouleurNom       {DarkRed} def
 258 /RayonDisque      2 def
 259 /LabelOffset      5 def
 260 V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall
 261
 262 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 263 /Helvetica-Bold   findfont 14 scalefont ISOEncode setfont
 264 /HauteurCaractere 10 def
 265 /CouleurNom       {Orange} def
 266 /RayonDisque      3 def         % Des points un peu plus gros pour les capitales
 267 /LabelOffset      6 def
 268 V_allemagne_capitales_lander {
 269         PlacePoint gsave Orange fill grestore PlaceNom
 270 } forall
 271
 272 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 273 /Helvetica-Bold   findfont 8 scalefont ISOEncode setfont
 274 /HauteurCaractere 10 def
 275 /CouleurNom       {DarkGreen} def
 276 [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] {
 277     { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
 278  } forall
 279
 280 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 281 /Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
 282 /HauteurCaractere 5 def
 283 /CouleurNom       {DarkBlue} def
 284 /RayonDisque      3 def
 285 /LabelOffset      5 def
 286 I_allemagne {
 287         PlacePoint pop PlaceNom
 288 } forall
 289
 290 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 291 /CouleurNom {DarkBlue} def
 292 /fontfacteur 8 def
 293 V_allemagne_rivers {
 294         PlacePoint gsave LightGoldenrod fill grestore PlaceNom
 295 } forall
 296
 297 showpage