anchor.diff:  (in-package #:glaw)
  -
  -;;; 2D only functionalities
   
   ;;; Sprite
   (defstruct sprite
  
positive.code: 
  (defun translate-sprite (sp dx dy)
    (incf (sprite-x sp) dx)
    (incf (sprite-x sp) dy)
    (translate-shape (sprite-shape sp) dx dy)
    (bbox-translate dx dy))
  
  (defun move-sprite (sp x y)
    "Set sprite position."
  
negative.code:       (setf (shape-tex-coords (sprite-shape it)) #(0.0 0.0 1.0 0.0 1.0 1.0 0.0 1.0))))
  
  (defun render-sprite (sp)
    (select-texture (sprite-texture sp) :env-mode :modulate)
    (render-shape (sprite-shape sp)))
  
  (define-anim-channels ((it sprite) data)
  