sub setMaterialSpecularColor( material_id, color)

Sets the specular color of a material