X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=carto.git;a=blobdiff_plain;f=cartes%2F32U%2Fpostscript%2Fcarte1_JG_Distiller.ps;fp=cartes%2F32U%2Fpostscript%2Fcarte1_JG_Distiller.ps;h=6ea27ebd49bcfb8f3b0f733b21232f05e98b48ee;hp=0000000000000000000000000000000000000000;hb=9d676aee89fd754735aee8aad4b97dab74c7f16b;hpb=8c4413fbca6d747d6c825eb3536220ed00d2cb7d

diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps
new file mode 100644
index 0000000..6ea27eb
--- /dev/null
+++ b/cartes/32U/postscript/carte1_JG_Distiller.ps
@@ -0,0 +1,196 @@
+%! PS
+
+<< /PageSize [750 900] >> setpagedevice
+% ------------------------------------------------------------------------------
+% Utilisation de l'encodage latin1 (utf8 ne peut être utilisé directement).
+/ISOEncode {
+    dup length dict begin
+		{1 index /FID ne {def} {pop pop} ifelse} forall
+		/Encoding ISOLatin1Encoding def
+		currentdict
+    end
+    /Temporary exch definefont
+} bind def
+% ------------------------------------------------------------------------------
+(C:/Users/Jürgen/Desktop/carte1/carte1/svgnames.ps) run                                %% Utilisation des couleurs SVG                           
+0 450 translate                                  %% Déplacement du point origine
+gsave                                                         %% Couleur du fond
+  0 0 moveto 750 0 rlineto 0 900 rlineto -750 0 rlineto
+  closepath DeepSkyBlue fill
+grestore
+% ------------------------------------------------------------------------------
+
+(C:/Users/Jürgen/Desktop/carte1/carte1/pays.ps)    run
+(C:/Users/Jürgen/Desktop/carte1/carte1/lander.ps)  run
+(C:/Users/Jürgen/Desktop/carte1/carte1/fleuves.ps) run
+(C:/Users/Jürgen/Desktop/carte1/carte1/lacs.ps)    run
+(C:/Users/Jürgen/Desktop/carte1/carte1/villes.ps)  run
+
+% ------------------------------------------------------------------------------
+/Pas 1 def
+/RayonVille 2 def
+/LabelOffset 6 def
+% ------------------------------------------------------------------------------
+/Construction {
+	/region exch def
+	newpath
+	/nbr region length def
+	region 0 get aload pop
+	/Y exch def /X exch def
+	X Y moveto
+	/ncount 0 def
+	0 1 nbr 1 sub {
+		/ncount ncount 1 add def
+		region exch get aload pop
+		ncount Pas mod 0 eq nbr ncount sub 0 lt or {
+			/Y exch def /X exch def
+			X  Y lineto
+		}{ pop pop } ifelse
+	} for
+} def
+
+/disquedict 10 dict def
+disquedict /mtrx matrix put
+
+/Ville (Ville) def
+/Position -1 def
+/PlacePoint {	
+	aload pop
+	/Position exch def
+	/Ville exch def
+	newpath
+	disquedict begin
+		/Y exch def /X exch def
+		/savematrix mtrx currentmatrix def
+		X Y translate RayonVille dup scale
+		0 0 1 0 360 arc
+		savematrix setmatrix
+	end
+} def
+
+/PlaceNom {
+	Position -1 gt {
+		disquedict begin
+		  	/savematrix mtrx currentmatrix def		  	
+		  	X Y translate
+			%% Dimension (largeur) du nom -------------------------
+			/Helvetica-Bold findfont 14 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
+
+/PlaceNoma {
+	Position -1 gt {
+		disquedict begin
+		  	/savematrix mtrx currentmatrix def		  	
+		  	X Y translate
+			%% Dimension (largeur) du nom -------------------------
+			/Helvetica-Bold findfont 8 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
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+allemagne { Construction closepath gsave LightGoldenrod fill grestore} forall
+[hollande france italie suisse tchequie pologne belgique autriche
+  luxembourg liechtenstein danemark] {
+	{ Construction closepath gsave MediumSeaGreen fill grestore} forall 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Lacs (fond) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[leman constance] {
+	{ Construction closepath gsave DarkBlue fill grestore} forall
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Pays (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[allemagne hollande france suisse tchequie pologne belgique autriche
+  luxembourg liechtenstein danemark] {
+	{ Construction closepath DarkGray stroke } forall 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Länder (frontières) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+lander { Construction closepath WhiteSmoke 0.5 setlinewidth stroke} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Fleuves et rivières %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+[rhin saone elbe neckar rhone doubs danube oder weser ems main mosel saale] {
+	{ Construction DarkBlue 0.25 setlinewidth stroke} forall
+} forall
+
+
+%% Les océans
+/mo /moveto load def
+/Helvetica findfont 20 scalefont setfont 
+/shm { gsave DarkBlue show grestore } def
+90.412 368.266 mo (Nordsee)shm
+630.412 418.266 mo (Ostsee)shm
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {DarkRed} def
+V_allemagne { 
+     PlacePoint gsave DarkRed fill grestore PlaceNoma 
+} forall
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes (points et noms) %%%%%%%%%%%%%%%%%%%%%%%%%
+/CouleurNom {Orange} def
+/RayonVille 3 def               % Des points un peu plus gros pour les capitales
+V_allemagne_capitales_lander {
+	PlacePoint gsave YellowGreen fill grestore PlaceNom
+} forall
+
+showpage