From 1f4d398ad751f625766e8fe884fc0b0577e14ba3 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Sun, 4 Dec 2022 15:25:17 -0500 Subject: Delete rfid-calibration.folk virtual program --- virtual-programs/rfid-calibration.folk | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 virtual-programs/rfid-calibration.folk (limited to 'virtual-programs') diff --git a/virtual-programs/rfid-calibration.folk b/virtual-programs/rfid-calibration.folk deleted file mode 100644 index 8d8c5607..00000000 --- a/virtual-programs/rfid-calibration.folk +++ /dev/null @@ -1,19 +0,0 @@ -Wish $this has filename "rfid-calibration.folk" - -set radiox -815.2; set radioy 1629.4 - -set filename "rfid-calibration-[clock format [clock seconds] -format "%Y-%m-%d-%H-%M-%S"].csv" -Wish $this is labelled $filename -set fd [open $filename "w"] - -When the RFID tag has phase /radians/ { - When /calibrator/ is the RFID tag calibrator { - When tag $calibrator has center /c/ size /size/ { - lassign [cameraToProjector $c] cx cy - set trueDist [expr {sqrt(($cx-$radiox)*($cx-$radiox) + ($cy-$radioy)*($cy-$radioy))}] - Wish $this is labelled "true distance: $trueDist\nradians: $radians" - Wish display runs [list Display::circle $radiox $radioy $trueDist 5 green] - puts $fd "$::stepCount,$trueDist,$radians" - } - } -} -- cgit v1.2.3