anchor.diff:                                              :buffer buffer
                                               :box-buffer box-buffer
                                               :count (/ (length vertex) 4)))))
  +
  +(defmacro regist-glyph (table ch)
  +  `(when (null (gethash ,ch ,table))
  +    (regist-glyph-helper ,table ,ch)))
   
   (defun render-glyph (vg x y z mx my mz)
     (let ((mvp (mvp-matrix x y z mx my mz)))
  
positive.code: 
  (defvar hoge 0)
  (defmethod glut:display ((w main-window))
    (gl:clear-color 0.5 0.5 0.5 1.0)
    (gl:clear-stencil 0)
    (gl:clear :color-buffer-bit :stencil-buffer-bit)
  
    (render-string takao-gothic "ああ" -1.0 -1.0 0.5 0.0)
  
    (gl:flush))
  
  
negative.code: 
  (defmethod glut:display-window :before ((w main-window))
    (setf *font*
      (zpb-ttf:open-font-loader "/usr/share/fonts/TTF/migu-1c-regular.ttf"))
    (setf takao-gothic (make-glyph-table *font*))
    (loop for ch across "新しい朝が来た　希望の朝だ喜びに胸を開け大空あおげラジオの声に健やかな胸をこの香る風に開けよそれ一ニ三新しい朝のもと輝く緑さわやかに手足伸ばせ土踏みしめよラジオとともに健やかな手足この広い土に伸ばせよそれ一ニ三"
          do (regist-glyph takao-gothic ch))
    (regist-glyph takao-gothic #\あ)
    (gl:shade-model :flat)
  
    (let ((mvp (mvp-matrix -1.0 0.0 0.0 1.0 1.0 1.0)))
      (setf *program* (create-program +vs-source+ +fs-source+))
  