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
On 5 May, 19:54, Bruce McFarling <agil...@[EMAIL PROTECTED]
> wrote:
> On May 1, 8:45 pm, Frank <fjru...@[EMAIL PROTECTED]
> wrote:
>
> > 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
>
> HEX
> : >< ( $aabb -- $bbaa ) DUP FF00 AND 8 RSHIFT >R FF AND 8 LSHIFT R>
> OR ;
> DECIMAL
>
> ... seems to work in hForth for CP/M.
|
