
21-92
Example
VISSCREEN 1,0,1 'Instantaneously draws on drawing screen 0.
VISCLS 0 '
WINDMAKE R,1,512,480,0,2 'Sets window 1 to rectangle.
CAMIN 1 'Obtains a camera image from the storage memory.
VISWORKPLN 0 'Designates an object to storage memory 0.
SHCIRCLE 1,0,0,30,128,1 'Searches for a black circle.
I1 = VISSTATUS(0) '
VISLOC 10,10 '
VISPRINT I1 '
IF I1 = 0 THEN '
I2 = VISSTATUS(1) '
IF I2 <> 0 THEN '
FORI1=0TOI2-1 '
VISCROSS VISGETNUM(I1,1), VISGETNUM(I1,2)
'
NEXT I1 '
END IF '
END IF '
Comentarios a estos manuales