1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors cache core-graphics.types core-text
4 core-text.fonts io.encodings.string io.encodings.utf16n kernel
5 locals math math.vectors namespaces sequences ui.text
9 SINGLETON: core-text-renderer
14 retina? get-global [ 2.0 / ] when ; inline
17 retina? get-global [ 2.0 * ] when ; inline
19 : scale-dim ( dim -- dim' )
20 retina? get-global [ [ 2.0 / ] map ] when ; inline
22 : scale-metrics ( metrics -- metrics' )
25 [ 2.0 / ] change-width
26 [ 2.0 / ] change-ascent
27 [ 2.0 / ] change-descent
28 [ 2.0 / ] change-height
29 [ 2.0 / ] change-leading
30 [ 2.0 / ] change-cap-height
31 [ 2.0 / ] change-x-height
36 M: core-text-renderer string-dim
37 [ " " string-dim { 0 1 } v* ]
38 [ cached-line dim>> scale-dim ]
41 M: core-text-renderer flush-layout-cache
42 cached-lines get-global purge-cache ;
44 M: core-text-renderer string>image
45 cached-line [ line>image ] [ loc>> scale-dim ] bi ;
47 M:: core-text-renderer x>offset ( x font string -- n )
51 swap scale 0 <CGPoint> CTLineGetStringIndexForPosition
52 2 * 0 swap string utf16n encode subseq
56 M:: core-text-renderer offset>x ( n font string -- x )
57 font string cached-line line>>
58 0 n string subseq utf16n encode length 2 /i
60 CTLineGetOffsetForStringIndex unscale ;
62 M: core-text-renderer font-metrics
65 M: core-text-renderer line-metrics
66 [ " " line-metrics clone 0 >>width ]
67 [ cached-line metrics>> scale-metrics ]
70 core-text-renderer font-renderer set-global