Most of the heat form contact metamorphism is supplied by