>shaped-font ( font -- font' )

Vocabulary

fonts.shaping.private

Inputs

font

an object

Outputs

font'

an object

Definition

IN: fonts.shaping.private

GENERIC: >shaped-font ( font -- font' )

Methods

USING: accessors combinators fonts fonts.shaping
fonts.shaping.private kernel ;

M: font >shaped-font
    shaped-font new H{ } clone >>shaping-options swap {
        [ name>> >>name ]
        [ size>> >>size ]
        [ bold?>> >>bold? ]
        [ italic?>> >>italic? ]
        [ foreground>> >>foreground ]
        [ background>> >>background ]
    } cleave ;


USING: accessors fonts.shaping fonts.shaping.private kernel ;

M: shaped-font >shaped-font
    clone [ clone ] change-shaping-options ;