anchor.diff:  		      #(1.0 0.0   1.0 1.0   0.0 1.0
   			0.0 1.0   0.0 0.0   1.0 0.0)))
   
  -;; TODO: remove this test data
  -(when (< (hash-table-count (the-table *dynamic-rectangles*)) 1)
  -  (add-rectangle-as :hero (make-rectangle)))
  -
   ;;Texture-----------------------------------------------------------------------
   
   ;; TODO: integrate "texatl"
  
positive.code: 	(vector-push-extend name (keys-in-order seq-hash-table))))
      (setf (gethash name rectangles-container) rectangle)))
  
  
  
  ;; TODO: give nice print representation
  
negative.code:    (tex-x1 :initarg :tex-x1 :type vec2 :initform (vec2 0.0 0.0))
     (tex-x2 :initarg :tex-x2 :type vec2 :initform (vec2 1.0 0.0))
     (tex-y1 :initarg :tex-y1 :type vec2 :initform (vec2 0.0 1.0))
     (tex-y2 :initarg :tex-y2 :type vec2 :initform (vec2 1.0 1.0))
  
     ;; 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 ?
  