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:     (defun add-animation (app)
        (let ((elapsed 0)
  	    (time false))
  	(with-slots (timefactor pause toggle-pause init reset update-anim sail update-tilt render animate controls accelfn sail-position) app
  	  (with-slots (position velocity) sail-position
  	    (setf
  	     sail-position (new (3fn *object3-d))
  	     position (new (3fn *vector3 0 0 0))
  	     velocity (new (3fn *vector3 0 0 0))
  
negative.code: 	;; Add objects
  	((@ sail add) mirror)
  	((@ scene add) projection)
  	;;((@ scene add) absorb-arrow)
  	)
        app)
      
  