----- Original Message ----- From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, March 28, 2000 8:59 AM Subject: [REBOL] JPEG, GIF, and PNG dimensions Re:(3) > 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 > Hi Eric, I have a problem with random-read on large files, when using the binary refinement. It crashes on large files on my system, in Win98, Win2000 and Beos. It appears the cause of the problem is open/binary/direct combined with a large skip. I have reported this to feedback. Allen K >
