home *** CD-ROM | disk | FTP | other *** search
- // wraps.psw - PostScript wrappers
-
- defineps PSWpreloading(double width, height)
- 0 setgray
- 0 0 width height rectfill
- 1 setgray
- /Helvetica-BoldOblique 18 selectfont
- (preLoading...) dup stringwidth pop 2 div neg
- width 2 div add height 2 div moveto show
- /Helvetica 7 selectfont
- 7 7 moveto (fine print : technically, this is cheating) show
- endps
-