anchor.diff:  
   (defmethod glut:display-window :before ((w main-window))
     (setf *font*
  -    (zpb-ttf:open-font-loader "/usr/share/fonts/OTF/TakaoGothic.ttf"))
  +    (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+))
  
positive.code:                                             :buffer buffer
                                              :box-buffer box-buffer
                                              :count (/ (length vertex) 4)))))
  
  (defun render-glyph (vg x y z mx my mz)
    (let ((mvp (mvp-matrix x y z mx my mz)))
  
negative.code:             for ch = (char str i)
              for cvg = (gethash ch table)
              for pvg = nil then cvg
              do (when (null cvg) (format t "~A is nil~%" ch))
              do (when pvg
                   (gl:translate (float (/ (- (zpb-ttf:kerning-offset
                                                (vglyph-source pvg)
  