anchor.diff:  					       (mezzano.gui:surface-width buffer) (mezzano.gui:surface-height buffer)
   					       buffer 0 0
   					       framebuffer
  -					       (+ left (- (truncate (- width left right) 2) (truncate (mezzano.gui:surface-width buffer) 2)))
  -					       (+ top (- (truncate (- height top bottom) 2) (truncate (mezzano.gui:surface-height buffer) 2))))
  +					       (+ left (- (truncate (- (cl-video:width avi) left right) 2)
  +							  (truncate (mezzano.gui:surface-width buffer) 2)))
  +					       (+ top (- (truncate (- (cl-video:height avi) top bottom) 2)
  +							 (truncate (mezzano.gui:surface-height buffer) 2))))
   			   (mezzano.gui.widgets:draw-frame frame)
   			   (mezzano.gui.compositor:damage-window window
   								 0 0
  -								 width height))
  +								 (cl-video:width avi) (cl-video:height avi)))
   			 (unless (cl-video:pause avi)
   			   (mezzano.supervisor:acquire-mutex (cl-video:vacancy-lock (car (cl-video:rcursor rec))))
   			   (mezzano.supervisor:release-mutex (cl-video:vacancy-lock cur)))
  
positive.code: 		    (loop for cur = (if (cl-video:pause avi) cur (pop (cl-video:rcursor rec)))
  		       for src = (cl-video:frame cur)
  		       with quit = nil until quit do
  			 (loop for i from 0 below height do
  			      (loop for j from 0 below width
  				 for spos = (* 3 (+ j (* width i))) do
  				   (setf (aref buffer i j)
  					 (logior #xff000000 (ash (aref src (+ 2 spos)) 16) (ash (aref src (1+ spos)) 8) (aref src spos)))))
  			 (multiple-value-bind (left right top bottom)
  
negative.code: 			     (setf (cl-video:pause avi) (not (cl-video:pause avi)))
  			     (mezzano.supervisor:acquire-mutex (cl-video:pause-lock avi))
  			     (mezzano.supervisor:release-mutex (cl-video:pause-lock avi))
  			     (return-from play-video-stream))))
  		 (cl-video:stream-playback-stop rec)))))))))
  
  (defun main (path)
    (cl-video:decode-file path :player-callback #'(lambda (avi)
  						  (play-audio-stream avi) (play-video-stream avi))))
  
  (defun spawn (path)
    (setf path (merge-pathnames path))
  