(bind-func xtm_dof
(lambda (distance fstop flength debug)
(set! XTM_DOF_ON #t)
(set! XTM_DOF_DEBUG debug)
(set! XTM_DOF_AUTOFOCUS #f)
(set! XTM_DOF_DISTANCE distance)
(set! XTM_DOF_FSTOP fstop)
(set! XTM_DOF_FLENGTH flength)
void))