diff options
| author | Omar Rizwan <omar@omar.website> | 2022-12-04 20:25:17 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-12-04 20:25:17 +0000 |
| commit | 1f4d398ad751f625766e8fe884fc0b0577e14ba3 (patch) | |
| tree | 835fb08162bffa982f2df762a4b25d631e12e8b2 /virtual-programs | |
| parent | New udev instruction + fix keyboard thread :-) (diff) | |
| download | folk-1f4d398ad751f625766e8fe884fc0b0577e14ba3.tar.gz folk-1f4d398ad751f625766e8fe884fc0b0577e14ba3.zip | |
Delete rfid-calibration.folk virtual program
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/rfid-calibration.folk | 19 |
1 files changed, 0 insertions, 19 deletions
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" - } - } -} |