Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,12 +1,15 @@
 module Dodge.Tesla.Arc.Draw where
+
 import Dodge.Data.TeslaArc
 import Geometry
 import Picture
+
 drawTeslaArc :: TeslaArc -> Picture
-drawTeslaArc pt = setLayer BloomNoZWrite $ pictures 
-    [ setDepth 20.5 $ color (brightX 2 1 $ _taColor pt) $ thickLine  3 ps
-    , setDepth 20   $ color (V4 0 0 0 0.5)              $ thickLine 10 ps
-    ]
+drawTeslaArc pt =
+    setLayer BloomNoZWrite $
+        pictures
+            [ setDepth 20.5 $ color (brightX 2 1 $ _taColor pt) $ thickLine 3 ps
+            , setDepth 20 $ color (V4 0 0 0 0.5) $ thickLine 10 ps
+            ]
  where
    ps = _taPoints pt
-