anchor.diff:     Please call this function before exit program."
     (gl:delete-program *glyph-program*)
     (gl:delete-program *bounding-box-program*))
  +
  +(defun set-render-size (width height)
  +  (setf *render-width* (float width)
  +        *render-height* (float height))
  +  (gscale 1 1 1)
  +  (gtrans 0.0 0.0 0.0))
   
   (defmacro make-gl-array (data)
     `(let* ((len (length ,data))
  
positive.code:                            :include '(:open-font-loader))
  (annot:enable-annot-syntax)
  
  (defvar *glyph-program* nil)
  (defvar *glyph-size* nil)
  (defvar *glyph-translation* nil)
  (defvar *glyph-scale* nil)
  (defvar *glyph-rotate* nil)
  (defvar +glyph-vertex-loc+ nil)
  (defvar +glyph-attrib-loc+ nil)
  (defvar *bounding-box-program* nil)
  (defvar *bounding-box-size* nil)
  (defvar *bounding-box-color* nil)
  (defvar *bounding-box-translation* nil)
  (defvar *bounding-box-scale* nil)
  
negative.code:   (gl:use-program *glyph-program*)
  ;  (gl:enable-vertex-attrib-array 0)
  ;  (gl:enable-vertex-attrib-array 1)
    (gl:bind-buffer :array-buffer (text-buffer-polygon-buffer buffer))
    (gl:vertex-attrib-pointer +glyph-vertex-loc+ 2 :float nil 16 0)
    (gl:vertex-attrib-pointer +glyph-attrib-loc+ 2 :float nil 16 8)
    (gl:draw-arrays :triangles 0 (text-buffer-count buffer))
  ;  (gl:disable-vertex-attrib-array 0)
  ;  (gl:disable-vertex-attrib-array 1)
    ;(gl:use-program 0)
  