Play around with tesla arcs

src/RandomHelp.hs

@@ -137,3 +137,8 @@ randPeakedParam i a b c = do
 
 randPeaked :: RandomGen g => Float -> Float -> Float -> State g Float
 randPeaked = randPeakedParam 3
+
+randFromPair :: RandomGen g => Float -> (a,a) -> State g a
+randFromPair x (l,r) = do
+    y <- state $ randomR (0,1)
+    if x < y then return l else return r