home *** CD-ROM | disk | FTP | other *** search
/ Altsys Virtuoso 2.0K / virtuoso_20k.iso / DemoApps / Graphics / Viewers / Movie / Source / wraps.psw < prev   
Encoding:
Text File  |  1994-06-08  |  568 b   |  20 lines
  1. // wraps.psw - PostScript wrappers
  2.  
  3. defineps PSWtext(double width, height; char *text; int num)
  4.     1 setgray
  5.     /Times-Italic 14 selectfont
  6.     /str 20 string def
  7.     5 19 moveto (text) show
  8.     /Times-Roman 14 selectfont
  9.     5 5 moveto width cvi str cvs show ( ) show height cvi str cvs show
  10.     num str cvs dup stringwidth pop width 5 sub exch sub 5 moveto show
  11. endps
  12.  
  13. defineps PSWframe(double width, height; int num)
  14.     1 setgray
  15.     /Times-Roman 14 selectfont
  16.     /str 20 string def
  17.     num str cvs dup stringwidth pop width 5 sub exch sub 5 moveto show
  18. endps
  19.  
  20.