external set_shininess : t -> face -> float -> unit = "material_set_shininess"