core-text-renderer

Vocabulary

ui.text.core-text

Definition

IN: ui.text.core-text

SINGLETON: core-text-renderer

Methods

USING: kernel namespaces opengl ui.gadgets.worlds
ui.text.core-text ui.text.core-text.private ui.text.private ;

M: core-text-renderer draw-selected-string
    gl3-mode? get-global world get and
    [ draw-selected-line-tiles ]
    [ draw-selected-string-default ] if ;


USING: core-text kernel namespaces opengl ui.gadgets.worlds
ui.text.core-text ui.text.core-text.private ui.text.private ;

M: core-text-renderer draw-string*
    gl3-mode? get-global world get and
    [ cached-line draw-line-tiles ] [ draw-string-default ] if ;


USING: cache core-text namespaces ui.text.core-text
ui.text.private ;

M: core-text-renderer flush-layout-cache
    cached-lines get-global purge-cache ;


USING: core-text.fonts kernel ui.text ui.text.core-text
ui.text.private ;

M: core-text-renderer font-metrics
    cache-font-metrics clone scale-metrics ;


USING: accessors core-text kernel sequences ui.text
ui.text.core-text ui.text.private ;

M: core-text-renderer line-metrics
    [ " " line-metrics 0 >>width ]
    [ cached-line metrics>> clone scale-metrics ] if-empty ;


USING: accessors core-text opengl ui.text ui.text.core-text ;

M:: core-text-renderer offset>x ( n font string -- x )
    font string cached-line
    :> line line line>> n line line-index>utf16
    f CTLineGetOffsetForStringIndex gl-unscale ;


USING: core-text opengl sequences ui.text ui.text.core-text ;

M:: core-text-renderer selection-spans
    ( start end font string -- spans )
    font string cached-line start end line-selection-spans
    [ [ gl-unscale ] map ] map ;


USING: accessors core-text math.vectors sequences
ui.text.core-text ui.text.private ;

M: core-text-renderer string-dim
    [ " " string-dim { 0 1 } v* ]
    [ cached-line dim>> scale-dim ] if-empty ;


USING: accessors core-text kernel ui.text ui.text.core-text
ui.text.private ;

M: core-text-renderer string>image
    cached-line [ line>image ] [ loc>> scale-dim ] bi ;


USING: accessors core-graphics.types core-text kernel opengl
sequences ui.text ui.text.core-text ;

M:: core-text-renderer x>offset ( x font string -- n )
    string empty?
    [ 0 ] [
        font string cached-line
        :> line line line>> x gl-scale 0 <CGPoint>
        CTLineGetStringIndexForPosition line utf16>line-index
    ] if ;