anchor.diff:                          0.0 0.0 0.0 1.0)))
       (setf *glyph-program* (create-program +glyph-vs+ +glyph-fs+))
       (gl:use-program *glyph-program*)
  -    (gl:bind-attrib-location *glyph-program* 0 "vertex")
  -    (gl:bind-attrib-location *glyph-program* 1 "attrib")
  +;    (gl:bind-attrib-location *glyph-program* 0 "vertex")
  +;    (gl:bind-attrib-location *glyph-program* 1 "attrib")
  +    (setf +glyph-vertex-loc+ (gl:get-attrib-location *glyph-program* "vertex")
  +          +glyph-attrib-loc+ (gl:get-attrib-location *glyph-program* "attrib"))
       (setf *glyph-size* (gl:get-uniform-location *glyph-program* "sizeMatrix"))
       (gl:uniform-matrix-4fv *glyph-size* imat)
       (setf *glyph-translation* (gl:get-uniform-location *glyph-program* "translationMatrix"))
  
positive.code:       (gl:bind-buffer :array-buffer 0)
        (gl:bind-buffer :array-buffer box-buffer)
        (gl:buffer-data :array-buffer :static-draw
                        (make-gl-array (vector xmin ymax xmin ymin xmax ymin xmax ymax)))
        (gl:bind-buffer :array-buffer 0)
        (make-vstring :content str :xmin xmin :xmax xmax :ymin ymin :ymax ymax
                      :buffer buffer :box-buffer box-buffer :count (/ count 4)))))
  
negative.code:     (gl:uniform-matrix-4fv *glyph-scale* imat)
      (setf *glyph-rotate* (gl:get-uniform-location *glyph-program* "rotateMatrix"))
      (gl:uniform-matrix-4fv *glyph-rotate* imat)
      (gl:enable-vertex-attrib-array +glyph-vertex-loc+)
      (gl:enable-vertex-attrib-array +glyph-attrib-loc+)
      (gl:use-program 0)
  
      (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"))
  