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.radio.ps,v 1.1 2005/12/18 07:21:37 Konstantin Exp $
2 
 
3 
/show-checked-circle-box {
4 
% render empty (unchecked) radio button
5 
  show-circle-box
6 
 
7 
% Get circle 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 circle radius
17 
  2 index get-width
18 
  6 div
19 
 
20 
 
21 
  0.25 setlinewidth
22 
 
23 
% render the black point in the button's center
24 
  newpath
25 
  arc
26 
  fill
27 
} def
28 
 
29 
/show-circle-box {
30 
% Get circle center coordinates
31 
  dup get-left
32 
  1 index get-right
33 
  add 2 div
34 
 
35 
  1 index get-top
36 
  2 index get-bottom
37 
  add 2 div
38 
 
39 
% calculate circle radius
40 
  2 index get-width
41 
  3 div
42 
 
43 
 
44 
  0.25 setlinewidth
45 
 
46 
% render the empty (unchecked) radio button
47 
  newpath
48 
  arc
49 
  stroke
50 
} def