anchor.diff:        ;; Pause button event
         (let ((pause-html ($ "#pause")))
   	((@ pause-html click)
  -	 #'(lambda (e)
  -	     (if pause
  -		 (progn
  -		   (setq pause false)
  -		   (setf (@ pause-html 0 inner-h-t-m-l) "Pause"))
  -		 (progn
  -		   (setq pause t)
  -		   (setf (@ pause-html 0 inner-h-t-m-l) "Continue"))))))
  +	 #'toggle-pause))
  +      ;; Pause with spacebar
  +      ((@ ($ (@ document body)) keydown)
  +       #'space-pause-event)
  +      ;; Reset button
         (let ((reset-html ($ "#reset")))
   	((@ reset-html click)
  -	 #'(lambda (e) (reset-absorb-force)))))
  -	
  +	 #'(lambda (e)
  +	     (reset-absorb-force)
  +	     (update-absorb-force)))))
  +    
       (defun animate-force ()
         (request-animation-frame animate-force)
         (unless pause
  
positive.code:       (when (> rotation 180)
  	(setq rotation (- rotation 360)))
        (update-tilt))
      
      (defun init-tilt-controls ()
        "Initialize tilt controls for tilting/rotating the sail"
  
negative.code:     (defun update-absorb-force ()
        "Integrate position during animation"
        ;; Update acceleration, velocity, position
        (let* ((accel (* 5d-5 (abs (cos (* incidence (/ pi 180))))))
  	     (now ((@ (new (*date)) get-time)))
  	     (dt (/ (* timefactor (- now (or time now))) 1000)))
  