anchor.diff:  
       (setf *bounding-box-program* (create-program +bounding-box-vs+ +bounding-box-fs+))
       (gl:use-program *bounding-box-program*)
  -;    (gl:bind-attrib-location *bounding-box-program* 2 "vertex")
       (setf +bounding-box-vertex-loc+ (gl:get-attrib-location *bounding-box-program* "vertex"))
       (setf *bounding-box-color* (gl:get-uniform-location *bounding-box-program* "color"))
       (gl:uniformf *bounding-box-color* 0.0 0.0 0.0 1.0)
  -    (setf *bounding-box-size* (gl:get-uniform-location *bounding-box-program* "sizeMatrix"))
  -    (gl:uniform-matrix-4fv *bounding-box-size* imat)
       (setf *bounding-box-translation* (gl:get-uniform-location *bounding-box-program* "translationMatrix"))
       (gl:uniform-matrix-4fv *bounding-box-translation* imat)
       (setf *bounding-box-scale* (gl:get-uniform-location *bounding-box-program* "scaleMatrix"))
  
positive.code:   (gl:color-mask t t t t)
    (gl:use-program *bounding-box-program*)
  ;  (gl:enable-vertex-attrib-array 0)
    (gl:bind-buffer :array-buffer (vstring-box-buffer vs))
    (gl:vertex-attrib-pointer +bounding-box-vertex-loc+ 2 :float nil 0 0)
    (gl:draw-arrays :triangle-strip 0 4)
  ;  (gl:disable-vertex-attrib-array 0)
    (gl:use-program 0)
    (gl:disable :stencil-test))
  
  
  (defun draw-string (vs x y z size &key (color nil colored-p))
    "Toy function to render string with set size and color."
    (when colored-p
      (gcolor (elt color 0) (elt color 1)
              (elt color 2) (elt color 3)))
    (gsize size)
    (gtrans x y z)
    (render-string vs))
negative.code:   (gl:uniformf *bounding-box-color* r g b a)
    (gl:use-program 0))
  
  
  (defvar *glyph-trans-mat*
    (matrix4f 1.0 0.0 0.0 0.0
  