Cleanup

2022-07-18 12:31:52 +01:00
parent 5495d33389
commit c14b3ff787
4 changed files with 50 additions and 29 deletions
@@ -28,7 +28,8 @@ moveTeslaArc thearc w pt
  where
    rcol = brightX 100 1.5 <$> takeOne [white,azure,blue,cyan]
    rdir = state (randomR (-0.7,0.7)) <&> (+ ld)
-    makeaspark = randColDirTimeSpark rcol rdir lp
+    rspeed = state (randomR (3,6))
+    makeaspark = randSpark rspeed rcol rdir lp
    makesparks = makeaspark . makeaspark . makeaspark
    (lp,ld) = case last thearc of
        ArcStep lp' ld' Nothing -> (lp',ld')