anchor.diff:  			(funcall reset)
   			(funcall update-anim)
   			(funcall update-tilt)
  -			(funcall render))))))
  +			(funcall render))))
  +		 ;; Attach sail object to sail-position & put in scene
  +		 ((@ sail-position add) sail)
  +		 ((@ scene add) sail-position)))
   	     accelfn
   	     (lambda () (new (3fn *vector3 0 0 0)))
   	     update-anim
  
positive.code: 	;; Add objects
  	((@ sail add) mirror)
  	((@ scene add) projection)
  	((@ scene add) absorb-arrow)
  	)
        app)
      
  
negative.code: 	     (lambda ()
  	       ((@ position set) 0 0 0)
  	       ((@ velocity set) 0 0 0)
  	       ((@ sail-position update-matrix-world))
  	       (setf elapsed 0))
  	     init
  	     (let ((init-super ((@ app superior) "init")))
  