anchor.diff:        (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 :replace)
  +  (select-texture (sprite-texture sp) :env-mode :modulate)
     (render-shape (sprite-shape sp)))
   
   (define-anim-channels ((it sprite) data)
  
positive.code: (in-package #:glaw)
  
  ;;; 2D only functionalities
  
  ;;; Sprite
  (defstruct sprite
  
negative.code: 
  (defun translate-sprite (sp dx dy)
    (incf (sprite-x sp) dx)
    (incf (sprite-y sp) dy)
    (translate-shape (sprite-shape sp) dx dy)
    (bbox-translate (sprite-bbox sp) dx dy))
  
  (defun move-sprite (sp x y)
    "Set sprite position."
  