slab-vertices ( slab -- av at ac bv bt bc cv ct cc dv dt dc )

Vocabulary

papier.render

Inputs

slab

an object

Outputs

av	an object
at	an object
ac	an object
bv	an object
bt	an object
bc	an object
cv	an object
ct	an object
cc	an object
dv	an object
dt	an object
dc	an object

Definition

USING: accessors combinators kernel math.matrices.simd
math.vectors math.vectors.simd sequences ;

IN: papier.render

: slab-vertices
    ( slab -- av at ac bv bt bc cv ct cc dv dt dc )
    [ matrix>> ] [ [ frame>> ] [ texcoords>> ] bi nth ]
    [ color>> ] tri {
        [ [ float-4{ -1.0 -1.0 0.0 1.0 } m4.v ] [ ] [ ] tri* ]
        [
            [ float-4{ 1.0 -1.0 0.0 1.0 } m4.v ]
            [ { 2 1 0 3 } vshuffle ] [ ] tri*
        ]
        [
            [ float-4{ -1.0 1.0 0.0 1.0 } m4.v ]
            [ { 0 3 2 1 } vshuffle ] [ ] tri*
        ]
        [
            [ float-4{ 1.0 1.0 0.0 1.0 } m4.v ]
            [ { 2 3 0 1 } vshuffle ] [ ] tri*
        ]
    } 3cleave ; inline