From f464de540f28f282ae6896e002e69e8f82ce6d64 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 2 Oct 2023 17:51:38 -0400 Subject: calibrate: Just messing around but this works ok --- calibrate.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/calibrate.tcl b/calibrate.tcl index 14addc99..5f1c6ff2 100644 --- a/calibrate.tcl +++ b/calibrate.tcl @@ -57,9 +57,9 @@ $cc code { int captureNum = 0; uint8_t* delayThenCameraCapture(Tcl_Interp* interp, const char* description) { - usleep(100000); + usleep(500000); - Tcl_Eval(interp, "Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; set rgb [Camera::frame]; set gray [Camera::rgbToGray $rgb]; Camera::freeImage $rgb; dict get $gray data"); + Tcl_Eval(interp, "Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; Camera::freeImage [Camera::frame]; set rgb [Camera::frame]; set gray [Camera::rgbToGray $rgb]; Camera::freeImage $rgb; dict get $gray data"); uint8_t* image; sscanf(Tcl_GetStringResult(interp), "(uint8_t*) 0x%p", &image); Tcl_ResetResult(interp); -- cgit v1.2.3