provide qt-recorder

# load binary
"lqt.pfo" pfo

: qt-recorder
	mark
	` lqt new
	( constant recorder
	  : type!      recorder lqt:type! ;
	  : codec!     recorder lqt:codec! ;
	  : container! recorder lqt:container! ;
	  : create     recorder lqt:create ;
	  : close      recorder lqt:close ;
	  : write      recorder lqt:>file ; ) interpret-list
	mark>binder ;

"( -- )\tCreate a quicktime recorder. Parses word." doc

: qt-player
	mark 
	` lqt new
	( constant player
	  : open   player lqt:open ;
	  : close  player lqt:close ;
	  : @      player lqt:frame@ ;
	  : fps    player lqt:fps@ ;
	  : frames player lqt:nframes@ ; ) interpret-list
	mark>binder ;

"( -- )\tCreate a quicktime player. Parses word." doc