REVO2700videoGrabberTest @`>3  ULucida GrandecREVGeometryCachestackID1018 cREVGeneral debugObjectsstackfileversion2.7 Pglobal gMsgId on videoRefresh revVideoGrabIdle send "videoRefresh" to me in 10 milliseconds put the result into gMsgId end videoRefresh >3videoSettings\0ctomcdscsgchvideapplcsetvdigvdigusbvapplHnameUSB Video Class Videoxdnixdni@7OD7OHdnamBuilt-in iSight@OrOduid@vrct@@,mtrx332@clip use  plyfposn zptompdscsgpnvidecmprZpsetsptlavc1tprldrat@ cmfrapplFptompdscsgpnvideimag&pset m satrU shrpmglobal gMsgId

on videoRefresh

revVideoGrabIdle

send "videoRefresh" to me in 10 milliseconds

put the result into gMsgId

end videoRefresh

prevHandler videoRefreshscriptt

global gMsgId

on videoRefresh

revVideoGrabIdle

send "videoRefresh" to me in 10 milliseconds

put the result into gMsgId

end videoRefresh

cREVGeometryCacheIDs1208541091386101212085397944041006120900515846010181208541023191101112085395691131004120854152799210141208540872172100812085397295751005cREVGeometrycacheorder total8initVidewon mouseUp put the left of this stack + the left of grc "vidFrame" into vh1 -- put the top of this stack + the top of grc "vidFrame" into vv1 -- put vh1 + the width of grc "vidFrame" into vh2 put vv1 + the height of grc "vidFrame" into vv2 put vh1,vv1,vh2,vv2 into vidRect put the rect of grc "vidFrame" into tRect revInitializeVideoGrabber the short name of stack "videoGrabberTest", "QT", tRect revSetVideoGrabberRect tRect get the videoSettings of this cd revSetVideoGrabSettings "it" end mouseUp ,\2 Initialize cREVGeneral scriptChecksum WŚ):߳ handlerListmouseUp breakPointsscriptSelectionchar 531 to 530 revUniqueID 1208539569113 bookmarks tempScript prevHandlermouseUpscript

on mouseUp

put the left of this stack + the left of grc "vidFrame" into vh1 --

put the top of this stack + the top of grc "vidFrame" into vv1 --

put vh1 + the width of grc "vidFrame" into vh2

put vv1 + the height of grc "vidFrame" into vv2

put vh1,vv1,vh2,vv2 into vidRect

put the rect of grc "vidFrame" into tRect

revInitializeVideoGrabber the short name of stack "videoGrabberTest", "QT", tRect

revSetVideoGrabberRect tRect

get the videoSettings of this cd

revSetVideoGrabSettings "it"

end mouseUp

 closeVidew/on mouseUp revCloseVideoGrabber end mouseUp ,\2 Close Video cREVGeneralscriptChecksum3e_FL >R bookmarks revUniqueID 1208539729575 handlerListmouseUpscriptSelection char 34 to 33 prevHandlermouseUp tempScriptscript

on mouseUp

revCloseVideoGrabber

end mouseUp

 vidFrameKd3@ cREVGeneral revUniqueID 1208539794404 settingsewon mouseUp revVideoGrabDialog local vSettings revVideoGrabSettings "vSettings" set the videoSettings of this cd to vSettings revSetVideoGrabSettings "vSettings" end mouseUp -\6Change Settings cREVGeneralscriptChecksum,Ŀ$S" revUniqueID 1208540872172 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 181 to 180script

on mouseUp

revVideoGrabDialog

local vSettings

revVideoGrabSettings "vSettings"

set the videoSettings of this cd to vSettings

revSetVideoGrabSettings "vSettings"

end mouseUp

previewew9on mouseUp revPreviewVideo videoRefresh end mouseUp R4Preview video cREVGeneralscriptChecksum}/GtE%99G revUniqueID 1208541023191 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 44 to 43script

on mouseUp

revPreviewVideo

videoRefresh

end mouseUp

 stoppreviewewPglobal gMsgId on mouseUp revStopPreviewingVideo cancel gMsgId end mouseUp R2 Stop Preview cREVGeneralscriptChecksum5t~ x枇 bookmarks revUniqueID 1208541091386 handlerListmouseUpscriptSelection char 1 to 78 prevHandlermouseUp tempScript

global gMsgId

on mouseUp

revStopPreviewingVideo

cancel gMsgId

end mouseUp

script

global gMsgId

on mouseUp

revStopPreviewingVideo

cancel gMsgId

end mouseUp

RecordEwGon mouseUp get the effective filename of this stack set the itemdelimiter to slash delete item -1 of it ask file "Save video as..." with it & "/untitled.mov" as sheet if it is empty then exit mouseUp set the filetype to "TVODMooV" --make sure Mac OS knows what it is revRecordVideo it videoRefresh end mouseUp ^0 cREVGeneralscriptChecksum4 *ݫS0G" revUniqueID 1208541527992 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 213 to 278script"

on mouseUp

get the effective filename of this stack

set the itemdelimiter to slash

delete item -1 of it

ask file "Save video as..." with it & "/untitled.mov" as sheet

if it is empty then exit mouseUp

set the filetype to "TVODMooV" --make sure Mac OS knows what it is

revRecordVideo it

videoRefresh

end mouseUp

stopewOglobal gMsgId on mouseUp revStopRecordingVideo cancel gMsgId end mouseUp ^4Stop Recording cREVGeneralscriptChecksumHy 3PN@h bookmarks revUniqueID 1209005158460 handlerListmouseUpscriptSelection char 78 to 77 prevHandlermouseUp tempScriptscript

global gMsgId

on mouseUp

revStopRecordingVideo

cancel gMsgId

end mouseUp