steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-text: delay rendered line calculation until needed.

db4
John Benediktsson 2012-09-20 19:31:36 -07:00
parent 8295292855
commit fc7f7a736a
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
basis/core-text/core-text.factor
View File

@ -50,10 +50,8 @@ MEMO: make-attributes ( open-font color -- hashtable )
CTLineCreateWithAttributedString CTLineCreateWithAttributedString
] with-destructors ; ] with-destructors ;
TUPLE: line < disposable line metrics image loc dim rendered-line ; TUPLE: line < disposable font string line metrics image loc dim
render-loc render-dim ;
TUPLE: rendered-line font string loc dim ;
C: <rendered-line> rendered-line
: typographic-bounds ( line -- width ascent descent leading ) : typographic-bounds ( line -- width ascent descent leading )
{ CGFloat CGFloat CGFloat } { CGFloat CGFloat CGFloat }
@ -117,35 +115,38 @@ C: <rendered-line> rendered-line
:: <line> ( font string -- line ) :: <line> ( font string -- line )
[ [
line new-disposable line new-disposable
font cache-font :> open-font font cache-font :> open-font
string open-font font foreground>> <CTLine> |CFRelease :> line string open-font font foreground>> <CTLine> |CFRelease :> line
open-font line compute-line-metrics
[ >>metrics ] [ metrics>dim >>dim ] bi
font >>font
string >>string
line >>line
] with-destructors ;
line line-rect :> rect :: render ( line -- line image )
line line>> :> ctline
line string>> :> string
line font>> :> font
line render-loc>> [
ctline line-rect :> rect
rect origin>> CGPoint>loc :> (loc) rect origin>> CGPoint>loc :> (loc)
rect size>> CGSize>dim :> (dim) rect size>> CGSize>dim :> (dim)
(loc) [ floor ] map :> loc (loc) [ floor ] map :> loc
(loc) (dim) [ + ceiling ] 2map :> ext (loc) (dim) [ + ceiling ] 2map :> ext
ext loc [ - >integer 1 max ] 2map :> dim ext loc [ - >integer 1 max ] 2map :> dim
open-font line compute-line-metrics :> metrics
line >>line loc line render-loc<<
dim line render-dim<<
font string loc dim <rendered-line> >>rendered-line line metrics>> loc dim line-loc line loc<<
metrics >>metrics ] unless
metrics loc dim line-loc >>loc line render-loc>> :> loc
line render-dim>> :> dim
metrics metrics>dim >>dim
] with-destructors ;
:: render ( line -- line image )
line line>> :> ctline
line rendered-line>> string>> :> string
line rendered-line>> font>> :> font
line rendered-line>> loc>> :> loc
line rendered-line>> dim>> :> dim
line dim [ line dim [
{ {