anchor.diff:  	   (* dist (sin inc2) (sin rot)))
   	  ((@ scene add) target)))
         app)
  -	
  +    
       (defun reflect ()
         "Reflected light on a sail app"
         (add-target (add-reflection (absorb))))
  
positive.code: 	 ((@ m local-to-world) ((@ mv 2 clone)))
  	 ((@ m local-to-world) ((@ mv 3 clone)))
  	 ((@ m local-to-world) ((@ mv 4 clone))))))
  
      (defun rotate-global-y (object rad)
        "Rotate an object around the global Y axis by the given number of radians"
        (let* ((q ((@ ((@ (@ object quaternion) clone)) inverse)))
  
negative.code: 		  ((@ scene remove) reflection)
  		  (setf reflection (reflection corners reflectv))
  		  ((@ scene add) reflection)
  		  ((@ reflect-arrow set-direction) ((@ ((@ reflectv clone)) negate)))
  		  ((@ reflect-arrow set-length) (* 10 (/ absorbed 100))))))
  	((@ scene add) reflection)
  	((@ scene add) reflect-arrow))
        app)
      
      (defun add-target (app)
        "Add a big red randomly positioned target"
        (with-slots (scene target) app
  