Tweak pipes and girders

2021-09-26 15:21:32 +01:00
parent d641e96502
commit c0480f0ad6
5 changed files with 39 additions and 20 deletions
@@ -3,10 +3,12 @@ module Dodge.LightSources
    , tLight
    , lightAt
    , colorLightAt
+    , lampPic
    )
    where
 import Dodge.Data
 import Geometry.Data
+import Picture

 import Control.Lens

@@ -57,3 +59,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)