Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
/findfont-enc {                    % => FontName Encoding
2 
  exch
3 
  findfont                         % => FontSize <Font>
4 
  dup length dict begin {
5 
    1 index /FID ne {
6 
      def
7 
    } {
8 
      pop pop
9 
    } ifelse
10 
  } forall
11 
  /Encoding 1 index def
12 
  currentdict
13 
  end
14 
 
15 
  /Font-Enc exch definefont        % => <Font>
16 
  exch pop
17 
} def
18 
 
19 
/font-ascender {                   % => <<Font>>
20 
  dup /FontBBox get 3 get 0
21 
  2 index /FontMatrix get transform
22 
  pop                              % => <<Font>> Ascender
23 
  %1 index font-descender sub       % => <<Font>> Ascender'
24 
  exch pop
25 
} def
26 
 
27 
/font-descender {                  % => <<Font>>
28 
  dup /FontBBox get 1 get 0
29 
  2 index /FontMatrix get transform
30 
  pop
31 
  exch pop
32 
  neg
33 
} def
34 
 
35 
/font-underline-pos {             % => <<Font>>
36 
  dup /FontInfo get               % => <<Font>> <<Info>>
37 
% some fonts (especially when you're using Adobe Distiller) do not contain /UnderlinePosition.
38 
  dup /UnderlinePosition known {
39 
    /UnderlinePosition get
40 
  } {
41 
    pop 2 px
42 
  } ifelse                        % => <<Font>> UP
43 
 
44 
 
45 
 
46 
  3 2 roll /FontMatrix get        % => <<Font>> O UP
47 
  transform                       % => 0 UPos
48 
  exch pop
49 
} def
50 
 
51 
/font-overline-pos {               % => <<Font>>
52 
  dup /FontBBox get 3 get          % => <<Font>> Top
53 
  0.8 mul
54 
 
55 
 
56 
  2 index /FontMatrix get
57 
  transform
58 
  exch pop
59 
  exch pop
60 
} def
61 
 
62 
/font-line-through-pos {           % => <<Font>>
63 
  dup /FontBBox get 3 get          % => <<Font>> Top
64 
  0.25 mul
65 
 
66 
 
67 
  2 index /FontMatrix get
68 
  transform
69 
  exch pop
70 
  exch pop
71 
} def