Add a simple performance test with a big obj file
This commit is contained in:
parent
9dcf1e30f9
commit
9751f0f7d6
21
PerformanceTest.hs
Normal file
21
PerformanceTest.hs
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
import Algorithms.ConvexHull.GrahamScan
|
||||||
|
import Parser.Meshparser
|
||||||
|
import System.Environment
|
||||||
|
import System.FileSystem.FileExt
|
||||||
|
import MyPrelude
|
||||||
|
|
||||||
|
|
||||||
|
main = do
|
||||||
|
a <- getArgs
|
||||||
|
mesh <- readFile (head a)
|
||||||
|
print . grahamCH . meshToArr $ mesh
|
||||||
|
|
||||||
|
|
||||||
|
{- real 0m0.031s -}
|
||||||
|
{- user 0m0.029s -}
|
||||||
|
{- sys 0m0.001s -}
|
||||||
|
|
||||||
|
|
||||||
|
{- real 0m0.027s -}
|
||||||
|
{- user 0m0.026s -}
|
||||||
|
{- sys 0m0.000s -}
|
33198
Spacestation.obj
Normal file
33198
Spacestation.obj
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user