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

Reverse order of triangles (fixes opacity issue)

Browse source
This commit is contained in:
Brett Wines 2018-12-25 22:22:05 -05:00
parent 0f7271e646
commit 56aa754007
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