Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
% $Header: /cvsroot/html2ps/postscript/vertical-align.ps,v 1.1 2005/12/18 07:21:39 Konstantin Exp $
2 
 
3 
/vertical-align-text-top {
4 
} def
5 
 
6 
/vertical-align-text-bottom {
7 
  1 index get-line-baseline neg
8 
  1 index get-baseline            % => Parent Child MaxBaseline Baseline
9 
 
10 
  2 copy ge {
11 
    pop
12 
    1 index put-baseline
13 
  } {
14 
    sub
15 
    2 index get-line
16 
    {
17 
      dup get-baseline
18 
      2 index sub
19 
      exch put-baseline
20 
    } forall
21 
    2 index get-line-baseline
22 
    add
23 
    2 index put-line-baseline     % => Parent Child
24 
  } ifelse
25 
} def
26 
 
27 
/vertical-align-super {
28 
  dup get-baseline 2 div
29 
  1 index put-baseline
30 
} def
31 
 
32 
/vertical-align-sub {
33 
  1 index get-line-baseline neg
34 
  1 index get-baseline
35 
  2 div
36 
  add
37 
  1 index put-baseline
38 
} def
39 
/vertical-align-top {
40 
} def
41 
/vertical-align-middle {
42 
  vertical-align-baseline
43 
 
44 
  dup get-default-baseline
45 
  1 index get-baseline
46 
  sub 2 div
47 
 
48 
  1 index get-baseline
49 
  add
50 
  1 index put-baseline
51 
} def
52 
 
53 
% TODO:
54 
/vertical-align-bottom {
55 
  1 index get-line-baseline neg
56 
  1 index get-baseline            % => Parent Child MaxBaseline Baseline
57 
 
58 
  2 copy ge {
59 
    pop
60 
    1 index put-baseline
61 
  } {
62 
    sub
63 
    2 index get-line
64 
    {
65 
      dup get-baseline
66 
      2 index sub
67 
      exch put-baseline
68 
    } forall
69 
    2 index get-line-baseline
70 
    add
71 
    2 index put-line-baseline     % => Parent Child
72 
  } ifelse
73 
} def
74 
/vertical-align-baseline {         % => Parent Child
75 
  1 index get-line-baseline neg
76 
  1 index get-baseline             % => Parent Child MaxBaseline Baseline
77 
 
78 
  2 copy ge {
79 
    pop
80 
    1 index put-baseline
81 
  } {
82 
    sub
83 
    2 index get-line
84 
    {
85 
      dup get-baseline
86 
      2 index sub
87 
      exch put-baseline
88 
    } forall
89 
    2 index get-line-baseline
90 
    add
91 
    2 index put-line-baseline     % => Parent Child
92 
  } ifelse
93 
} def