[REBOL] JPEG, GIF, and PNG dimensions Re:(4)

[strejcek]

 Sorry, folks.

I was a bit in a hurry, here is definitely correct version:

gifsize: func [
  gif [file!]
  /local x y data
][
  data: read/binary gif
  if none? find ["GIF89a" "GIF87a"] to-string copy/part data 6 [
    make error! "Not a gif file"
  ]
  x: data/7 + (256 * data/8)
  y: data/9 + (256 * data/10)
  reduce [x y]
] 

Regards,
Jan

--
Jan Strejcek
[EMAIL PROTECTED]