let set_project_dgrad p c = p.dgrad := c