Commit before messing around with shaders

2022-06-16 14:02:21 +01:00
parent 2bc30d0a6b
commit 55341f7caf
7 changed files with 17 additions and 15 deletions
@@ -66,7 +66,7 @@ randProb p = do
    return (p1 < p)

 randInCirc :: RandomGen g => Float -> State g Point2
-randInCirc rad = randInArc rad (2*pi)
+randInCirc = flip randInArc (2*pi)

 randInArc :: RandomGen g => Float -> Float -> State g Point2
 randInArc = randInArcStrip 0