make-ortho-matrix ( left right bottom top near far -- floats )

Vocabulary

ui.render

Inputs

left	an object
right	an object
bottom	an object
top	an object
near	an object
far	an object

Outputs

floats

an object

Definition

USING: combinators.smart math
specialized-arrays.instances.alien.c-types.float ;

IN: ui.render

:: make-ortho-matrix
    ( left right bottom top near far -- floats )
    right left - :> width top bottom - :> height far near -
    :> depth 2.0 width / :> a1 2.0 height / :> b2 -2.0 depth /
    :> c3 right left + width / neg :> tx top bottom + height /
    neg :> ty far near + depth / neg :> tz [
        a1 0.0 0.0 0.0 0.0 b2 0.0 0.0 0.0 0.0 c3 0.0 tx ty tz
        1.0
    ] float-array{ } output>sequence ;