newExplosionT :: ExplosionT
newExplosionT = ExplosionT
    { _eType       = 0
    , _eEnt        = unsafePerformIO (newIORef newEntityT)
    , _eFrames     = 0
    , _eLight      = 0
    , _eLightColor = V3 0 0 0
    , _eStart      = 0
    , _eBaseFrame  = 0
    }
newExplosionT :: ExplosionT
newExplosionT = ExplosionT
    { _eType       = 0
    , _eEnt        = unsafePerformIO (newIORef newEntityT)
    , _eFrames     = 0
    , _eLight      = 0
    , _eLightColor = V3 0 0 0
    , _eStart      = 0
    , _eBaseFrame  = 0
    }
newExplosionT = ExplosionT
    { _eType       = 0
    , _eEnt        = unsafePerformIO (newIORef newEntityT)
    , _eFrames     = 0
    , _eLight      = 0
    , _eLightColor = V3 0 0 0
    , _eStart      = 0
    , _eBaseFrame  = 0
    }