diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
| commit | e463eb40363ff4c68b1d903f4e0cdd0ac1c5977f (patch) | |
| tree | d5e9f57c28f026cb21de3bd77cc10cd7f64aaa85 /sys/lib/ghostscript/caption.ps | |
| parent | b41b9034225ab3e49980d9de55c141011b6383b0 (diff) | |
Import sources from 2011-03-30 iso image - sys/lib
Diffstat (limited to 'sys/lib/ghostscript/caption.ps')
| -rwxr-xr-x | sys/lib/ghostscript/caption.ps | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/sys/lib/ghostscript/caption.ps b/sys/lib/ghostscript/caption.ps new file mode 100755 index 000000000..4e01fcc15 --- /dev/null +++ b/sys/lib/ghostscript/caption.ps @@ -0,0 +1,56 @@ +%! +% Copyright (C) 1995 Aladdin Enterprises. All rights reserved. +% +% This software is provided AS-IS with no warranty, either express or +% implied. +% +% This software is distributed under license and may not be copied, +% modified or distributed except as expressly authorized under the terms +% of the license contained in the file LICENSE in this distribution. +% +% For more information about licensing, please refer to +% http://www.ghostscript.com/licensing/. For information on +% commercial licensing, go to http://www.artifex.com/licensing/ or +% contact Artifex Software, Inc., 101 Lucas Valley Road #110, +% San Rafael, CA 94903, U.S.A., +1(415)492-9861. + +% $Id: caption.ps,v 1.4 2002/02/21 21:49:28 giles Exp $ +% Add a "caption" to the bottom of each page. +/captionsize 20 def +/caption + { /Helvetica //captionsize selectfont + (Printed by Aladdin's XXYYZZ) show + /Symbol //captionsize selectfont + (\324) show % trademarkserif + /Helvetica //captionsize selectfont + ( product) show + } bind def + +10 dict begin +gsave + initgraphics + clippath pathbbox + pop exch 36 add /by exch def + % We can't use stringwidth, so we have to show and measure. + gsave + 0 0 0 0 rectclip + 0 0 moveto caption currentpoint pop /bw exch def + grestore + add bw sub 2 div /bx exch def + % We don't have the font bbox available, so we guess. + /bh captionsize 1.05 mul def +grestore +/showcaption + { gsave + initgraphics + //bx 9 sub //by 9 sub //bw 18 add //bh 18 add + 1 setgray 4 copy rectfill 0 setgray 1.5 setlinewidth rectstroke + //bx //by moveto //caption exec + grestore + } bind def +<< /EndPage [ + /showcaption load /exec load + currentpagedevice /EndPage get /exec load + ] cvx +>> setpagedevice +end |