function CopyMaterial( smaterial_id)

Returns a copy of a material