home *** CD-ROM | disk | FTP | other *** search
- % intprocs.ps -- register one of the internal procsets
- % the name of the procset is expected to be on the stack
- % -- see resource.map
- 4 dict begin
- /procsetname exch def
- /n procsetname _regprocc def
- /d n dict def
- d begin
- procsetname _regproc
- currentdict
- end
- procsetname exch /ProcSet defineresource pop
- end
-