home *** CD-ROM | disk | FTP | other *** search
/ Kids Cube / 1_Art.iso / pep / psbits.pro < prev    next >
Text File  |  1992-09-21  |  685b  |  11 lines
  1. /s0 save def /dumpDict 15 dict def /dump { dumpDict begin /height
  2. exch def /width exch def /hStr 1000 string def /wStr 1000 string
  3. def /sStr 1000 string def /hexD { currentfile hStr 0 currentfile
  4. token pop getinterval readhexstring pop } def /solid { sStr 0
  5. currentfile token pop getinterval } def /wSpace { wStr 0 currentfile
  6. token pop getinterval } def /initStr { /len exch def /val exch
  7. def /str exch def 0 1 len {str exch val put} for } def {} settransfer
  8. sStr 0 999 initStr wStr 255 999 initStr width height 1 [1 0 0
  9. 1 0 0] {{ currentfile read pop dup dup 72 eq { pop pop hexD exit
  10. } if 87 eq { pop wSpace exit } if 66 eq { solid exit } if } loop
  11. } image end } bind def