decimal

512  image-width !
480 image-height !
image-width @ image-height @ * image-size !

create image2
  image-size @ 8 + allot

: get-image2
  0  [""] /uffish/don/dh/don2H.512x480  u_open dup
  0< abort" Can't open file"
  image-size @  image2  2 pick  u_read
  image-size @ <> abort" Can't read file"
  
  image2 >image !
  image2 >image-row !
  image2 image-size @ + >image-end !

  u_close
;

: i2line
\  image-column @ 1+ image-width @ mod image-column !
  iline
  next-row
\  1 image-color +!
;

' i2line is line

: itest
  fb_height 0 do
    0 i  fb_width i line
  loop
;

get-image2