provide xv-blitter


load-image
load-x11

# variable x11

# : link-xv-blitter # ( display blittername -- )
# 	swap x11:make-xv dup x11 ! swap link-constant
# does> swap >i420 swap x11:blit ;

# : xv read link-xv-blitter ;



: xv-blitter
	( x11:make-xv constant _
	  : blit-i420  _ x11:blit ;
	  : blit       >i420 blit-i420 ;
	  : moveresize _ x11:moveresize ;
	  : move       _ x11:move ;
	  : dims@      _ x11:dims@ ;
	  : dims!      _ x11:dims! ;
	  0 0 move     # move to top left so it won't take focus if WM decides to put it under cursor.
        ) create-binder ;
"( display -- )\tCreate a blitter object. Parses word." doc


: create-default-blitter 
  ( "" xv-blitter xv
    : blit xv blit ; 
    : create-default-blitter ;
) interpret-list ;