modelview-text-clip ( rect matrix -- rect/f )

Vocabulary

ui.text.core-text.private

Inputs

rect	an object
matrix	an object

Outputs

rect/f

an object

Definition

USING: arrays kernel math math.rectangles math.vectors sequences
;

IN: ui.text.core-text.private

:: modelview-text-clip ( rect matrix -- rect/f )
    matrix first :> sx 5 matrix nth :> sy sx zero? sy zero? or
    1 matrix nth zero? 4 matrix nth zero? and not or
    3 matrix nth zero? 7 matrix nth zero? and 15 matrix nth
    1 number= and not or
    [ f ] [
        12 matrix nth 13 matrix nth 2array
        :> translation sx sy 2array :> scale rect rect-extent
        [ translation v- scale v/ ] bi@ :> ( a b ) a b vmin
        a b vmax <extent-rect>
    ] if ;