🚀 go-pugleaf

In early May, I posted a question about using postscript to read and
display an external file in TIFF format. Ken Sharp was brilliant and
kind enough to post his code to do just that. I have finally gotten
around to attempting to implement it and am able to prevent it from
erroring out but no image is displayed. This happens with all the TIFF
files I have tried.

Here's how I'm calling Ken's function:

300 300 500 500 (clouds.TIF) TiffPrint
showpage

And here is the debug output:

(Tiff file is Intel format)
NewSubFileType 2
ImageWidth 850
ImageLength 1100
BitsPerSample 1
Compression 32773
PhotometricInterpretation 0
FillOrder 1
StripOffsets 338
Orientation 1
SamplesPerPixel 1
RowsPerStrip 1100
StripByteCounts 28743
XResolution 100.0
YResolution 100.0
PlanarConfiguration 1
Group3Options 0
ResolutionUnit 2
PageNumber 0
Software 65 70 80 76 32 71 104 111 115 116 115 99 114 105 112 116 32
56 46 48 48
 0
DateTime 50 48 48 51 58 48 53 58 50 54 32 48 48 58 48 55 58 52 56 0
NewSubFileType 2
ImageWidth 850
ImageLength 1100
BitsPerSample 1
Compression 32773
PhotometricInterpretation 0
FillOrder 1
StripOffsets 29412
Orientation 1
SamplesPerPixel 1
RowsPerStrip 1100
StripByteCounts 34586
XResolution 100.0
YResolution 100.0
PlanarConfiguration 1
Group3Options 0
ResolutionUnit 2
PageNumber 1
Software 65 70 80 76 32 71 104 111 115 116 115 99 114 105 112 116 32
56 46 48 48 0
DateTime 50 48 48 51 58 48 53 58 50 54 32 48 48 58 48 55 58 52 57 0
NewSubFileType 2
ImageWidth 850
ImageLength 1100
BitsPerSample 1
Compression 32773
PhotometricInterpretation 0
FillOrder 1
StripOffsets 64328
Orientation 1
SamplesPerPixel 1
RowsPerStrip 1100
StripByteCounts 11305
XResolution 100.0
YResolution 100.0
PlanarConfiguration 1
Group3Options 0
ResolutionUnit 2
PageNumber 2
Software 65 70 80 76 32 71 104 111 115 116 115 99 114 105 112 116 32
56 46 48 48 0
DateTime 50 48 48 51 58 48 53 58 50 54 32 48 48 58 48 55 58 53 48 0
(Tiff dictionary)
PageNumber (--nostringval--)
StripOffsets (--nostringval--)
LastLength (20)
YResolution (--nostringval--)
ImageLength (--nostringval--)
LastOffset (64300)
StripByteCounts (--nostringval--)
ImageWidth (--nostringval--)
Orientation (--nostringval--)
ResolutionUnit (--nostringval--)
LastTag (306)
PhotometricInterpretation (--nostringval--)
RowsPerStrip (--nostringval--)
DateTime (--nostringval--)
SavePos (64240)
Group3Options (--nostringval--)
Compression (--nostringval--)
SamplesPerPixel (--nostringval--)
FillOrder (--nostringval--)
BitsPerSample (--nostringval--)
LastArray (--nostringval--)
PlanarConfiguration (--nostringval--)
NewSubFileType (--nostringval--)
Software (--nostringval--)
XResolution (--nostringval--)
LastType (2)
-dict-
(display image now)

If Ken or anyone else who might have used this code to do this can see
what I'm doing wrong and can let me know, I would GREATLY appreciate
it.