🚀 go-pugleaf

I just spent a few hours modifying my pbmtops filter to produce run length
encoded PostScript output.  The results are not spectacular for me -- yes,
the files are smaller, but the printing times are about the same.  But I'm
printing over the network.  If you were stuck with the serial line, this
would be a big win.

I've appended a sample program generated by my filter.  If anyone sees
ways to improve the code, please let me know, I'm not much of a PostScript
hacker.  This version of pbmtops will be distributed to comp.sources.misc
and expo.lcs.mit.edu sometime in October.
---
Jef

             Jef Poskanzer   jef@rtsg.ee.lbl.gov   ...well!pokey
                       Prerecorded for this time zone.

- - - - - - - - - -

%! t.ps

/rlestr1 1 string def
/rlestr 128 string def
/readrlestring {
  currentfile rlestr1 readhexstring pop  0 get
  dup 127 le {
    currentfile rlestr 0  4 3 roll  1 add  getinterval
    readhexstring  pop
  } {
    256 exch sub  dup
    currentfile rlestr1 readhexstring pop  0 get
    exch 0 exch 1 exch 1 sub { rlestr exch 2 index put } for
    pop  rlestr exch 0 exch getinterval
  } ifelse
} def

293 393 translate	% move to lower left corner of box
15 15 scale		% scale box

16 16 1			% width height bits/sample
[ 16 0 0 -16 0 16 ]	% transformation matrix
{ readrlestring }	% proc
image
1f000055543ffe7ffc3ffe7ffc3ffe7ffc8003c0018003c0018003c001aa
abffff
showpage