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

bug fixes, x and y coords were swapped

Browse source
This commit is contained in:
Jack Wines 2018-12-18 21:43:08 -05:00
parent ceb03f8e98
commit 30e714bd60
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Main.hs
View file

@ -24,6 +24,7 @@ main :: IO ()
main = do
image <- readImageRGB VU "sierra.jpg"
gen <- getStdGen
print gen
let dims = (cols image, rows image)
let triangleList = sortOn Tri.area . withStrategy (parListChunk 50 rseq) . take 50 . map (Tri.getRandomTriangle image) . genList $ gen
let triangleList = sortOn (negate . Tri.area) . withStrategy (parListChunk 50 rseq) . take 600 . map (Tri.getRandomTriangle image) . genList $ gen
mainWith . mconcat . map (renderTri image) $ triangleList

2
src/Render.hs
View file

@ -18,7 +18,7 @@ makeTriangle verts col = fromVertices verts
-- tupleFromIntegral :: (Int, Int) -> (Int, Int) -> (Double, Double)
tupleFromIntegral (cols, rows) (a, b) = (fromIntegral a, fromIntegral b)
tupleFromIntegral (cols, rows) (a, b) = (fromIntegral b, fromIntegral a)
-- tupleFromIntegral (cols, rows) (a, b) = ((a `divv` cols) , ((rows - b) `divv` rows))
divv :: Int -> Int -> Double