TIFF in Forth

[Howerd]

Hi Forthers,

Does any one have any TIFF ( Tag Image File Format ) code written in
Forth?
I'm investigating TIFF for a potential client, so any help would be
appreciated,

TIA

Howerd

[Frank]

Should you have to write it yourself try this resource:
http://partners.adobe.com/public/developer/en/tiff/TIFF6.pdf

Frank

[Howerd]

Hi Frank,

Thanks for the link...

I've made a start on tiff.f - so far it just displays the file header
information, without displaying an image yet.
I've posted it on my website in case anyone is interested, or wants to
finish it ;)

http://www.inventio.co.uk/tiff.f

Also http://www.inventio.co.uk/tiff.zip has tiff.f and two test tiff
files.

Regards

Howerd

[Frank]

I have downloaded your file but have a few problem getting it to run.
I am using Win32Forth, what are you running? Please tell me what this
does: 'if >< then'. It is the >< I do not understand. Found around
line ~ 32.

Frank

[Howerd]

Hi Frank,

I am using swiftForth :
>< swaps the bottom two bytes on the stack
hex 1122 >< . 2211

Regards

Howerd

[Bruce McFarling]

HEX
: >< ( $aabb -- $bbaa ) DUP FF00 AND 8 RSHIFT >R FF AND 8 LSHIFT R>
OR ;
DECIMAL

... seems to work in hForth for CP/M.

[Howerd]

Hi Frank & All,

I've uploaded a new version of tiff.f and tiff.zip which use Forth
blocks instead of raw Windows file access. This is so that it can read
files that are larger than the available memory.

Its still written for SwiftForth, so it won't run under Win32Forth
without some changes, mostly due to display words such as GET-XY being
called getxy etc...

Just a comment to the Forth standards team : could you define standard
names for the display words such as GET-XY? Or has this already
happened?

The files are available here, as before :

http://www.inventio.co.uk/tiff.f

Also http://www.inventio.co.uk/tiff.zip has tiff.f and two test tiff
files.

Regards

Howerd