better readme

README.md

@@ -31,8 +31,10 @@ run with
 ```
 
 ### todo
-* Why is the area wrong for the top right corner?
-* Rasterization for triangles
+* Why is the area wrong for the top right corner? Could be a problem with area fn or with Diagrams laying them out improperly. 
+* Rasterization for triangles.
+Note, this is implemented but loops without stop for seed #713314263. generates 500 triangles, filters the 200 smallest
+Also indexOOBs for seed 426958934, 100 traingles no sort. Seems to be integer overflow, but that doesn't make much sense
 * Cmdline interface that lets you set number of triangles, and smallness
 * Pointy triangle filter
 * Confirm diagrams is rendering triangles in the correct places.

src/Main.hs

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

src/Render.hs

@@ -14,7 +14,7 @@ makeTriangle verts col = fromVertices verts
                        # strokeLocLoop 
                        # fc col
                        # lw 0
-                       # opacity 0.8
+                       # opacity 0.2
 
 
 -- tupleFromIntegral :: (Int, Int) -> (Int, Int) -> (Double, Double)