sub setMaterialDiffuseColor( material_id, color)

Set's a material's diffuse color