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/width.ps,v 1.1 2005/12/18 07:21:39 Konstantin Exp $
2 
 
3 
/wc-apply {                        % => PW CW WC
4 
  dup /apply get exec
5 
} def
6 
 
7 
/wc-create-constant {              % => Value
8 
  <<
9 
    /type  /constant
10 
    /value 4 index
11 
    /apply {                       % => ... PW CW This
12 
      /value get
13 
      exch pop
14 
      exch pop
15 
    }
16 
    /apply-inverse {
17 
      pop pop
18 
    }
19 
  >>
20 
 
21 
  exch pop
22 
} def
23 
 
24 
/wc-create-fraction {              % => Value
25 
  <<
26 
    /type /fraction
27 
    /fraction 4 index
28 
    /apply {                       % => ... PW CW This
29 
      /fraction get
30 
      exch pop
31 
      mul
32 
    }
33 
    /apply-inverse {               % => ... PW CW This
34 
      /fraction get
35 
      dup 0 gt {
36 
        div exch pop
37 
      } {
38 
        pop pop pop 0
39 
      } ifelse
40 
    }
41 
  >>
42 
 
43 
  exch pop
44 
} def
45 
 
46 
/wc-create-none {
47 
  <<
48 
    /type /none
49 
    /apply {                       % => ... PW CW This
50 
      pop
51 
      exch pop                     % => ... CW
52 
    }
53 
    /apply-inverse {
54 
      pop pop
55 
    }
56 
  >>
57 
} def
58 
 
59 
/wc-is-fraction {                  % => WC
60 
  /type get /fraction eq
61 
} def