Trippy flamer

2021-08-28 14:33:23 +01:00
parent 882a8e9824
commit 3a8b28a916
10 changed files with 81 additions and 28 deletions
@@ -179,5 +179,17 @@ defaultPP = PressPlate
    , _ppText = "Pressure plate"
    }

-
+defaultTLS :: TempLightSource
+defaultTLS = TLS
+    { _tlsPos = 0
+    , _tlsRad = 0
+    , _tlsIntensity = 0.5
+    , _tlsUpdate = f
+    , _tlsTime = 1
+    }
+  where
+    f w t 
+        | _tlsTime t <= 0 
+                    = (w, Nothing)
+        | otherwise = (w, Just $ t & tlsTime -~ 1)