From 9d7f172ec1bb3ad568b2c98d4dd2db45f532ed90 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Wed, 12 Jul 2023 12:07:32 -0400 Subject: C cameraToProjector works! --- virtual-programs/tags-and-calibration.folk | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/tags-and-calibration.folk b/virtual-programs/tags-and-calibration.folk index f6b3414d..62ea21e6 100644 --- a/virtual-programs/tags-and-calibration.folk +++ b/virtual-programs/tags-and-calibration.folk @@ -77,11 +77,11 @@ $cc proc ::cameraToProjector {Tcl_Interp* interp Tcl_Obj* cameraPoint} Tcl_Obj* exit(1); } - int cx, cy; - if (Tcl_GetIntFromObj(interp, cameraPointElements[0], &cx) != TCL_OK) { + double cx, cy; + if (Tcl_GetDoubleFromObj(interp, cameraPointElements[0], &cx) != TCL_OK) { exit(1); } - if (Tcl_GetIntFromObj(interp, cameraPointElements[1], &cy) != TCL_OK) { + if (Tcl_GetDoubleFromObj(interp, cameraPointElements[1], &cy) != TCL_OK) { exit(1); } @@ -94,7 +94,7 @@ $cc proc ::cameraToProjector {Tcl_Interp* interp Tcl_Obj* cameraPoint} Tcl_Obj* Hx = Hx / Hz; Hy = Hy / Hz; - Tcl_Obj* projectorPoint_v[] = { + Tcl_Obj* projectorPoint_v[] = { Tcl_NewDoubleObj(Hx), Tcl_NewDoubleObj(Hy), }; -- cgit v1.2.3