anchor.diff:    (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:bind-buffer :array-buffer (text-buffer-fill-buffer buffer))
     (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))
positive.code:     (gl:uniform-matrix-4fv *bounding-box-rotate* *glyph-rotate-mat*)
      (gl:use-program 0))
  
  (defun render-string (vs)
    "Render the vertex string."
    @type vstring vs
    @optimize (speed 3)
    @optimize (safety 0)
    @optimize (debug 0)
  
negative.code:                                              :count (length vertex)))))
  
  (defmacro regist-glyphs (table str)
    "Regist glyphs of the string to the glyph table."
    `(loop for ch across ,str
           when (null (gethash ch ,table))
           do (regist-glyph-helper ,table ch)))
  
  (defun delete-glyph-table (table)
    "Delete font data from the glyph table."
    (zpb-ttf:close-font-loader (gethash :font table))
    #|
    (loop for key being each hash-key of table
  