Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Benchmark: Add another simple 3d test object

  • Loading branch information...
commit 161006de9804d13983628b285562c2a0226f1b28 1 parent bbe8a44
@bgamari bgamari authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.