' DENSO Robot Imaging Library Sample No.3

Sub Main
	cao.Controllers.clear
	Set Vis = Cao.AddController("cv", "CaoProv.OpenCV", "", "")
	
	Set rawImg = Vis.AddFile("Cam1", "ID=1")

	' VarsPanel等でカメラ画像を表示するためにVars変数(101)へ代入
	Do
		Vars(101).Value = rawImg.Value 
		EXT.Delay(100)
	Loop
End Sub