1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: assocs accessors alien core-graphics.types core-text
4 core-text.fonts kernel hashtables namespaces sequences ui.text
5 ui.text.private destructors combinators core-foundation
6 core-foundation.strings math math.vectors init colors
7 colors.constants cache arrays images ;
10 SINGLETON: core-text-renderer
12 M: core-text-renderer string-dim
13 [ " " string-dim { 0 1 } v* ]
17 M: core-text-renderer flush-layout-cache
18 cached-lines get purge-cache ;
20 M: core-text-renderer string>image ( font string -- image loc )
21 cached-line [ image>> ] [ loc>> ] bi ;
23 M: core-text-renderer x>offset ( x font string -- n )
26 swap 0 <CGPoint> CTLineGetStringIndexForPosition
29 M: core-text-renderer offset>x ( n font string -- x )
30 cached-line line>> swap f
31 CTLineGetOffsetForStringIndex ;
33 M: core-text-renderer font-metrics ( font -- metrics )
36 M: core-text-renderer line-metrics ( font string -- metrics )
37 [ " " line-metrics clone 0 >>width ]
38 [ cached-line metrics>> ]
41 core-text-renderer font-renderer set-global