Jack/image-triangles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

bug fix, smaller triangles were lowest instead of highest

Browse source
This commit is contained in:
Jack Wines 2018-12-18 21:51:54 -05:00
parent 30e714bd60
commit 6e61dc893d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -26,5 +26,5 @@ main = do
gen <- getStdGen
print gen
let dims = (cols image, rows image)
let triangleList = sortOn (negate . Tri.area) . withStrategy (parListChunk 50 rseq) . take 600 . map (Tri.getRandomTriangle image) . genList $ gen
let triangleList = sortOn (Tri.area) . withStrategy (parListChunk 50 rseq) . take 600 . map (Tri.getRandomTriangle image) . genList $ gen
mainWith . mconcat . map (renderTri image) $ triangleList