main :: IO ()
main =
  let window = V2 800 600
      scale = V2 40 40
  in runMain "physics test" window $ IOWorld.demoMain (fmap fromIntegral window) scale
main :: IO ()
main =
  let window = V2 800 600
      scale = V2 40 40
  in runMain "physics test" window $ IOWorld.demoMain (fmap fromIntegral window) scale
main =
  let window = V2 800 600
      scale = V2 40 40
  in runMain "physics test" window $ IOWorld.demoMain (fmap fromIntegral window) scale