Add lights to buttons, cleanup

src/Dodge/LevelGen/Data.hs

@@ -18,6 +18,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutFlIt Item
     | PutPressPlate PressPlate
     | PutBlock [Int] Color [Point2]
+    | PutCoordinate Point2
     | PutLineBlock Wall Float Float Point2 Point2
     | PutWall { _pwPoly :: [Point2] , _pwWall :: Wall }
     | PutSlideDoor Bool Color (World -> Bool) Point2 Point2 Float
@@ -36,6 +37,7 @@ data Placement = Placement
     { _placementSpot :: PlacementSpot
     , _idPlacement :: Int -> Maybe Placement 
     }
+  | PlacementPos Point3 (Point3 -> Placement)
 
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a pt) (const Nothing)