anchor.diff:    (gli:finalize)
     (format t "close~%"))
   
  -(plan 1)
  +(plan 5)
   
   (glut:display-window (make-instance 'test-window))
   
  
positive.code:     (gl:vertex 0 300))
    (let* ((rad (* (coerce pi 'single-float) (/ *frame-count* 180)))
           (cosr (cos rad)))
      (gli:with-context *width* *height*
        (gli:set-rotate 0.0 0.0 0.0)
        (gli:set-table *glyph-table-en*)
        (gli:set-color 0 0 0)
        (gli:draw
         '(:x 72 :y 150 :size 32 "Hello world!"
           :x 24 :y 300 :size 12 "GLisph"))
        (gli:draw
         `(:size 32
           ,@(loop for i from 0 below (length ,*text-en*)
                   collect :x
                   collect (- ,*display-x* 300.0)
                   collect :y
                   collect (+ ,*display-y* (- (* i 32.0) 150.0))
                   collect (aref ,*text-en* i))))
        (gli:set-rotate 0.0 0.0 rad)
        (gli:set-table *glyph-table-ja*)
        (gli:set-color 1.0 1.0 1.0)
        (gli:draw
         `(:size 24
           ,@(loop for i from 0 below (length ,*text-ja*)
                   collect :x
                   collect (+ *display-x*
                              (* -300.0 (+ ,cosr (* i 0.25))))
                   collect :y
                   collect (+ *display-y* (* i 32.0)))))
        (gl:flush))
  
  (defmethod glut:close ((w test-window))
    (gli:delete-glyph-table *glyph-table-en*)
  
negative.code:         *height* height))
  
  (defmethod glut:display-window :before ((w test-window))
    (gli:init *width* *height*)
    (pass "Success: init")
    (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*))
    (pass "Success: make-glyph-table")
    (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))
    (pass "Success: regist-glyphs")
    (setf *text-en*
          (gli:draw *glyph-table-en*
            '(:size 20 :x 0 :y 0
             :text (aref *text-en* 0)
             :size 30 :x 0 :y 24
             :text (aref *text-en* 1)
             :size 40 :x 0 :y 60
             :text (aref *text-en* 2))))
    (setf *text-ja*
          (gli:draw *glyph-table-ja*
            `(:size 24 :x 200
              ,@(loop for idx from 0 below (length *text-ja*)
                    append (list :spacing (* idx 4)
                                 :y (+ 200 (* idx 60))
                                 :text (aref *text-ja* idx))))))
    (pass "Success: draw")
    (ok t))
  
  (defmethod glut:tick ((w test-window))
    (incf *frame-count*)
  