Add boss room, tweak launchers

src/Dodge/Room/Placement.hs

@@ -15,6 +15,10 @@ singleBlock :: Point2 -> [PlacementSpot]
 singleBlock a = [PS a 0 $ PutBlock [5,20,20] (greyN 0.5)
                                         $ reverse $ rectNSWE 10 (-10) (-10) 10]
 
+{-
+Places a line of blocks between two points.
+Width 9, also extends out from each point by 9.
+ -}
 blockLine :: Point2 -> Point2 -> PlacementSpot
 blockLine a b = PS
     { _psPos    = (0,0)
@@ -22,6 +26,10 @@ blockLine a b = PS
     , _psType   = PutLineBlock baseBlockPane 9 9 a b
     }
 
+{-
+Places an breakable window between two points.
+Width 8, also extends out from each point by 8.
+ -}
 windowLine :: Point2 -> Point2 -> PlacementSpot
 windowLine a b = PS 
     { _psPos    = (0,0)
@@ -29,6 +37,26 @@ windowLine a b = PS
     , _psType   = PutLineBlock baseWindowPane 8 8 a b
     }
 
+{-
+Places an unbreakable window between two points.
+Width 7, also extends out from each point by 7.
+ -}
+crystalLine :: Point2 -> Point2 -> PlacementSpot
+crystalLine a b = PS 
+    { _psPos    = (0,0)
+    , _psRot    = 0
+    , _psType   = PutWindow ps $ withAlpha 0.5 aquamarine
+    }
+  where
+    ps = 
+        [ a +.+ left +.+ up
+        , (a +.+ left) -.- up
+        , (b -.- left) -.- up
+        , (b -.- left) +.+ up
+        ]
+    left = 7 *.* normalizeV (a-.-b)
+    up   = vNormal left
+
 windowLineType :: Point2 -> Point2 -> PSType
 windowLineType a b = PutLineBlock baseWindowPane 8 8 a b