1Newsgroups: de.comp.os.linux
2Path: greenie!marvin.muc.de!ftp.space.net!stasys!sungy!brinkley.East.Sun.COM!newsworthy.West.Sun.COM!koriel!ames!nntp-server.caltech.edu!vixen.cso.uiuc.edu!howland.reston.ans.net!EU.net!Germany.EU.net!pophh!nordwest.germany.eu.net!uniol!caty.ol.sub.de!shlink.shn.com!wuff.sane.de!wuemaus!fritz
3From: fritz@wuemaus.franken.de (Fritz Elfert)
4Subject: Re: ghostscript und die Umlaute
5Message-ID: <1994Oct6.212441.1610@wuemaus.franken.de>
6Organization: Kommunikationsnetz Franken e.V.
7Date: Thu, 6 Oct 1994 21:24:41 GMT
8References: <CwxxB5.Dtx@hermes.hrz.uni-bielefeld.de> <CwyAAB.512@greenie.muc.de> <Cx0K48.s6@elbereth.thur.de> <Cx7Bst.AH4@lotte.sax.de>
9X-Newsreader: TIN [version 1.2 PL2]
10Lines: 117
11
12Heiko Schlittermann (heiko@lotte.sax.de) wrote:
13: Die urspr"ungliche Frage ging ja von a2ps aus.  Dem fehlte wirklich
14: nur der Schalter -8 (RTFMOM - RTFM once more.  Vor langer Zeit
15: gelesen, aber damals keine Umlaute gebraucht...)   Das schreibt dann
16: an diverse Stellen ein ISO*Encoding ins PostScript-Dokument und
17: das sz z.B. als \337  (wirklich 3 Zeichen).
18[....]
19: Soweit so gut.  Aber wenn ich nun hergehe, und gslp nutzt, um den das
20: sz enthaltenen Text in Postscript zu wandeln, fehlen die Umlaute
21: einfach (fehlen nicht ganz, Leerzeichen sind an ihrer Stelle.)
22
23: Ob da einfach nur einer fehlt, der von PostScript 'ne Ahnung hat und
24: gslp.ps "andert?
25Gut, �berredet ;-) ich hab's mal eben in den gslp eingebaut. Hier ist
26ein context-diff vom gslp der GhostScript-3.0-Distribution auf mein
27neues gslpiso.ps Die Reencode-routine hab ich etwas modifiziert, denn
28das Original hat einfach den ISO-encodeten-Font �ber den normalen
29Font dr�bergebraten (nicht ganz die feine Englische...) bei mir wird
30jeweils ein neuer Font mit "ISO-" vornedran erzeugt:
31==========================================================================
32*** gslp.ps	Thu Jul 28 02:40:00 1994
33--- gslpiso.ps	Thu Oct  6 22:09:03 1994
34***************
35*** 45,53 ****
36  lpdict begin
37
38  % Define the initial values of the printing parameters.
39
40  /BodyFont null def		% use default
41    /defaultBodyFont
42!     { /Courier findfont Landscape { 7 } { 10 } ifelse scalefont } def
43  /Columns 1 def
44  /DetectFileType false def
45--- 45,63 ----
46  lpdict begin
47
48+ % Iso-Latin1-Encoding
49+ /ISOfindfont {
50+   dup 100 string cvs (ISO-) exch concatstrings cvn exch
51+   findfont dup maxlength dict begin
52+     {1 index/FID ne{def}{pop pop}ifelse}forall
53+     /Encoding ISOLatin1Encoding def
54+     currentdict
55+   end definefont
56+ } def
57+
58  % Define the initial values of the printing parameters.
59
60  /BodyFont null def		% use default
61    /defaultBodyFont
62!     { /Courier ISOfindfont Landscape { 7 } { 10 } ifelse scalefont } def
63  /Columns 1 def
64  /DetectFileType false def
65***************
66*** 62,66 ****
67  /HeadingFont null def		% use default
68    /defaultHeadingFont
69!     { /Courier-Bold findfont 10 scalefont } def
70  /Landscape false def
71  /MarginBottom 36 def		% 1/2"
72--- 72,76 ----
73  /HeadingFont null def		% use default
74    /defaultHeadingFont
75!     { /Courier-Bold ISOfindfont 10 scalefont } def
76  /Landscape false def
77  /MarginBottom 36 def		% 1/2"
78***************
79*** 164,168 ****
80   { OutFile null ne
81      { exch wosp
82!       dup /FontName get wosp OutFile ( findfont) writestring
83        /FontMatrix get 0 get 1000 mul round cvi wosp
84        OutFile ( scalefont def\n) writestring
85--- 174,178 ----
86   { OutFile null ne
87      { exch wosp
88!       dup /FontName get wosp OutFile ( ISOfindfont) writestring
89        /FontMatrix get 0 get 1000 mul round cvi wosp
90        OutFile ( scalefont def\n) writestring
91***************
92*** 329,333 ****
93        1 sub
94      } loop
95!    arg exch 0 exch getinterval dup cvn findfont
96     exch arg exch anchorsearch pop pop cvr scalefont
97   } def
98--- 339,343 ----
99        1 sub
100      } loop
101!    arg exch 0 exch getinterval dup cvn ISOfindfont
102     exch arg exch anchorsearch pop pop cvr scalefont
103   } def
104***************
105*** 406,410 ****
106  /-n { pop } def		% ignore
107  /-o { more } def	% ignore
108! /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
109  /-P { pop } def		% ignore
110  /-q { /Noisy false def   more } def
111--- 416,422 ----
112  /-n { pop } def		% ignore
113  /-o { more } def	% ignore
114! /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring
115!   /ISOfindfont dup wosp load wosp OutFile (def) writestring
116! } def
117  /-P { pop } def		% ignore
118  /-q { /Noisy false def   more } def
119==========================================================================
120
121Ciao
122 -Fritz
123--
124Fritz Elfert
125Wuerzburg/Germany                           email: fritz@wuemaus.franken.de
126---------------------------------------------------------------------------
127Einen Brief mit der Deutschen Bundespost verschicken heisst ihn aufzugeben.
128
129