anchor.diff:  	       (setf (@ ($ "#distance") 0 inner-h-t-m-l) ((@ ((@ *math floor10) pos -3) to-string)))
   	       (let* ((minutes (floor (/ elapsed 60)))
   		      (seconds (floor (- elapsed (* minutes 60)))))
  -		 (setf (@ ($ "#elapsed") 0 inner-h-t-m-l) (+ ((@ minutes to-string)) (if (> seconds 9) ":" ":0") ((@ seconds to-fixed))))))
  +		 (setf (@ ($ "#elapsed") 0 inner-h-t-m-l)
  +		       (+ ((@ minutes to-string)) (if (> seconds 9) ":" ":0") ((@ seconds to-fixed))))))
   	     ;; Move absorbed arrow
   	     ((@ absorb-arrow position copy) (@ sail position))
   	     ;; Update projection
   	     ((@ scene remove) projection)
  -	     (setf projection (projection mirror))
  -	     ((@ scene add) projection)
  -	     ;;(funcall update-tilt)
  -	     )
  +	     (setf projection (projection corners))
  +	     ((@ scene add) projection))
   	   animate
   	   (lambda ()
   	     (request-animation-frame animate)
  
positive.code: 		 ((@ reset-html click)
  		  #'(lambda (e)
  		      (funcall reset)
  		      (funcall update))))
  	       ))))
  	app))
  
      (defun reflect-force ()
        (let ((app (absorb-force)))
  	app))
      
      (defun stars ()
  
negative.code: 	     (setf corners (corners mirror))
  	     ;; Projection
  	     ((@ scene remove) projection)
  	     (setf projection (projection corners))
  	     ((@ scene add) projection)
  	     ;; Update absorbed arrow
  	     ((@ absorb-arrow set-length) (* 10 (/ absorbed 100)))))
  