-USING: kernel locals math math.matrices.simd math.order math.vectors
-math.vectors.simd prettyprint sequences typed ;
+USING: kernel math math.matrices.simd math.vectors
+math.vectors.simd prettyprint typed ;
QUALIFIED-WITH: alien.c-types c
-SIMD: c:float
IN: benchmark.3d-matrix-vector
: v2min ( xy -- xx )
float-4{ 0.0 1.0 0.0 0.0 } yaw rotation-matrix4
location vneg translation-matrix4 m4. m4. ;
-:: 3d-matrix ( -- )
+:: 3d-matrix-vector-benchmark ( -- )
f :> result!
100000 [
float-4{ 1024.0 768.0 0.0 0.0 } 0.7 0.25 1024.0 p-matrix :> p
] times
result . ;
-MAIN: 3d-matrix
+MAIN: 3d-matrix-vector-benchmark