anchor.diff:  		  ((@ scene remove) reflection)
   		  (setf reflection (reflection corners reflectv))
   		  ((@ scene add) reflection)
  -		  ((@ reflect-arrow set-direction) ((@ ((@ reflectv clone)) negate)))
  +		  ((@ reflect-arrow set-direction) reflectv)
   		  ((@ reflect-arrow set-length) (* 10 (/ absorbed 100))))))
   	((@ scene add) reflection)
   	((@ scene add) reflect-arrow))
  
positive.code: 	(setf normal (normal sail)
  	      reflectv (reflectv incident normal)
  	      reflection (reflection corners reflectv)
  	      reflect-arrow (new (3fn *arrow-helper ((@ ((@ reflectv clone)) negate)) origin 10 0xff0000))
  	      visibility
  	      (let ((visibility-super ((@ app superior) "visibility")))
  		(lambda (bool)
  		  (funcall visibility-super bool)
  		  (setf (@ reflection visible) bool)
  		  (@ reflect-arrow visible) bool))
  	      update-tilt
  	      (let ((tilt-super ((@ app superior) "updateTilt"))) 
  		(lambda ()
  
negative.code:       (let ((app (add-reflect-force (add-animation (add-target (add-reflection (add-tilt (what))))))))
  	(with-slots (camera timefactor) app
  	  ((@ camera position set) -4 -6 6)
  	  (setf timefactor 10))
  	app))
  
      (defun force ()
  