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 math.vectors sequences fonts\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>> { 0 0 } <texture> ]\r
  20     2cache ;\r
  21 \r
  22 M: uniscribe-renderer draw-string ( font string -- )\r
  23     dup dup selection? [ string>> ] when empty?\r
  24     [ 2drop ] [ rendered-script-string draw-texture ] if ;\r
  25 \r
  26 M: uniscribe-renderer x>offset ( x font string -- n )\r
  27     [ 2drop 0 ] [\r
  28         cached-script-string x>line-offset 0 = [ 1 + ] unless\r
  29     ] if-empty ;\r
  30 \r
  31 M: uniscribe-renderer offset>x ( n font string -- x )\r
  32     [ 2drop 0 ] [ cached-script-string line-offset>x ] if-empty ;\r
  33 \r
  34 M: uniscribe-renderer font-metrics ( font -- metrics )\r
  35     " " cached-script-string metrics>> clone f >>width ;\r
  36 \r
  37 M: uniscribe-renderer line-metrics ( font string -- metrics )\r
  38     [ " " line-metrics clone 0 >>width ]\r
  39     [ cached-script-string metrics>> 50 >>width 10 >>cap-height 10 >>x-height ]\r
  40     if-empty ;\r
  41 \r
  42 uniscribe-renderer font-renderer set-global\r