diff options
| author | Jacob Haip <jhaip@users.noreply.github.com> | 2023-04-24 02:58:33 +0000 |
|---|---|---|
| committer | Jacob Haip <jhaip@users.noreply.github.com> | 2023-04-24 02:58:33 +0000 |
| commit | b3cfcd67f3a0402b40b6cce6a115bf43a7c98ef8 (patch) | |
| tree | 2624a3a4f3aa9520a80face946750bad6987d322 /user-programs | |
| parent | add program to see threshold laser image and visualize detected blobs (diff) | |
| download | folk-b3cfcd67f3a0402b40b6cce6a115bf43a7c98ef8.tar.gz folk-b3cfcd67f3a0402b40b6cce6a115bf43a7c98ef8.zip | |
move laser folk programs to lamp's folder
Diffstat (limited to 'user-programs')
| -rw-r--r-- | user-programs/haippi7/laser-web-debug.folk (renamed from user-programs/folk-haip.local/laser-web-debug.folk) | 2 | ||||
| -rw-r--r-- | user-programs/haippi7/project-laser-dot.folk | 6 | ||||
| -rw-r--r-- | user-programs/haippi7/web-image.folk (renamed from user-programs/folk-haip.local/web-image.folk) | 0 |
3 files changed, 7 insertions, 1 deletions
diff --git a/user-programs/folk-haip.local/laser-web-debug.folk b/user-programs/haippi7/laser-web-debug.folk index f65107c2..0f7b26a0 100644 --- a/user-programs/folk-haip.local/laser-web-debug.folk +++ b/user-programs/haippi7/laser-web-debug.folk @@ -1,4 +1,4 @@ -When the collected matches for [list tag /t/ has center /c/ size /s/] are /matches/ { +When the collected matches for [list laser blob /t/ has center /c/ size /s/] are /matches/ { Wish the web server handles route "/laser-web-debug" with handler [list Evaluator::tryRunInSerializedEnvironment { set blobsHtml "<ol>" set blobsJson "" diff --git a/user-programs/haippi7/project-laser-dot.folk b/user-programs/haippi7/project-laser-dot.folk new file mode 100644 index 00000000..32e0b4b0 --- /dev/null +++ b/user-programs/haippi7/project-laser-dot.folk @@ -0,0 +1,6 @@ +When laser blob /t/ has center /c/ size /s/ { + lassign [::cameraToProjector $c] cx cy + # Display::stroke [list [list $cx $cy] [list [expr {$cx+1}] [expr {$cy+1}]]] 20 red + Display::text device $cx $cy 12 "Laser blob" 0 + puts "Drawing blobbbb at $cx $cy" +}
\ No newline at end of file diff --git a/user-programs/folk-haip.local/web-image.folk b/user-programs/haippi7/web-image.folk index 104cb43b..104cb43b 100644 --- a/user-programs/folk-haip.local/web-image.folk +++ b/user-programs/haippi7/web-image.folk |