(bind-func ocv_puttext (lambda (mat:ocv_Mat* text location fontFace fontScale color thinkness) (PutText (tref mat 0) text location fontFace fontScale color thinkness)))