USING: kernel locals math math.matrices math.order math.vectors
prettyprint sequences ;
IN: benchmark.3d-matrix-scalar

:: p-matrix ( dim fov near far -- matrix )
    dim dup first2 min v/n fov v*n near v*n
    near far frustum-matrix4 ;

:: mv-matrix ( pitch yaw location -- matrix )
    { 1.0 0.0 0.0 } pitch rotation-matrix4
    { 0.0 1.0 0.0 } yaw   rotation-matrix4
    location vneg translation-matrix4 m. m. ;

:: 3d-matrix-scalar-benchmark ( -- )
    f :> result!
    100000 [
        { 1024.0 768.0 } 0.7 0.25 1024.0 p-matrix :> p
        3.0 1.0 { 10.0 -0.0 2.0 } mv-matrix :> mv
        mv p m. result!
    ] times
    result . ;

MAIN: 3d-matrix-scalar-benchmark