#!/usr/bin/lush @@
  (libload (concat-fname lushdir "lsh/lushenv"))
  (libload "libimage/image-io")
  (libload "libimage/rgbaimage")
  (setq window (x11-window 1 1 640 480 "Slide Show"))
  (while t
    (each ((f (cdr argv)))
      (rgb-draw-matrix 
       0 0 (rgbaim-resize (image-read-rgba f) (xsize) (ysize) 0))
      (sleep 4)))

This script, when called from the shell prompt with a list of image files as arguments will show each picture for 4 seconds.

  (ogre)
  (de coucou (c) (printf "coucou\n"))
  (de ouch (c) (printf "OUCH!\n"))
  (new autowindowobject 10 10 () () "ouch" 
    (new column
      (new stdbutton "click me" coucou)
      (new stdbutton "don't click me" ouch)))

;; draw a teapot at x,y,z with angles theta,phi,rho
(de teapot(x y z theta phi rho)
    ((-float-) x y z theta phi rho)
    (let ((mat (float-matrix 4)))
      (glPushMatrix)
      (glTranslatef x y z)
      (glrotatef theta phi rho 1)
      (mat 0 0.1745) (mat 1 0.01175) (mat 2 0.01175) (mat 3 1.0)
      (glMaterialfv @GL_FRONT @GL_AMBIENT mat)
      (mat 0 0.61424) (mat 1 0.04136) (mat 2 0.04136)       
      (glMaterialfv @GL_FRONT @GL_DIFFUSE mat)
      (mat 0 0.727811) (mat 1 0.626959) (mat 2 0.626959)
      (glMaterialfv @GL_FRONT @GL_SPECULAR mat)
      (glMaterialf  @GL_FRONT @GL_SHININESS (* 0.6 128.0))
      (glColor3f 1 1 1)
      (glut-solid-teapot 1.0)
      (glPopMatrix)))

  (libload "video4linux/v4l")
  (new-window)      ; open graphic window
  (setq image (ubyte-matrix 240 320 3))  ; allocate RGB image
  (setq video-device (new v4ldevice "/dev/video" "NTSC" 1 320 240))
  (while t
    (==> video-device grab-into-rgb image)  ; grab frame into image
    (rgb-draw-matrix 0 0 image))            ; display image in window