anchor.diff:                                               :count (length vertex)))))
   
   (defmacro regist-glyphs (table str)
  -  "Regist glyphs of the string to glyph table."
  +  "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 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
  
positive.code: 
      (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"))
  
negative.code:    Please call this function before exit program."
    (gl:delete-program *glyph-program*)
    (gl:delete-program *bounding-box-program*))
  
  (defun set-render-size (width height)
    (setf *render-width* (float width)
          *render-height* (float height))
    (gscale 1 1 1)
    (gtrans 0.0 0.0 0.0))
  
  (defmacro make-gl-array (data)
    `(let* ((len (length ,data))
  