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
15 retina? get-global [ 2 /i ] when ; inline
18 retina? get-global [ 2 * ] when ; inline
20 : scale-dim ( dim -- dim' )
21 retina? get-global [ [ 2 /i ] map ] when ; inline
23 : scale-metrics ( metrics -- metrics' )
26 [ 2.0 / ] change-width
27 [ 2.0 / ] change-ascent
28 [ 2.0 / ] change-descent
29 [ 2.0 / ] change-height
30 [ 2.0 / ] change-leading
31 [ 2.0 / ] change-cap-height
32 [ 2.0 / ] change-x-height
37 M: core-text-renderer string-dim
38 [ " " string-dim { 0 1 } v* ]
39 [ cached-line dim>> scale-dim ]
42 M: core-text-renderer flush-layout-cache
43 cached-lines get-global purge-cache ;
45 M: core-text-renderer string>image ( font string -- image loc )
46 cached-line [ line>image ] [ loc>> scale-dim ] bi ;
48 M: core-text-renderer x>offset ( x font string -- n )
51 swap scale 0 <CGPoint> CTLineGetStringIndexForPosition
54 M: core-text-renderer offset>x ( n font string -- x )
55 cached-line line>> swap f
56 CTLineGetOffsetForStringIndex unscale ;
58 M: core-text-renderer font-metrics ( font -- metrics )
61 M: core-text-renderer line-metrics ( font string -- metrics )
62 [ " " line-metrics clone 0 >>width ]
63 [ cached-line metrics>> scale-metrics ]
66 core-text-renderer font-renderer set-global