Script Library: rebcam.r

Script Library: 1249 scripts

rebcam.r

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
    library: [
        level: 'intermediate 
        platform: none 
        type: none 
        domain: [GUI other-net] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

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

Notes

rebcam.r has a discussion thread. Posts: 18. Most recent: 5-Aug
email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(allenk:powerup:com:au)