Simplify sparks

2025-06-07 10:07:16 +01:00
parent 7bee1549bf
commit b4bdfbf2c3
13 changed files with 101 additions and 102 deletions
@@ -559,9 +559,8 @@ updateTeslaArc w pt
    thearc = _taArcSteps pt
    makeaspark =
        randSpark
-            ELECTRICAL
+            ElectricSpark
            (state (randomR (3, 6)))
-            (brightX 100 1.5 <$> takeOne [white, azure, blue, cyan])
            rdir
            lp
    makesparks = makeaspark . makeaspark . makeaspark