anchor.diff:        (setf (@ ($ "#absorbed") 0 inner-h-t-m-l) ((@ absorbed to-string)))
         ;; Re-render
         (render))
  -    
  +
       (defun init-tilt-controls ()
         ;; Initialize values
         (setq incidence 0
  
positive.code: 			  (create 
  			   color 0x444444
  			   side (@ *three* *double-side)
  			   wireframe t))))
  	     (s (new (3fn *geometry))))
  	(with-slots (vertices faces) s
  	  ((@ vertices push)
  
negative.code:       ;; Automatically resize window
        ((@ window add-event-listener) "resize" on-window-resize false))
  
      ;; Absorption and reflection controls
      
      (defun *mirror ()
        (let* ((w 8)
  	     (w2 (/ w 2))
  