REBOL [
    Title: "REBOL Vision"
    Date: 22-May-2001
    Version: 1.0.1
    File: %rebcam.r
    Author: "Allen Kamp"
    Purpose: {Fetch Webcam image at a specified refresh interval.}
    Email: allenk@powerup.com.au
    Category: [view vid net 2]
]

main-face: layout [
    origin 0 size 640x480
    webcam: image 640x480 make image! 640x480 rate 0:05 top center font-size 16
]

webcam/feel: make webcam/feel [
    engage: func [f a e] [
        f/text: "Updating..."
        show f
        f/image: load http://demo.rebol.net/webcam/webcam.jpg
        f/text: none
        show f
    ]
]

view main-face