Proof of coloured lighting concept

src/Dodge/Room/Placement.hs

@@ -12,6 +12,9 @@ import Geometry
 import Data.List
 import Control.Lens
 
+putColorLamp :: Point3 -> PSType
+putColorLamp col = PutCrit (colorLamp col 90)
+
 putLamp :: PSType
 putLamp = PutCrit (lamp 90)
 

src/Dodge/Room/Start.hs

@@ -4,6 +4,7 @@ import Dodge.Room.Data
 import Dodge.Room.Door
 import Dodge.Room.Link
 import Dodge.Room.Procedural
+import Dodge.Room.Placement
 import Dodge.Room.Foreground
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.LevelGen.Data
@@ -26,10 +27,10 @@ startRoom = do
                highPipe 80 (V2  0    (h/3)) (V2  w    (h/2))
             ++ highPipe 40 (V2  0    (h/2)) (V2  w    (h/3))
             ++ highPipe 60 (V2 (w/3)    0 ) (V2 (w/3)  h   )
-            -- ++ highPipe 20 (0,2*h/3) (w, h/3)
---            , girderV cola 10 (0,3*h/4) (w, 3*h/4)
---            , girder colb 5 (0,5*h/8) (w, 5*h/8)
-    treeFromPost [Left rezBox, Left door] . Right <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) $ roomRectAutoLinks w h & rmPS %~ (fground :))
+        theLamp = sPS (V2 (w/2) (h/2)) 0 $ putColorLamp (V3 0.75 0.25 0.25)
+    treeFromPost [Left rezBox, Left door] . Right 
+        <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
+                $ roomRectAutoLinks w h & rmPS .~ [fground,theLamp])
 --  where
 --    cola = dark . dark . light . light $ light red
 --    colb = dark . dark . light . light $ light blue