... nommer quelques iles ...
authorJuergen Gilg <gilg@acrotex.net>
Sun, 4 Nov 2012 20:12:04 +0000 (21:12 +0100)
committerJuergen Gilg <gilg@acrotex.net>
Sun, 4 Nov 2012 20:12:04 +0000 (21:12 +0100)
modification de villes.ps et carte1_JG_Distiller.ps

cartes/32U/postscript/carte1_JG_Distiller.pdf
cartes/32U/postscript/carte1_JG_Distiller.ps
cartes/32U/postscript/villes.ps

index 9ca049d..c83d627 100644 (file)
Binary files a/cartes/32U/postscript/carte1_JG_Distiller.pdf and b/cartes/32U/postscript/carte1_JG_Distiller.pdf differ
index 6ea27eb..0992877 100644 (file)
@@ -141,6 +141,43 @@ disquedict /mtrx matrix put
                end
        } if
 } def
+
+/PlaceNomb {
+       Position -1 gt {
+               disquedict begin
+                       /savematrix mtrx currentmatrix def                      
+                       X Y translate
+                       %% Dimension (largeur) du nom -------------------------
+                       /Helvetica-Bold findfont 6 scalefont ISOEncode setfont
+                       Ville stringwidth pop /WX exch def
+                       %% ----------------------------------------------------
+                       Position cos LabelOffset mul /X exch def
+                       Position sin LabelOffset mul /Y exch def
+                       X 0 gt {
+                               %% Nom à droite
+                               X Y 5 sub moveto
+                       } {
+                               X 0 lt {
+                                       %% Nom à gauche
+                                       X WX sub Y 5 sub moveto
+                               } {
+                                       Y 0 gt {
+                                               %% Nom au dessus
+                                               X WX 2 div sub Y moveto
+                                       } {
+                                               %% Nom en dessous
+                                               X WX 2 div sub Y 10 sub moveto
+                                       } ifelse
+                               } ifelse                
+                       } ifelse
+                       %% Présentation du nom --------------------------------                        
+                       0.7 setgray Ville show
+                       CouleurNom WX neg 0.65 sub 0.65 rmoveto Ville show
+                       %% ----------------------------------------------------
+                       savematrix setmatrix
+               end
+       } if
+} def
 % ------------------------------------------------------------------------------
 
 1 setlinejoin
@@ -180,7 +217,7 @@ lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
 630.412 418.266 mo (Ostsee)shm
 
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 /CouleurNom {DarkRed} def
 V_allemagne { 
      PlacePoint gsave DarkRed fill grestore PlaceNoma 
@@ -192,5 +229,10 @@ V_allemagne {
 V_allemagne_capitales_lander {
        PlacePoint gsave YellowGreen fill grestore PlaceNom
 } forall
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {DarkBlue} def
+V_allemagne_iles {
+       PlacePoint gsave DeepSkyBlue fill grestore PlaceNomb
+} forall
 
 showpage
index c69f86f..3d20566 100644 (file)
 [440.419 287.995 (Schwerin) 45] %Mecklenburg-Vorpommern
 [354.114 363.428 (Kiel) 90] %Schleswig-Holstein
 ] def
+/V_allemagne_iles[
+[604 347 (Usedom) 90]
+[584 383 (Rügen) 90]
+[430 395 (Fehmarn) 180]
+[214 430 (Sylt) 0]
+[204 400 (Amrum) 0]
+[244 395 (Föhr) 90]
+[220 385 (Pellworm) 0]
+[140 300 (Borkum) 270]
+] def
 /V_autriche[
 [767.174 -423.668 (Graz) -1]
 [687.146 -480.757 (Klagenfurt) -1]

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.