Kapitälchen 2


%!PS-Adobe-1.0
%%Creator: Holger Gehringer
%%Title: Beispiel fuer Kapitaelchen 2
%%CreationDate: Mo, 23.11.1998
%%DocumentMedia: A4 595 842 0 () ()
%%Orientation: Portrait
%%Pages: (atend)
%%DocumentFonts: Times-Roman Helvetica
%%EndComments

% Dieses Programm definiert eine Prozedur zur Ausgabe von Kapitaelchen (engl.:
% small caps), die in der Groesse dem aktuellen Font angepasst sind.

/Char 1 string def

/SCDict 3 dict def

/SCShow
{ SCDict begin
    gsave
    currentfont
    [.9 0 0 FindSCScale 0 0]
    makefont setfont
    show
    currentpoint
    grestore
    moveto
  end
} def

SCDict begin
  /FindSCScale
  { gsave
    newpath
    0 0 moveto
    (X) true charpath
    flattenpath pathbbox
    /Capheight exch def
    pop pop pop
    newpath
    0 0 moveto
    (x) true charpath
    flattenpath pathbbox
    /Xheight exch def
    pop pop pop
    grestore
    Xheight Capheight
    Xheight sub 3 div add
    Capheight div
  } def
end

/KtShow
{ /ConvStr exch def
  /endcount ConvStr length def
  0 1 endcount 1 sub
  { /counter exch def
    /CharNum ConvStr counter get def
    CharNum 97 ge CharNum 122 le and
    { /CharNum CharNum 32 sub def
      Char 0 CharNum put
      Char SCShow
    }
    { Char 0 CharNum put
      Char show
    } ifelse
  } for
} def

%%EndProlog

%%Page: 1 1
/Times-Roman findfont 18 scalefont setfont

72 700 moveto
(To read means to obtain Meaning from Words, and) KtShow

72 700 20 sub moveto
(THAT QUALITY WHICH) KtShow
( enables words) KtShow

72 700 40 sub moveto
(to be read easily, quickly, and accurately.) KtShow

72 700 70 sub moveto
(John C. Tarr) KtShow

72 500 moveto
(Sein oder Nichtsein, ) KtShow
72 480 moveto
(das ist hier die Frage.) KtShow
72 450 moveto
(William Shakespeare) KtShow

showpage

%%Trailer
%%Pages: 1


Vorschau:

Download PostScript-File

© Holger Gehringer, Dezember 1998