anchor.diff:  			  (create 
   			   color 0x444444
   			   side (@ *three* *double-side)
  -			   wireframe t))))
  +			   wireframe false))))
   	     (s (new (3fn *geometry))))
   	(with-slots (vertices faces) s
   	  ((@ vertices push)
  
positive.code:       (setf (@ ($ "#absorbed") 0 inner-h-t-m-l) ((@ absorbed to-string)))
        ;; Re-render
        (render))
      
      (defun init-tilt-controls ()
        ;; Initialize values
        (setq incidence 0
  
negative.code: 	     (40 ((@ sail rotate-z) (/ pi -36))
  		 (decf incidence 5)
  		 (setq absorbed (round (* 100 (cos (* incidence (/ pi 180))))))
  		 (update-tilt)))))
        ;; Clicking on arrow images
        ((@ ($ "#up") click)
         #'(lambda (e)
  	   ((@ sail rotate-z) (/ pi 36))
  	   (incf incidence 5)
  	   (setq absorbed (round (* 100 (cos (* incidence (/ pi 180))))))
  	   (update-tilt)))
        ((@ ($ "#down") click)
         #'(lambda (e)
  	   ((@ sail rotate-z) (/ pi -36))
  	   (decf incidence 5)
  	   (setq absorbed (round (* 100 (cos (* incidence (/ pi 180))))))
  	   (update-tilt)))
        ((@ ($ "#left") click)
         #'(lambda (e)
  	   (rotate-global-y sail (/ pi 36))
  	   (decf rotation 5)
  	   (update-tilt)))
        ((@ ($ "#right") click)
         #'(lambda (e)
  	   (rotate-global-y sail (/ pi -36))
  	   (incf rotation 5)
  	   (update-tilt))))
      ))
  