diff options
| author | Omar Rizwan <omar@omar.website> | 2023-10-02 21:51:38 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-10-02 21:51:38 +0000 |
| commit | f464de540f28f282ae6896e002e69e8f82ce6d64 (patch) | |
| tree | 94424bbdf2c0b9b60e9166793a12b6ef065c220f | |
| parent | calibrate: Save dense corr to debug, remove dupe jpeg saving logic (diff) | |
| download | folk-f464de540f28f282ae6896e002e69e8f82ce6d64.tar.gz folk-f464de540f28f282ae6896e002e69e8f82ce6d64.zip | |
calibrate: Just messing around but this works ok
| -rw-r--r-- | calibrate.tcl | 4 |
1 files 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); |