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

Merge branch 'master' of https://github.com/bgwines/image-triangles

Browse source
This commit is contained in:
Jack Wines 2018-12-27 22:56:05 -05:00
commit f010a45119
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

@ -66,7 +66,7 @@ genImage name nRounds nTrianglesPerRound areaCoeff randSeed = do
let renderTriangles' = renderTriangles img' nRounds dimensions areaCoeff nTrianglesPerRound
gen <- if randSeed == 0 then getStdGen else return $ mkStdGen randSeed
let triangles = zipWith renderTriangles' (genList gen) $ [1..nRounds]
return $ center . mconcat . withStrategy (parListChunk 800 rseq) $ triangles
return $ center . mconcat . withStrategy (parListChunk 800 rseq) $ reverse triangles
main :: IO ()
main = mainWith genImage