traverses materials, applies fix_func on vraymtl material

traverseMaterials.ms

fn traverseMaterials materialList fix_func = (
/*traverses materials, applies fix_func on vraymtl materials */
for mat in materialList do(
    if mat != undefined then(
        if (classof mat) == vraymtl then(
            fix_func(mat)
            )
        else if (classof mat) == multimaterial then(
            traverseMaterials mat.materialList fix_func
            )
        else if (classof mat) == VRayBlendMtl then(
            traverseMaterials #(mat.coatMtl, mat.baseMtl) fix_func
            )
        else if (classof mat) == VRay2SidedMtl then(
            traverseMaterials #(mat.frontMtl, mat.backMtl) fix_func
            )
        )
    )
)

traverseMaterials sceneMaterials myFineFunc