anchor.diff:  		   :width w
   		   :height h)))
   
  -(defun get-text-blended (text &key color (font lispbuilder-sdl:*default-font*))
  -  (let* ((font-surf (sdl:render-string-blended text 
  -					       :font font
  -					       :color (color-to-sdl-color color) 
  -					       :free t
  -					       :cache t))
  +(defun gen-text-texture-blend (text &key color
  +					(font lispbuilder-sdl:*default-font*))
  +  (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
  
positive.code: 				    :height h)))
      text-cache))
  
  @export
  (defun get-text (text &key color
  		 (font lispbuilder-sdl:*default-font*)
  		 (type :blend))
    (case type
      (:blend (get-text-blended text :color color :font font))
      (:solid (get-text-solid text :color color :font font))))
  	    
  @export 
  (defun draw-font (text point color
  		  &key (font lispbuilder-sdl:*default-font*) (type :blend))
    (let* ((x (x point))
  	 (y (y point))
  	 (text-texture (get-text text :color color :font font :type type))
  	 (w (font-width text-texture))
    	 (h (font-height text-texture)))
      (gl:enable :texture-2d)
  
negative.code:   (unless (sdl:initialise-default-font sdl:*ttf-font-vera*)
      (error "FONT-EXAMPLE: Cannot initialize the default font.")))
  
  @export
  (defun load-font (filename size)
    (unless (sdl:initialise-default-font 
  	   (make-instance 'sdl:ttf-font-definition
  			  :size size
  			  :filename  filename))
      (error "FONT-EXAMPLE: Cannot initialize the default font.")))
  
  ;; #+sbcl
  ;; (progn
  