anchor.diff:  		    (funcall load))))))
         app)
       
  -    
       (defun flightschool ()
         (add-sail (template)))
   
  
positive.code: 	((@ ($ "#down") click) #'(lambda (e) (funcall down)))
  	((@ ($ "#left") click) #'(lambda (e) (funcall left)))
  	((@ ($ "#right") click) #'(lambda (e) (funcall right)))
  	;; Add objects
  	((@ sail add) mirror)
  	((@ scene add) projection)
  	((@ scene add) absorb-arrow)
  	)
        app)
  
      (defun absorb ()
        "Absorbed light on a sail app"
        (add-tilt (what)))
  
      (defun add-reflection (app)
        (with-slots (absorbed normal incident reflectv reflection reflect-arrow mirror corners reflect-arrow tilt-update-fn origin scene visibility) app
  
negative.code: 
      (defun add-tilt (app)
        "Add tilt controls"
        (with-slots (camera sail update-tilt tilt-update-fn rotation incidence absorbed up down left right render) app
  	;; Move the camera
  	((@ camera position set) -4 -6 6)
  	;; Set new slots
  	(setf
  	 rotation 0 incidence 0 absorbed 100
  	 tilt-update-fn
  	 (lambda ()
  	   ;; Sail rotation matrix
  	   ((@ sail update-matrix-world))
  	   ;; Angle fields
  	   (let ((inc-html (@ ($ "#incidence") 0)))
  	     (when inc-html
  	       (setf (@ inc-html inner-h-t-m-l) ((@ incidence to-string)))))
  	   (let ((rot-html (@ ($ "#rotation") 0)))
  	     (when rot-html
  	       (setf (@ rot-html inner-h-t-m-l) ((@ rotation to-string)))))
  	   (let ((absorbed-html (@ ($ "#absorbed") 0)))
  	     (when absorbed-html
  	       (setf (@ absorbed-html inner-h-t-m-l) ((@ absorbed to-string))))))
  	 update-tilt
  	 (lambda ()
  	   (funcall tilt-update-fn)
  