diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-12 16:07:32 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-12 16:07:32 +0000 |
| commit | 9d7f172ec1bb3ad568b2c98d4dd2db45f532ed90 (patch) | |
| tree | 7f5a6834e0509745094b4704d9acd51c09ec556b /virtual-programs | |
| parent | Get rid of music logging in main log (diff) | |
| download | folk-9d7f172ec1bb3ad568b2c98d4dd2db45f532ed90.tar.gz folk-9d7f172ec1bb3ad568b2c98d4dd2db45f532ed90.zip | |
C cameraToProjector works!
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/tags-and-calibration.folk | 8 |
1 files changed, 4 insertions, 4 deletions
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), }; |