anchor.diff:  	app))
   
       (defun reflect-force ()
  -      (let ((app (absorb-force)))
  -	(with-slots () app
  -	  
  -	  )
  +      (let ((app (add-reflection (add-tilt (what)))))
   	app))
       
       (defun stars ()
  
positive.code: 	      (let ((tilt-super ((@ app superior) "tiltUpdateFn"))) 
  		(lambda ()
  		  (funcall tilt-super)
  		  ;; Update reflection objects
  		  (setf normal (normal mirror)
  			reflectv (reflectv incident normal))
  
negative.code:       app)
  
      (defun add-target (app)
        "Add a big red randomly positioned target"
        (with-slots (scene target) app
  	(let ((inc2 (* 2 (* 5 (random (/ 360 5)) (/ pi 180))))
  	      (rot (* 5 (random (/ 360 5)) (/ pi 180)))
  