defaultBody :: Body
defaultBody = Body {
    bMass = 1,
    bPosition = vec 0,
    bVelocity = vec 0,
    bForce = vec 0,
    bAngularMass = packMat $ diagonal (vec 1),
    bAngularPosition = Q (1:.0:.0:.0:.()),
    bAngularVelocity = vec 0,
    bAngularForce = vec 0,
    bDrag = 0,
    bAngularDrag = 0
    }
defaultBody :: Body
defaultBody = Body {
    bMass = 1,
    bPosition = vec 0,
    bVelocity = vec 0,
    bForce = vec 0,
    bAngularMass = packMat $ diagonal (vec 1),
    bAngularPosition = Q (1:.0:.0:.0:.()),
    bAngularVelocity = vec 0,
    bAngularForce = vec 0,
    bDrag = 0,
    bAngularDrag = 0
    }
defaultBody = Body {
    bMass = 1,
    bPosition = vec 0,
    bVelocity = vec 0,
    bForce = vec 0,
    bAngularMass = packMat $ diagonal (vec 1),
    bAngularPosition = Q (1:.0:.0:.0:.()),
    bAngularVelocity = vec 0,
    bAngularForce = vec 0,
    bDrag = 0,
    bAngularDrag = 0
    }