#? Load and display a sample image demo

(libload "libimage/image-io")

(de show-image (f)
  (let ((image (image-read-rgb f)))
    (when (not window) 
      (setq window (x11-window 10 10 (idx-dim image 1) (idx-dim image 0) f)))
      (rgb-draw-matrix 0 0 image))))

(show-image (concat-fname lushdir "lsh/libimage/demos/sample.jpg"))

