Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 deletions
@@ -36,7 +36,7 @@ lamp h = defaultInanimate
    }
 lampPic :: Float -> Picture
 lampPic h = pictures
-    [ setLayer 0 $ pictures . map (helpPoly3D . map ((, blue) . (-.-.- (V3 2.5 2.5 0)))) $ boxXYZ 5 5 (h-1)
+    [ setLayer 0 $ pictures . map (helpPoly3D . map ((, blue) . (-.-.- V3 2.5 2.5 0))) $ boxXYZ 5 5 (h-1)
    , setLayer 1 $ setDepth h $ color white $ circleSolid 3
    ]

@@ -56,7 +56,7 @@ updateLamp h i = unrandUpdate handleLS internalUpdate
        | otherwise    = w & lightSources . ix i . lsPos .~ f cPos
      where
        cPos = _crPos cr
-        f (V2 x y) = (V3 x y h)
+        f (V2 x y) = V3 x y h
    internalUpdate cr 
        | _crHP cr < 0 = Nothing
        | otherwise    = Just $ doDamage cr