anchor.diff:      sp))
   
   (defun render-sprite (sp)
  +  (set-color (sprite-color sp))
     (select-texture (sprite-texture sp) :env-mode :modulate)
     (render-shape (sprite-shape sp)))
   
  
positive.code:   bbox
    shape
    texture
    (flip :none))
  
  (defun sprite-set-flip (it value)
  
negative.code:   (%2d-view-update-matrix view))
  
  (defun set-view-2d (view)
    (set-view (2d-view-mtx view) +matrix-identity+))
  
  (defun view-to-view (x y from-view to-view &optional (absolute t))
    (unless (or (zerop (2d-view-width from-view)) (zerop (2d-view-height from-view))
  