module Main (main) where

import Physics.Hpysics ( Config(Config)
                       , Vec(Vec)
                       )
import Physics.Hpysics.Body (World(World))
import Physics.Hpysics.Visualization ( renderWorld
                                     )

main :: IO ()
main = do
  runSim

runSim :: IO ()
runSim = do
  let w = World [] $ Config $ Vec 0 0 (-10)
  renderWorld w
  return ()