64 lines
1.3 KiB
PostScript
64 lines
1.3 KiB
PostScript
% $Header: /cvsroot/html2ps/postscript/box.input.check.ps,v 1.1 2005/12/18 07:21:37 Konstantin Exp $
|
|
|
|
/show-checked-check-box {
|
|
% render empty (unchecked) radio button
|
|
show-check-box
|
|
|
|
% Get check center coordinates
|
|
dup get-left
|
|
1 index get-right
|
|
add 2 div
|
|
|
|
1 index get-top
|
|
2 index get-bottom
|
|
add 2 div % => CX CY
|
|
|
|
% calculate check box size
|
|
2 index get-width
|
|
6 div % => CX CY R
|
|
|
|
2 index 1 index sub % => CX CY R L
|
|
2 index 2 index sub % => CX CY R L T
|
|
2 index 2 mul dup % => CX CY R L T H W
|
|
|
|
% render the checkmark (cross)
|
|
0.5 setlinewidth
|
|
|
|
% / cross part
|
|
4 copy
|
|
4 2 roll
|
|
newpath moveto rlineto stroke
|
|
|
|
% \ cross part
|
|
neg
|
|
4 2 roll 2 index sub
|
|
newpath moveto rlineto stroke
|
|
|
|
pop pop pop
|
|
} def
|
|
|
|
/show-check-box {
|
|
% Get check center coordinates
|
|
dup get-left
|
|
1 index get-right
|
|
add 2 div
|
|
|
|
1 index get-top
|
|
2 index get-bottom
|
|
add 2 div % => CX CY
|
|
|
|
% calculate check box size
|
|
2 index get-width
|
|
3 div % => CX CY R
|
|
|
|
2 index 1 index sub % => CX CY R L
|
|
2 index 2 index sub % => CX CY R L T
|
|
2 index 2 mul dup % => CX CY R L T H W
|
|
|
|
% render the empty (unchecked) radio button
|
|
0.25 setlinewidth
|
|
rectstroke
|
|
|
|
pop pop pop
|
|
} def
|