anchor.diff:  (defvar *glyph-translation* nil)
   (defvar *glyph-scale* nil)
   (defvar *glyph-rotate* nil)
  +(defvar +glyph-vertex-loc+ nil)
  +(defvar +glyph-attrib-loc+ nil)
   (defvar *bounding-box-program* nil)
   (defvar *bounding-box-size* nil)
   (defvar *bounding-box-color* nil)
   (defvar *bounding-box-translation* nil)
   (defvar *bounding-box-scale* nil)
   (defvar *bounding-box-rotate* nil)
  +(defvar +bounding-box-vertex-loc+ nil)
   
   ; Glyph-table
   ; :font := zpb-ttf:font
  
positive.code:     (gl:uniform-matrix-4fv *bounding-box-scale* imat)
      (setf *bounding-box-rotate* (gl:get-uniform-location *bounding-box-program* "rotateMatrix"))
      (gl:uniform-matrix-4fv *bounding-box-rotate* imat)
  
      (gl:use-program 0)
      t))
  
negative.code:                         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")
      (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"))
  