Browse files

Benchmark: Add another simple 3d test object

  • Loading branch information...
1 parent bbe8a44 commit 161006de9804d13983628b285562c2a0226f1b28 @bgamari bgamari committed Dec 10, 2012
Showing with 8 additions and 0 deletions.
  1. +8 −0 Benchmark.hs
View
8 Benchmark.hs
@@ -27,6 +27,13 @@ object2 = squarePipe (10,10,10) 1 100
(map (\n->(n/precision)*y) [0..precision])
(map (\n->(n/precision)*z) [0..precision])
+object3 :: SymbolicObj3
+object3 =
+ difference
+ [ rect3R 1 (-1,-1,-1) (1,1,1)
+ , rect3R 1 (0,0,0) (2,2,2)
+ ]
+
obj2Benchmarks :: String -> SymbolicObj2 -> Benchmark
obj2Benchmarks name obj =
bgroup name
@@ -44,6 +51,7 @@ obj3Benchmarks name obj =
benchmarks =
[ obj3Benchmarks "Object 1" object1
, obj3Benchmarks "Object 2" object2
+ , obj3Benchmarks "Object 3" object3
]
main = defaultMain benchmarks

0 comments on commit 161006d

Please sign in to comment.