diff options
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 |