(bind-func cvGetHistValue_1D (lambda (hist:CvHistogram* idx:i32) (let ((bins (tref hist 1))) (dtof (cvGetReal1D bins idx)))))