On Mon, Mar 27, 2000, <[EMAIL PROTECTED]> wrote:
>Jan gifsize fixed:
>---
>gifsize: func [
> gif [file!]
> /local x y data
>][
> data: read/binary gif
> if none? find to-string ["GIF89a" "GIF87a"] copy/part data 6 [
> make error! "Not a gif file"
> ]
> x: data/7 + (256 * data/8)
> y: data/9 + (256 * data/10)
> return reduce [x y]
>]
Thanks. I've been perusing some docs on the JPEG spec, if I can figure
out how to extract the height & width of a JPEG, I'll post it to the
list. Apparently, it's not stored any place particularly convenient or
logical.
You'd think they'd just tuck it somewhere in the first 20 or 30 bytes
or so. It's not like this is a particularly esoteric piece of info.
Also has anyone else had problems getting Bo's random-read to work on
Macs? The 'skip file start' line just doesn't seem to be skipping.
.:Eric
