anchor.diff:  
     (gl:flush))
   
  +(sb-profile:profile "COMMON-LISP-USER")
   (glut:display-window (make-instance 'main-window))
  
positive.code:   (gl:delete-program *program2*)
  )
  
  
  
  (defvar hoge 0)
  (defmethod glut:display ((w main-window))
    (gl:clear-color 0.2 0.7 0.5 1.0)
    (gl:clear-stencil 0)
    (gl:clear :color-buffer-bit :stencil-buffer-bit)
  
    (let ((size 0.15))
      (render-string takao-gothic "新しい朝が来た　希望の朝だ" -1.0 0.8 size 0.0)
      (render-string takao-gothic "喜びに胸を開け　大空あおげ" -1.0 0.6 size 0.0)
      (render-string takao-gothic "ラジオの声に　健やかな胸を" -1.0 0.4 size 0.0)
      (render-string takao-gothic "この香る風に　開けよ" -1.0 0.2 size 0.0)
      (render-string takao-gothic "それ　一　ニ　三" -1.0 0.0 size 0.0))
  
  
  
  
negative.code: (require 'cl-glu)
  (require 'cl-glut)
  (require 'zpb-ttf)
  (require 'cl-annot)
  
  (annot:enable-annot-syntax)
  
  ;; Glyph vertex
  (defvar +vs-source+ "#version 130
  