font-traits ( font -- n )


Vocabulary
core-text.fonts

Inputs
fontan object


Outputs
nan object


Definition
USING: accessors kernel math ;

IN: core-text.fonts

: font-traits ( font -- n )
[ 0 ] dip
[ bold?>> [ kCTFontBoldTrait bitor ] when ]
[ italic?>> [ kCTFontItalicTrait bitor ] when ] bi ;