Fix ellipse shader coordinates

src/Dodge/Floor.hs

@@ -44,8 +44,6 @@ import System.Random
 {- | A test level tree. -}
 roomTreex :: RandomGen g => State g (Maybe [Room])
 roomTreex = do
-    --struct' <- aTreeStrut
---    let struct = treeFromPost [[SpecificRoom $ fmap (pure . Right) pistolerRoom]] [EndRoom]
     let struct = treeFromPost [[Corridor,SpecificRoom $ fmap (pure . Right) randomFourCornerRoom]] [EndRoom]
     let t' = padCorridors struct
         t = treeFromTrunk 
@@ -94,6 +92,5 @@ roomTreex = do
             t'
     shiftExpandTree . expandTreeBy id <$> mapM annoToRoomTree t
 
---swarmTestRoom :: 
 levx :: RandomGen g => State g [Room]
 levx = untilJust roomTreex