Make creature update an external function

2022-07-20 01:22:17 +01:00
parent db44d5d6ce
commit 1f79fe157f
31 changed files with 562 additions and 462 deletions
@@ -0,0 +1,12 @@
+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
+    ]
+  where
+    ps = _taPoints pt
+