When the collected results for [list laser blob /t/ has center /c/ size /s/] are /results/ {
Wish the web server handles route "/laser-web-debug" with handler [list apply {{results} {
upvar ^html ^html
set blobsHtml ""
set blobsJson ""
foreach result $results {
append blobsHtml "- [dict get $result t]: [dict get $result c]
"
append blobsJson "{\"id\": [dict get $result t], \"x\": [lindex [dict get $result c] 0], \"y\": [lindex [dict get $result c] 1]},
}
append blobsHtml "
"
append blobsJson ""
html [string map [list MY_BLOBS_HTML $blobsHtml MY_BLOBS_JSON $blobsJson] {
MY_BLOBS_HTML
}]
}} $results]
}