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: 		 (incf elapsed dt)
  		 ((@ velocity add) ((@ ((@ accel-v clone)) multiply-scalar) dt))
  		 ((@ position add) ((@ ((@ velocity clone)) multiply-scalar) dt))
  		 ((@ sail position copy) position)
  		 (setf (@ ($ "#accel") 0 inner-h-t-m-l) ((@ ((@ *math floor10) (* ((@ accel-v length)) 1000) -4) to-string)))
  		 (setf (@ ($ "#speed") 0 inner-h-t-m-l) ((@ ((@ *math floor10) (* ((@ velocity length)) 1000) -2) to-string)))
  		 (setf (@ ($ "#distance") 0 inner-h-t-m-l) ((@ ((@ *math floor10) ((@ position length)) -3) to-string)))
  
negative.code: 			(funcall reset)
  			(funcall update-anim)
  			(funcall update-tilt)
  			(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
  