anchor.diff:        (setq elapsed 0)
         (setq timefactor 10)
         (setq pause false)
  +      ;; Pause button event
         (let ((pause-html ($ "#pause")))
   	((@ pause-html click)
   	 #'(lambda (e)
  
positive.code: 		   (setf (@ pause-html 0 inner-h-t-m-l) "Pause"))
  		 (progn
  		   (setq pause t)
  		   (setf (@ pause-html 0 inner-h-t-m-l) "Continue")))))))
  	
      (defun animate-force ()
        (request-animation-frame animate-force)
        (unless pause
  	(when (> pos 5)
  	  (setf pos 0)
  	  (setf vel 0)
  	  (setf elapsed 0))
  	(update-absorb-force))
        (when pause (setq time false))
        ((@ controls update))
  
negative.code:       (dolist (vane vanes)
  	((@ vane mcam position copy) (@ sail position))))
  
      (defun reset-absorb-force ()
        (setf pos 0)
        (setf vel 0)
        (setf elapsed 0))
      
      (defun init-absorb-force ()
        (init-absorb)
        (setq vel 0)
  