Fix picture vertex buffering bug

src/Dodge/Render/ShapePicture.hs

@@ -54,12 +54,14 @@ testSPic :: Config -> Universe -> SPic
 testSPic cfig u = noShape $ testPic cfig u
 
 testPic :: Config -> Universe -> Picture
-testPic _ _ = setLayer DebugLayer 
+testPic _ _ = f
     $ mempty
---    <> color white (line [0,10])
---    <> text "A"
+    <> color white (line [0,10])
+    <> text "A"
     <> translate 20 20 (arc pi 0 10)
     <> translate 0 20 (circleSolidCol white red 10)
+  where
+    f x = translate 5 20 (setLayer DebugLayer x) <> setLayer BloomLayer x
 --    fold $ do
 --    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 ----    return mempty