createHead :: WormsObject
createHead = let pic = Tex (tileSize,tileSize) 5
             in object "head" pic True initPos (0,speedMod) NoObjectAttribute
createHead :: WormsObject
createHead = let pic = Tex (tileSize,tileSize) 5
             in object "head" pic True initPos (0,speedMod) NoObjectAttribute
createHead = let pic = Tex (tileSize,tileSize) 5
             in object "head" pic True initPos (0,speedMod) NoObjectAttribute