extra/pango/ft2/gadgets/gadgets.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: pango.ft2 pango.gadgets opengl.gadgets
   4 accessors kernel opengl.gl libc
   5 sequences namespaces ui.gadgets pango.layouts ;
   6 IN: pango.ft2.gadgets
   7
   8 TUPLE: pango-ft2-gadget < pango-gadget ;
   9
  10 SINGLETON: pango-ft2-backend
  11 pango-ft2-backend pango-backend set-global
  12
  13 M: pango-ft2-backend construct-pango
  14     pango-ft2-gadget construct-gadget ;
  15
  16 M: pango-ft2-gadget render*
  17     [
  18         [ text>> layout-text ] [ font>> layout-font ] bi
  19         layout render-layout
  20     ] with-ft2-layout [ GL_ALPHA render-bytes* ] keep free ;