anchor.diff:       (make-local-path file)))))
   
   
  -(defun position-cylinder (node x y &optional (height 2))
  -	   (clinch:set-identity-transform node)
  -	   (clinch:rotate node (clinch:degrees->radians 90) 1 0 0)
  -	   (clinch:scale node 1 height 1)
  -	   (clinch:translate node x 2 y))
  +(defun position-cylinder (node maze x y &optional (height 2))
  +
  +  (let* ((maze-size (array-dimensions maze)))
  +    (multiple-value-bind (w h)
  +	(maze->position x y (first maze-size) (second maze-size))
  +      (clinch:set-identity-transform node)
  +      (clinch:rotate node (clinch:degrees->radians 90) 1 0 0)
  +      (clinch:scale node 1 height 1)
  +      (clinch:translate node w height h))))
   
   (defun lerp (x y distance)
     (let ((1-distance (- 1 distance)))
  
positive.code: (defvar *static-objects* nil)
  
  (defvar *manual-objects* nil)
  
  (defvar *direction* '(0 0))
  (defvar *jump* nil)
  
negative.code: 		     (+ (* a 1-distance) (* b distance)))
  	     x y))))
  
  (defun make-move-cylinder-func (node maze start end speed handler)
    (let* ((pos      start)
  	 (movement (sb-cga:vec* 
  		    (sb-cga:normalize 
  		     (sb-cga:vec- end start))
  		    speed)))
      (lambda ()
        (let ((distance (sb-cga:vec-length (sb-cga:vec- pos end))))
  	(if (<  distance speed)
  	    (progn (funcall handler) nil)
  	    (progn
  