home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / SourceCode / Palettes / PSAction / PSActionExample / PSActionWrap.psw < prev   
Encoding:
Text File  |  1993-07-11  |  426 b   |  20 lines
  1. defineps DPSgetname(DPSContext ctxt | char *str)
  2.     dup length string cvs str
  3. endps
  4.  
  5. defineps getType(DPSContext ctxt | char *str)
  6.     dup type dup length string cvs str
  7. endps
  8.  
  9. defineps eraseRect(DPSContext ctxt; float gray)
  10.     currentgray gray setgray clippath fill setgray
  11. endps
  12.  
  13. defineps saveState(DPSContext ctxt)
  14.     userdict /saveToken save put
  15. endps
  16.  
  17. defineps restoreState(DPSContext ctxt)
  18.     userdict /saveToken get restore
  19. endps
  20.