anchor.diff:    (gli:finalize)
     (format t "close~%"))
   
  -(plan 1)
  +(plan 5)
   
   (glut:display-window (make-instance 'test-window))
   
  
positive.code:         *height* height))
  
  (defmethod glut:display-window :before ((w test-window))
    (setf *font-en* (gli:open-font-loader
                     (merge-pathnames "Ubuntu-R.ttf" *load-truename*))
          *font-ja* (gli:open-font-loader
                     (merge-pathnames "mplus-1m-regular.ttf" *load-truename*)))
    (setf *glyph-table-en* (gli:make-glyph-table *font-en*)
          *glyph-table-ja* (gli:make-glyph-table *font-ja*))
    (loop for text across *text-en*
          do (gli:regist-glyphs *glyph-table-en* text))
    (loop for text across *text-ja*
          do (gli:regist-glyphs *glyph-table-ja* text))
    (setf *text-en*
          (map 'vector
               (lambda (text) (gli:new-vstring *glyph-table-en* text 0.0))
               *text-en*))
    (setf *text-ja*
          (map 'vector
               (lambda (text) (gli:new-vstring *glyph-table-ja* text 0.0))
               *text-ja*))
    (format t "Success: new-vstring~%")
    (ok (gli:init)))
  
  (defmethod glut:tick ((w test-window))
    (incf *frame-count*)
  
negative.code:     (gl:vertex 0 300))
    (let* ((rad (* (coerce pi 'single-float) (/ *frame-count* 180)))
           (cosr (cos rad)))
  
      ;; Currently, because of #2, it has no effect in this context.
      (gli:gcolor 1.0 1.0 1.0 1.0)
  
      (gli:render *text-en*)
  
      ;; #2 It overwrites the color drawn before.
      (gli:gcolor cosr 1.0 1.0 1.0)
  
      (gli:render *text-ja*)
      (gl:flush)))
  
  (defmethod glut:close ((w test-window))
    (gli:delete-glyph-table *glyph-table-en*)
  