| 1 |
lars |
1 |
% $Header: /cvsroot/html2ps/postscript/geometry.ps,v 1.1 2005/12/18 07:21:38 Konstantin Exp $
|
|
|
2 |
|
|
|
3 |
/inside-rectangle { % => X Y L T W H
|
|
|
4 |
5 index 4 index sub % => X Y L T W H X-L
|
|
|
5 |
dup 0 gt % => X Y L T W H X-L X-L>0
|
|
|
6 |
exch 3 index lt and % => X Y L T W H (X-L<W & X-L>0)
|
|
|
7 |
5 index 4 index sub neg % => X Y L T W H (X-L<W & X-L>0) -(Y-T)
|
|
|
8 |
dup 0 gt % => X Y L T W H (X-L<W & X-L>0) -(Y-T) -(Y-T)>0
|
|
|
9 |
exch 3 index lt and % => X Y L T W H (X-L<W & X-L>0) (-(Y-T)>0 & -(Y-T)<H)
|
|
|
10 |
and % => X Y L T W H (X-L<W & X-L>0) & (-(Y-T)>0 & -(Y-T)<H)
|
|
|
11 |
7 1 roll
|
|
|
12 |
pop pop
|
|
|
13 |
pop pop pop pop
|
|
|
14 |
} def
|
|
|
15 |
|
|
|
16 |
/inside-rectangle-border { % => X Y L T W H
|
|
|
17 |
5 index 4 index sub % => X Y L T W H X-L
|
|
|
18 |
dup 0 ge % => X Y L T W H X-L X-L>0
|
|
|
19 |
exch 3 index le and % => X Y L T W H (X-L<W & X-L>0)
|
|
|
20 |
5 index 4 index sub neg % => X Y L T W H (X-L<W & X-L>0) -(Y-T)
|
|
|
21 |
dup 0 ge % => X Y L T W H (X-L<W & X-L>0) -(Y-T) -(Y-T)>0
|
|
|
22 |
exch 3 index le and % => X Y L T W H (X-L<W & X-L>0) (-(Y-T)>0 & -(Y-T)<H)
|
|
|
23 |
and % => X Y L T W H (X-L<W & X-L>0) & (-(Y-T)>0 & -(Y-T)<H)
|
|
|
24 |
7 1 roll
|
|
|
25 |
pop pop
|
|
|
26 |
pop pop pop pop
|
|
|
27 |
} def
|