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 /fontfacteur 14 def
  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 fontfacteur 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
 109 1 setlinejoin
 110
 111 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 112 allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
 113 [hollande france italie suisse tchequie pologne belgique autriche
 114   luxembourg liechtenstein danemark] {
 115         { Construction closepath gsave MediumSeaGreen fill grestore} forall
 116 } forall
 117
 118 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 119 [leman constance] {
 120         { Construction closepath gsave DarkBlue fill grestore} forall
 121 } forall
 122
 123 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 124 [allemagne hollande france suisse tchequie pologne belgique autriche
 125   luxembourg liechtenstein danemark] {
 126         { Construction closepath DarkGray stroke } forall
 127 } forall
 128
 129 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 130 lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 131
 132 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 133 [rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
 134         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 135 } forall
 136
 137
 138 %% Les océans
 139 /mo /moveto load def
 140 /Helvetica-Bold findfont 20 scalefont setfont
 141 /shm { gsave DarkBlue show grestore } def
 142 90.412 368.266 mo (Nordsee)shm
 143 630.412 418.266 mo (Ostsee)shm
 144
 145 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales de Länder (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 146 /CouleurNom {Orange} def
 147 /RayonVille 2 def               % Des points un peu plus gros pour les capitales
 148 V_allemagne_capitales_lander {
 149         PlacePoint gsave Orange fill grestore PlaceNom
 150 } forall
 151
 152 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes allemandes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 153 /CouleurNom {DarkRed} def
 154 /RayonVille 1.5 def
 155 /fontfacteur 8 def
 156 V_allemagne {
 157      PlacePoint gsave DarkRed fill grestore PlaceNom
 158 } forall
 159
 160 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes autres pays (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 161 /CouleurNom {DarkGreen} def
 162 /RayonVille 1.5 def
 163 /fontfacteur 8 def
 164 [V_autriche V_suisse V_france V_tchequie V_tchequie V_belgique V_hollande V_luxembourg V_pologne] {
 165     { PlacePoint gsave DarkGreen fill grestore PlaceNom } forall
 166 } forall
 167
 168 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 169 /CouleurNom {DarkBlue} def
 170 /RayonVille 0 def
 171 /fontfacteur 6 def
 172 V_allemagne_iles {
 173         PlacePoint gsave DeepSkyBlue fill grestore PlaceNom
 174 } forall
 175
 176 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 177 /CouleurNom {DarkBlue} def
 178 /fontfacteur 8 def
 179 V_allemagne_rivers {
 180         PlacePoint gsave LightGoldenrod fill grestore PlaceNom
 181 } forall
 182
 183 showpage