anchor.diff:  
   ;; NEXT-TODO: doesn't work yet!
   ;; REWRITE for VEC3 usage
  -;; (defun move-to (name point-vec2)
  +;; (defun move-to (name point)
   ;;   (let ((rectangle (get-rectangle name)))
  -;;     (macrolet ((vec2+ (v1 v2)
  -;; 	       `(vec2 (+ (aref ,v1 0) (aref ,v2 0))
  -;; 		      (+ (aref ,v1 1) (aref ,v2 1)))))
   ;;     (with-slots (x1 x2 y1 y2) rectangle
  -;;       (setf x1 point-vec2)
  +      
   ;;       ;; (setf x2 (vec2+ point-vec2))
   ;;       ;; (setf y1 (vec2+ y1 point-vec2))
   ;;       ;; (setf y2 (vec2+ y2 point-vec2))
  -;;       ))))
  +;;       )))
   
   
   
  
positive.code:    ;; for now we directly couple animation with the rectangle
     (animation-state :type animation :initform (make-animation) :reader animation-state)))
  
  
  ;; TODO: add texture coordinate to initilizations, providing a texture.png
  ;; and a fixed texture coordinate with texatl:with-sprite ?
  
negative.code:   ((hash-table :initform (make-hash-table) :reader the-table)
     (keys-in-order :initform (make-array 0 :fill-pointer 0) :accessor keys-in-order)))
  
  (defun make-seq-hash-table ()
    (make-instance 'sequential-hash-table))
  
  