anchor.diff:        (add-absorb-force (add-animation (absorb))))
   
       (defun add-reflect-force (app)
  -      (with-slots (sail camera reflectv reflect-arrow incidence accelfn timefactor sail-position init) app
  +      (with-slots (sail camera reflectv reflect-arrow absorbed reflect-force-arrow incidence accelfn timefactor sail-position init origin update-tilt) app
   	(setf
  +	 reflect-force-arrow
  +	 (new (3fn *arrow-helper ((@ ((@ reflectv clone)) negate)) origin 10 0xff0000))
   	 accelfn
   	 (lambda ()
   	   (let ((accel (* 5d-5 (abs (cos (* incidence (/ pi 180)))))))
  
positive.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 100))
  	app))
  
      (defun force ()
  
negative.code: 	(setf normal (normal sail)
  	      reflectv (reflectv incident normal)
  	      reflection (reflection corners reflectv)
  	      reflect-arrow (new (3fn *arrow-helper reflectv origin 10 0xffff00))
  	      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 ()
  