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/box.input.check.ps,v 1.1 2005/12/18 07:21:37 Konstantin Exp $
2 
 
3 
/show-checked-check-box {
4 
% render empty (unchecked) radio button
5 
  show-check-box
6 
 
7 
% Get check center coordinates
8 
  dup get-left
9 
  1 index get-right
10 
  add 2 div
11 
 
12 
  1 index get-top
13 
  2 index get-bottom
14 
  add 2 div                        % => CX CY
15 
 
16 
% calculate check box size
17 
  2 index get-width
18 
  6 div                            % => CX CY R
19 
 
20 
  2 index 1 index sub              % => CX CY R L
21 
  2 index 2 index sub              % => CX CY R L T
22 
  2 index 2 mul dup                % => CX CY R L T H W
23 
 
24 
% render the checkmark (cross)
25 
  0.5 setlinewidth
26 
 
27 
% / cross part
28 
  4 copy
29 
  4 2 roll
30 
  newpath moveto rlineto stroke
31 
 
32 
% \ cross part
33 
  neg
34 
  4 2 roll 2 index sub
35 
  newpath moveto rlineto stroke
36 
 
37 
  pop pop pop
38 
} def
39 
 
40 
/show-check-box {
41 
% Get check center coordinates
42 
  dup get-left
43 
  1 index get-right
44 
  add 2 div
45 
 
46 
  1 index get-top
47 
  2 index get-bottom
48 
  add 2 div                        % => CX CY
49 
 
50 
% calculate check box size
51 
  2 index get-width
52 
  3 div                            % => CX CY R
53 
 
54 
  2 index 1 index sub              % => CX CY R L
55 
  2 index 2 index sub              % => CX CY R L T
56 
  2 index 2 mul dup                % => CX CY R L T H W
57 
 
58 
% render the empty (unchecked) radio button
59 
  0.25 setlinewidth
60 
  rectstroke
61 
 
62 
  pop pop pop
63 
} def