anchor.diff:                           :color color
                            :x x :y y :width width :height height
                            :bbox bbox :flip flip
  -                         :shape (create-rectangle-shape x y (+ x width) (+ y height)))))
  +                         :shape (create-rectangle-shape (- x (* width 0.5))
  +                                                        (- y (* height 0.5))
  +                                                        (+ x (* width 0.5))
  +                                                        (+ y (* height 0.5))))))
       (setf (sprite-flip sp) flip)
       (rotate-sprite sp angle)
       (when bbox (bbox-overwrite/shape (sprite-bbox sp) (sprite-shape sp)))
  
positive.code:   (select-texture (sprite-texture sp) :env-mode :modulate)
    (render-shape (sprite-shape sp)))
  
  (define-anim-channels ((it sprite) data)
      (:texture (setf (sprite-texture it) data))
      (:tex-coords (setf (shape-tex-coords (sprite-shape it)) data))
      (:position  (move-sprite it (first data) (second data)))
      (:orientation (rotate-sprite it data)))
  
negative.code: 
  (defun %2d-view-update-matrix (view)
    (matrix-set-ortho (2d-view-mtx view)
                      (float (2d-view-left view))
                      (float (2d-view-right view))
                      (float (2d-view-bottom view))
                      (float (2d-view-top view))
                      -1.0 1.0))
  
  (defun create-2d-view (x y width height)
  