home *** CD-ROM | disk | FTP | other *** search
/ OpenStep (Enterprise) / OpenStepENTCD.toast / OEDEV / USER.Z / nlpPrintPackage.ps < prev    next >
Text File  |  1996-09-09  |  2KB  |  48 lines
  1. %!
  2. %
  3. %    nlpPrintPackage.ps
  4. %    Application Kit
  5. %    Copyright (c) 1988-1996, NeXT Software, Inc.
  6. %    All rights reserved.
  7. %
  8.  
  9. /__NXdef{1 index where{pop pop pop}{def}ifelse}bind def
  10. /__NXbdef{1 index where{pop pop pop}{bind def}ifelse}bind def
  11. /_NXLevel2 systemdict /languagelevel known {languagelevel 2 ge}{false}ifelse __NXdef
  12. /_NXCombineArrays{
  13.     counttomark dup 2 add index dup length 3 -1 roll {
  14.         2 index length sub dup 4 1 roll 1 index exch 4 -1 roll putinterval exch
  15.     }repeat pop pop pop
  16. }__NXbdef
  17. /flushgraphics{}def
  18. /setwindowtype{pop pop}def
  19. /currentwindowtype{pop 0}def
  20. /setalpha{pop}def
  21. /currentalpha{1.0}def
  22. /hidecursor{}def
  23. /obscurecursor{}def
  24. /revealcursor{}def
  25. /setcursor{4 {pop}repeat}bind def
  26. /showcursor{}def
  27. /_NXImageString {/__NXImageString where{pop}{/__NXImageString 4000 string __NXdef}ifelse __NXImageString}__NXbdef
  28. /_NXDoImageOp{
  29.     3 dict begin /parr 5 array def 1 index{dup}{1}ifelse /chans exch def
  30.     chans 2 add 2 roll parr 0 chans getinterval astore pop
  31.     5 index 4 index mul 2 index{1 sub 8 idiv 1 add mul}{mul 1 sub 8 idiv 1 add}ifelse
  32.     4 index mul /totbytes exch def pop exch pop
  33.     gsave matrix invertmatrix concat 0.5 setgray 0 0 4 2 roll rectfill grestore
  34.     {0 1 chans 1 sub{parr exch get exec length totbytes exch sub /totbytes exch def}for totbytes 0 le{exit}if}loop end
  35. }__NXbdef
  36. /alphaimage{1 add _NXDoImageOp}def
  37. /_NXCalibratedImage{exch{array astore dup length true}{false}ifelse
  38.     8 -1 roll{NXCalibratedRGBColorSpace setcolorspace}if
  39.     8 dict dup 9 1 roll begin /ImageType 1 def /MultipleDataSources exch def
  40.     currentcolorspace 0 get /Indexed eq{pop /Decode[0 2 6 index exp 1 sub]def}
  41.     {2 mul dup array /Decode exch def 1 sub 0 1 3 -1 roll{Decode exch dup 2 mod put}for}ifelse
  42.     /DataSource exch def /ImageMatrix exch def 
  43.     /BitsPerComponent exch def /Height exch def /Width exch def end image}__NXbdef
  44. /_NXSetCMYKOrRGB where{pop}{
  45.     mark{systemdict /currentwindow get exec}stopped
  46.     {{pop pop pop setcmykcolor}}{{nxsetrgbcolor pop pop pop pop}}ifelse /_NXSetCMYKOrRGB exch def cleartomark
  47. }ifelse
  48.