anchor.diff:                       :mode '(:single :rgb :depth :stencil)
                        :tick-interval (round 1000 60)))
   
  +(defmethod glut:reshape ((w main-window) width height)
  +  (gl:viewport 0 0 width height)
  +  (gl:matrix-mode :projection)
  +  (gl:load-identity)
  +  (glu:ortho-2d 0 width 0 height)
  +  (gl:matrix-mode :modelview)
  +  (gl:load-identity))
   
   (defun make-gl-array (data)
     (let* ((len (length data))
  
positive.code: 
  (defmethod glut:display-window :before ((w main-window))
    (setf *font*
      (zpb-ttf:open-font-loader "/usr/share/fonts/OTF/TakaoGothic.ttf"))
    (setf takao-gothic (make-glyph-table *font*))
    (regist-glyph takao-gothic #\あ)
  
    (let ((mvp (mvp-matrix -1.0 0.0 0.0 1.0 1.0 1.0)))
      (setf *program* (create-program +vs-source+ +fs-source+))
  
negative.code:   (when (> *alpha* 1.0)
      (setf *alpha* 0.0))
    (gl:use-program *program2*)
    ;(gl:uniformf *uniform-color* (* *alpha* *alpha*) (- 1 *alpha*) *alpha* *alpha*)
    (gl:uniformf *uniform-color* 1.0 1.0 1.0 1.0)
    (gl:use-program 0)
    (glut:post-redisplay))
  
  