scale-metrics ( metrics -- metrics' )

Vocabulary

ui.text.core-text.private

Inputs

metrics

an object

Outputs

metrics'

an object

Definition

USING: accessors kernel namespaces opengl ;

IN: ui.text.core-text.private

: scale-metrics ( metrics -- metrics' )
    gl-scale-factor get-global [
        clone [ gl-unscale ] change-width
        [ gl-unscale ] change-ascent
        [ gl-unscale ] change-descent
        [ gl-unscale ] change-height
        [ gl-unscale ] change-leading
        [ gl-unscale ] change-cap-height
        [ gl-unscale ] change-x-height
    ] when ; inline