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 % ------------------------------------------------------------------------------
  33 /Construction {
  34         /region exch def
  35         newpath
  36         /nbr region length def
  37         region 0 get aload pop
  38         /Y exch def /X exch def
  39         X Y moveto
  40         /ncount 0 def
  41         0 1 nbr 1 sub {
  42                 /ncount ncount 1 add def
  43                 region exch get aload pop
  44                 ncount Pas mod 0 eq nbr ncount sub 0 lt or {
  45                         /Y exch def /X exch def
  46                         X  Y lineto
  47                 }{ pop pop } ifelse
  48         } for
  49 } def
  50
  51 %% PlacePoint et PlaceNom ------------------------------------------------------
  52 %% [e n (nom) angle] PlacePoint ensuite PlaceNom récupére ce qu'il lui faut dans
  53 %% dictionnaire disquedict
  54 /disquedict 10 dict def
  55 disquedict /mtrx matrix put
  56
  57 /Nom (Ville) def
  58 /Position -1 def
  59 /PlacePoint {
  60         aload pop
  61         /Position exch def
  62         /Nom exch def
  63         newpath
  64         disquedict begin
  65                 /Y exch def /X exch def
  66                 /savematrix mtrx currentmatrix def
  67                 X Y translate RayonDisque dup scale
  68                 0 0 1 0 360 arc
  69                 savematrix setmatrix
  70         end
  71 } def
  72
  73 /PlaceNom {
  74         Position -1 gt {
  75                 disquedict begin
  76                         /savematrix mtrx currentmatrix def
  77                         X Y translate
  78                         %% Dimension (largeur) du nom -------------------------
  79                         Nom 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 HauteurCaractere 2 sub moveto
  86                         } {
  87                                 X 0 lt {
  88                                         %% Nom à gauche
  89                                         X WX sub Y HauteurCaractere 2 div  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 HauteurCaractere sub moveto
  97                                         } ifelse
  98                                 } ifelse
  99                         } ifelse
 100                         %% Présentation du nom --------------------------------
 101                         0.5 setgray Nom show
 102                         CouleurNom WX neg 0.35 sub 0.25 rmoveto Nom 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 147 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 148 [hollande france italie suisse tchequie pologne belgique autriche
 149   luxembourg liechtenstein danemark] {
 150         { Construction closepath gsave MediumSeaGreen fill grestore} forall
 151 } forall
 152
 153 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 154 [leman constance] {
 155         { Construction closepath gsave DarkBlue fill grestore} forall
 156 } forall
 157
 158 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 159 [allemagne hollande france suisse tchequie pologne belgique autriche
 160   luxembourg liechtenstein danemark] {
 161         { Construction closepath DarkGray stroke } forall
 162 } forall
 163
 164 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 165 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 166
 167 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 168 [rhin saone elbe neckar rhone doubs danube oder saale mosel weser ems main] {
 169         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 170 } forall
 171
 172 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 173 /Helvetica-Bold   findfont 8 scalefont ISOEncode setfont
 174 /HauteurCaractere 6 def
 175 /CouleurNom       {DarkRed} def
 176 /RayonDisque      2 def
 177 /LabelOffset      5 def
 178 V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom } forall
 179
 180 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 181 /Helvetica-Bold   findfont 14 scalefont ISOEncode setfont
 182 /HauteurCaractere 7 def
 183 /CouleurNom       {Orange} def
 184 /RayonDisque      3.5 def         % Des points un peu plus gros pour les capitales
 185 /LabelOffset      3.5 def
 186 V_allemagne_capitales_lander {
 187         PlacePoint gsave Orange fill grestore PlaceNom
 188 } forall
 189
 190 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 191 /Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
 192 /HauteurCaractere 5 def
 193 /RayonDisque      1 def
 194 /LabelOffset      1 def
 195 /CouleurNom       {DarkGreen} def
 196 [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] {
 197     { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
 198  } forall
 199
 200 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 201 /Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
 202 /HauteurCaractere 5 def
 203 /CouleurNom       {DarkBlue} def
 204 I_allemagne {
 205         PlacePoint pop PlaceNom
 206 } forall
 207
 208 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 209 /Helvetica-Bold   findfont 6 scalefont ISOEncode setfont
 210 /HauteurCaractere 5 def
 211 /CouleurNom       {DarkBlue} def
 212 V_allemagne_rivers {
 213         PlacePoint pop PlaceNom
 214 } forall
 215
 216 showpage