decimal

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

create image1
  image-size @ 8 + allot

: get-image1
  0  [""] /uffish/don/cheryl  u_open dup
  0< abort" Can't open file"
  image-size @  image1  2 pick  u_read
  image-size @ <> abort" Can't read file"
  
  image1 >image !
  image1 >image-row !
  image1 image-size @ + >image-end !

  u_close
;

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

' i1line is line

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

get-image1