anchor.diff:    	 (h (sdl:height font-surf))
   	 (temp-surface (sdl:create-surface w h :bpp 32 :pixel-alpha t )))
       (sdl:blit-surface font-surf temp-surface)
  -    (make-instance 'text-cache
  +    (make-instance 'text-texture-cache
   		   :texture (vml-image:surface-to-texture temp-surface)
   		   :text text
   		   :width w
  
positive.code:   (let* ((font-surf (gen-text-surface-blend text :font font :color color))
  	 (w (sdl:width font-surf))
  	 (h (sdl:height font-surf))
  	 (text-cache (make-instance 'text-cache
  	  			    :texture (vml-image:surface-to-texture font-surf)
  				    :text text
  				    :width w
  				    :height h)))
      text-cache))
  
  (defun gen-text-texture (text &key color
  		 (font lispbuilder-sdl:*default-font*)
  
negative.code: 	:cl-annot
  	:cl-annot.class
  	:cl-annot.doc
  	:vml-types))
  
  (in-package :vml-fonts)
  (cl-annot:enable-annot-syntax)
  