MX-WebCam test 6 6 623 bytes 987 bytes 2004-08-30 00:00:00 2004-08-31 10:31:58 Oldes (oliva.david@seznam.cz) Just to test WebCamera in Flash

Requires RSWF 0.9.3 and newer

(mx-webcam.rswf)

background 0.0.0
obj_video: video
myVid: place obj_video [at 5x5 scale 2] ;default size is 160x120
doAction [
    webcams: Camera.names.length
    if webcams = 0 [
        test: "No WebCam found"
    ] else if webcams > 1 [
        System.showSettings(3)
    ]
    
    myCam: Camera.get()
    myCam.setMode(160  120 12) ;(width height fps)
    myVid.attachVideo(myCam)
    
    ;motion detection:
    x: 0
    motion: func[mode][
        test: reform [
            "move" x  mode
            "bandwidth:" myCam.bandwidth
        ]
        x++
    ]
    myCam.setMotionLevel(30 100) ;(sensitivity, timeout)
    myCam.onActivity: func[mode][motion(mode)]
]

fnt_Courier: Font [name "_typewriter" bold]
txt_test: EditText test 320x18 [ReadOnly border Font [fnt_Courier 11]]
place txt_test at 5x245
showFrame
end