let direct_ctrl_dpds = direct_x_dpds Dpd.Ctrl