Defunction-ify item modules, requires more cleanup

src/Dodge/PtFlicker.hs

@@ -0,0 +1,11 @@
+module Dodge.PtFlicker where
+import Dodge.Data
+import Dodge.LightSource
+import LensHelp
+import Geometry
+
+ptFlicker :: Particle -> World -> World
+ptFlicker pt 
+    | _ptTimer pt `mod` 7 == 0 = tempLightSources 
+        .:~ tlsTimeRadColPos 1 70 (0.5 *.*.* xyzV4 (_ptColor pt)) (addZ 10 $ _ptPos pt)
+    | otherwise = id