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=0000000000000000000000000000000000000000;hp=db0d64191d99a37f48abb9ec940379804dc672a8;hb=59f7f8f71f692a12e6cb0b0588274a5ba1489fd4;hpb=6d8993eab3c9b20bf653fdc7a60ee57ab5f4256e diff --git a/cartes/32U/postscript/carte1_JG_Distiller.ps b/cartes/32U/postscript/carte1_JG_Distiller.ps deleted file mode 100644 index db0d641..0000000 --- a/cartes/32U/postscript/carte1_JG_Distiller.ps +++ /dev/null @@ -1,244 +0,0 @@ -%!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 -(C:/Users/Jürgen/Desktop/carte1/carte1/noms-iles.ps) run -(C:/Users/Jürgen/Desktop/carte1/carte1/noms-fleuves.ps) run - -% ------------------------------------------------------------------------------ -/Pas 1 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 - -/concatstrings { - exch dup length - 2 index length add string - dup dup 4 2 roll copy length - 4 -1 roll putinterval -} bind def - -%% PlacePoint et PlaceNom ------------------------------------------------------ -%% [e n (nom) angle] PlacePoint ensuite PlaceNom récupère ce qu'il lui faut dans -%% dictionnaire placedict -%% -%% Usage : [e n (nom) pos (proc)] PlacePoint .... PlaceNom -%% Le cinquième argument est facultatif.... - -/placedict 10 dict def -placedict /mtrx matrix put - -/PlacePoint { - placedict begin - /argv exch def /argn argv length def - argv aload pop - /proc (Place_Defaut) def - argn 4 gt { (Place_) exch concatstrings /proc exch def } if - /pos exch def /nom exch def - /Y exch def /X exch def - newpath - /savematrix mtrx currentmatrix def - X Y translate RayonDisque dup scale - 0 0 1 0 360 arc - savematrix setmatrix - end -} def - -/PlaceNom { - placedict begin - pos -1 gt { - /savematrix mtrx currentmatrix def - X Y translate - %% Dimension (largeur) du nom ------------------------- - nom stringwidth pop /wx exch def - %% ---------------------------------------------------- - proc cvx exec - %% ---------------------------------------------------- - savematrix setmatrix - } if - end -} def - -/Place_Defaut_Position { - pos cos LabelOffset mul /X exch def - pos sin LabelOffset mul /Y exch def - X 0 gt { - %% Nom à droite - X Y HauteurCaractere 2 div sub moveto - } { - X 0 lt { - %% Nom à gauche - X wx sub Y HauteurCaractere 2 div sub moveto - } { - Y 0 gt { - %% Nom au dessus - X wx 2 div sub Y moveto - } { - %% Nom en dessous - X wx 2 div sub Y HauteurCaractere sub moveto - } ifelse - } ifelse - } ifelse -} def - -/Place_Defaut { - Place_Defaut_Position - %% Présentation du nom -------------------------------- - 0.7 setgray nom show - CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show -} def - -/Place_Centering { - wx 2 div neg wx 2 div neg rmoveto - %% Présentation du nom -------------------------------- - 0.7 setgray nom show - CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show -} def - -/Place_Rotate { - pos cos 0 ge { - pos rotate - LabelOffset HauteurCaractere 2 div neg moveto - } { - pos 180 sub rotate - LabelOffset wx add neg HauteurCaractere 2 div neg moveto - } ifelse - %% Présentation du nom -------------------------------- - 0.7 setgray nom show - CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show -} def - -/Place_RotateCentering { - pos rotate wx 2 div neg HauteurCaractere 2 div neg moveto - %% Présentation du nom -------------------------------- - 0.7 setgray nom show - CouleurNom wx neg 0.65 sub 0.65 rmoveto nom show -} 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 saale mosel weser ems main] { - { Construction DarkBlue 0.25 setlinewidth stroke} forall -} forall - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 8 scalefont ISOEncode setfont -/HauteurCaractere 6 def -/CouleurNom {DarkGreen} def -/RayonDisque 2 def -/LabelOffset 5 def -[V_hollande V_belgique V_luxembourg V_france V_suisse V_autriche -V_tchequie V_pologne] { - { PlacePoint gsave DarkGreen fill grestore PlaceNom} forall -} forall - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Villes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 8 scalefont ISOEncode setfont -/HauteurCaractere 6 def -/CouleurNom {DarkRed} def -/RayonDisque 2 def -/LabelOffset 5 def -V_allemagne { PlacePoint gsave DarkRed fill grestore PlaceNom} forall - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Capitales %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 14 scalefont ISOEncode setfont -/HauteurCaractere 10 def -/CouleurNom {Orange} def -/RayonDisque 3 def % Des points un peu plus gros pour les capitales -/LabelOffset 6 def -V_allemagne_capitales_lander { - PlacePoint gsave Orange fill grestore PlaceNom -} forall - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Iles (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 6 scalefont ISOEncode setfont -/HauteurCaractere 5 def -/CouleurNom {DarkBlue} def -/RayonDisque 3 def -/LabelOffset 5 def -I_allemagne { - PlacePoint PlaceNom -} forall - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Rivières (Noms) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/Helvetica-Bold findfont 6 scalefont ISOEncode setfont -/HauteurCaractere 5 def -/CouleurNom {DarkBlue} def -R_allemagne { - PlacePoint PlaceNom -} forall - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Autres annotations %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -/mo /moveto load def -/Helvetica-Bold findfont 20 scalefont setfont -/shm { gsave DarkBlue show grestore } def -90.412 368.266 mo (Nordsee)shm -630.412 418.266 mo (Ostsee)shm - - -showpage