anchor.diff:        (glut:leave-main-loop)))
     (let ((x -390.0)
           (y -300.0))
  -    (gli:gsize 12.0)
  -    (gli:gcolor 0.0 0.0 0.0 1.0)
       (dotimes (i *line-count*)
  -      (gli:render-string *glyph-table* +text+ 0.01 x y 0.0 12.0)
  +      (gli:draw-string *text-object* x y 0.0 12.0)
         (incf y 14))
       (gl:flush)))
   
  
positive.code: (defvar *line-count* 42)
  (defvar *font* nil)
  (defvar *glyph-table* nil)
  (defvar *frame* 0)
  (defvar *count* 0)
  (defvar *last* 0)
  
negative.code:   (setf *font* (gli:open-font-loader "/usr/share/fonts/TTF/DroidSans.ttf"))
  ;  (setf *font* (gli:open-font-loader "/path/to/freetype-gl/fonts/VeraMono.ttf"))
    (setf *glyph-table* (gli:make-glyph-table *font*))
    (gli:regist-glyphs *glyph-table* +text+)
    (gli:init)
    (setf *text-object* (gli:new-vstring *glyph-table* +text+ 0.0))
    (gli:gscale (float (/ 2 800)) (float (/ -2 600)) 1.0)
    (gl:clear-color 1.0 1.0 1.0 1.0)
    (setf *last* (glut:get :elapsed-time)))
  