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:       ((@ sails mcam position copy) (@ sail position))
        ;; Move vane mirrors camera positions
        (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)
  
negative.code: 	    rotation 0
  	    absorbed 100)
        ;; Arrow key events
        ((@ ($ (@ document body)) keydown)
         #'(lambda (e)
  	   (tilt-key-event e)))
        ;; Clicking on arrow images
        ((@ ($ "#up") click) #'(lambda (e) (up)))
        ((@ ($ "#down") click) #'(lambda (e) (down)))
  