From 69458182d940aca43e455d29969e09bd499d1fd8 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sun, 22 Dec 2024 15:36:45 +0000
Subject: [PATCH] Add file

---
 src/Dodge/Tesla/Draw.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/Dodge/Tesla/Draw.hs

diff --git a/src/Dodge/Tesla/Draw.hs b/src/Dodge/Tesla/Draw.hs
new file mode 100644
index 000000000..3daa2284a
--- /dev/null
+++ b/src/Dodge/Tesla/Draw.hs
@@ -0,0 +1,20 @@
+module Dodge.Tesla.Draw (
+    drawTeslaArc,
+) where
+
+import Picture.Base
+import Dodge.Data.TeslaArc
+import Control.Lens
+
+drawTeslaArc :: TeslaArc -> Picture
+drawTeslaArc pt =
+    setLayer BloomNoZWrite $
+        fold
+            [ setDepth 20.5 $ color (brightX 2 1 $ _taColor pt) $ thickLine x ps
+--            , setDepth 20 $ color (V4 0 0 0 0.5) $ thickLine 10 ps
+            ]
+  where
+    x | pt ^. taTimer > 0 = 3
+      | pt ^. taTimer >= 0  = 2
+      | otherwise = 0.5
+    ps = _taPoints pt