anchor.diff:  	     (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")))
  
positive.code: 			(funcall reset)
  			(funcall update-anim)
  			(funcall update-tilt)
  			(funcall render))))))
  	     accelfn
  	     (lambda () (new (3fn *vector3 0 0 0)))
  	     update-anim
  
negative.code:     
      (defun absorb-force ()
        (let ((app (add-animation (absorb))))
  	(with-slots (accelfn incidence update-anim absorb-arrow sail init sail-position) app
  	  (setf
  	   timefactor 10
  	   accelfn
  	   (lambda ()
  	     (let ((accel (* 5d-5 (abs (cos (* incidence (/ pi 180)))))))
  	       (new (3fn *vector3 0 accel 0))))
  	   init
  	   (let ((init-super ((@ app superior) "init")))
  	     (lambda ()
  	       (funcall init-super)
  	       ((@ sail-position add) absorb-arrow)))
  	   ))
  	app))
      
  