Add file

src/Dodge/Render/InfoBox.hs

@@ -0,0 +1,15 @@
+module Dodge.Render.InfoBox where
+import Dodge.Data
+--import Dodge.Base.Window
+--import Dodge.Base.WinScale
+import Dodge.Render.Connectors
+import Dodge.Render.List
+import Dodge.Base.Coordinate
+import Picture
+import Geometry
+--import Control.Monad
+--import Data.Maybe
+
+renderInfoListAt :: Float -> Float -> Configuration -> World -> (Point2,[String]) -> Picture
+renderInfoListAt x y cfig w (p,ss) = renderListAt x y cfig (zip ss (repeat white))
+    <> zConnect (V2 x y) (worldPosToScreenNorm cfig w p)