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 apply {{matches} {
upvar ^html ^html
set blobsHtml ""
set blobsJson ""
foreach match $matches {
append blobsHtml "- [dict get $match t]: [dict get $match c]
"
append blobsJson "{\"id\": [dict get $match t], \"x\": [lindex [dict get $match c] 0], \"y\": [lindex [dict get $match c] 1]},"
}
append blobsHtml "
"
append blobsJson ""
html [string map [list MY_BLOBS_HTML $blobsHtml MY_BLOBS_JSON $blobsJson] {
MY_BLOBS_HTML
}]
}} $matches]
}