cartes/32U/postscript/carte1.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 (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 Aqua fill
  20 grestore
  21 % ------------------------------------------------------------------------------
  22
  23 (pays.ps)    run
  24 (lander.ps)  run
  25 (fleuves.ps) run
  26 (lacs.ps)    run
  27 (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
 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 saale mosel weser ems main] {
 134         { Construction DarkBlue 0.25 setlinewidth stroke} forall
 135 } forall
 136
 137 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 138 V_allemagne { PlacePoint gsave DarkRed fill grestore} forall
 139
 140 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
 141 /CouleurNom {Orange} def
 142 /RayonVille 3 def               % Des points un peu plus gros pour les capitales
 143 V_allemagne_capitales_lander {
 144         PlacePoint gsave YellowGreen fill grestore PlaceNom
 145 } forall
 146
 147 showpage