(bind-func xtm_dof
(lambda (x y fstop flength debug)
(set! XTM_DOF_ON #t)
(set! XTM_DOF_DEBUG debug)
(set! XTM_DOF_AUTOFOCUS #t)
(set! XTM_DOF_X x)
(set! XTM_DOF_X y)
(set! XTM_DOF_FSTOP fstop)
(set! XTM_DOF_FLENGTH flength)
void))