basis/ui/text/uniscribe/uniscribe.factor

   1 ! Copyright (C) 2009 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: accessors assocs cache kernel math.vectors sequences\r
   4 namespaces opengl.textures ui.text ui.text.private ui.gadgets.worlds \r
   5 windows.uniscribe ;\r
   6 IN: ui.text.uniscribe\r
   7 \r
   8 SINGLETON: uniscribe-renderer\r
   9 \r
  10 M: uniscribe-renderer string-dim\r
  11     [ " " string-dim { 0 1 } v* ]\r
  12     [ cached-script-string size>> ] if-empty ;\r
  13 \r
  14 M: uniscribe-renderer flush-layout-cache\r
  15     cached-script-strings get purge-cache ;\r
  16 \r
  17 : rendered-script-string ( font string -- texture )\r
  18     world get world-text-handle\r
  19     [ cached-script-string [ image>> ] [ text-position vneg ] bi <texture> ]\r
  20     2cache ;\r
  21 \r
  22 M: uniscribe-renderer draw-string ( font string -- )\r
  23     [ drop ] [ rendered-script-string draw-texture ] if-empty ;\r
  24 \r
  25 M: uniscribe-renderer x>offset ( x font string -- n )\r
  26     [ 2drop 0 ] [\r
  27         cached-script-string x>line-offset drop\r
  28     ] if-empty ;\r
  29 \r
  30 M: uniscribe-renderer offset>x ( n font string -- x )\r
  31     [ 2drop 0 ] [ cached-script-string line-offset>x ] if-empty ;\r
  32 \r
  33 M: uniscribe-renderer font-metrics ( font -- metrics )\r
  34     " " cached-script-string metrics>> clone f >>width ;\r
  35 \r
  36 M: uniscribe-renderer line-metrics ( font string -- metrics )\r
  37     [ " " line-metrics clone 0 >>width ]\r
  38     [ cached-script-string metrics>> 50 >>width 10 >>cap-height 10 >>x-height ]\r
  39     if-empty ;\r
  40 \r
  41 uniscribe-renderer font-renderer set-global\r