justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hack fix to wall carving, expand polygon and retry if first cut fails

Browse Source
This commit is contained in:
jgk
2021-04-04 14:53:23 +02:00
parent 1b6b89f4d7
commit b218c9f298
3 changed files with 63 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Spec.hs
+2 -6
View File
@@ -41,7 +41,7 @@ shrinkTris (x:xs) = xs : map (x :) (shrinkTris xs)
genTri = zip <$> trip <*> trip
where
trip = vectorOf 3 $ fmap fromIntegral $ choose (0,5::Int)
trip = vectorOf 3 $ fmap fromIntegral $ choose (0,3::Int)
genTris = listOf genTri
@@ -49,9 +49,5 @@ genTris = listOf genTri
--extractLoops [] = []
--extractLoops (x:xs) =
--[[(4.0,10.0),(6.0,2.0),(3.0,0.0)],[(9.0,3.0),(2.0,5.0),(0.0,6.0)]]
--
--[[(314.0,-396.0),(0.0,-223.71985),(-239.32773,357.25983)],[(0.0,0.0),(-84.0,-177.0),(237.0,-355.5366)]]
--
--
--[[(5.0,2.0),(3.0,5.0),(1.0,2.0)],[(3.0,2.0),(2.0,0.0),(4.0,0.0)],[(5.0,1.0),(3.0,0.0),(3.0,1.0)]]
--[[(0.0,1.0),(3.0,4.0),(5.0,5.0)],[(2.0,0.0),(2.0,4.0),(1.0,1.0)],[(5.0,5.0),(2.0,2.0),(1.0,3.0)]]