Cleanup

2021-10-31 16:51:54 +00:00
parent e3a8417f07
commit 3efdb9e4f8
5 changed files with 28 additions and 87 deletions
@@ -3,7 +3,6 @@ module Dodge.LightSources.Lamp
    , tLight
    , lightAt
    , colorLightAt
-    , lampPic
    , lampCover
    , lampCoverWhen
    , doubleLampCover
@@ -73,10 +72,6 @@ tLight t rmax col (V3 x y z) = TLS
        | otherwise         = Just $ tls    
            & tlsTime -~ 1

-lampPic :: Float -> Picture
--{-# INLINE lampPic #-}
-lampPic h = setLayer 1 (setDepth h . color white $ circleSolid 3)
-
 lampCover :: Float -> Prop
 lampCover h = ShapeProp
    { _pjPos = V2 0 0