24 lines
675 B
Factor
24 lines
675 B
Factor
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
|