provide v4l-bitmap

load-image
"v4l.pfo" pfo




# ( format devicename -- )
: grabber
	` v4l new >r 		# create grabber object
	r constant		# compile as constant
	r v4l:device 		# set device
	r> v4l:format ;		# set capture format

# image grabbers

: v4l		` i420 swap grabber does> v4l:grab >image ;
: v4l-bitmap    grabber does> v4l:grab ;


: v4l-texture	` bgr swap grabber does> v4l:grab ` gl-rgb bitmap-from-bitmap >texture ;