let
set_project_dgrad p c = p.dgrad := c