virtual-programs/laser.folk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

return

source vendor/blobdetect/blobdetect.tcl

When the camera frame is /grayFrame/ {
    set blobTime [time {
        set threshold 250
        set blobs [::BlobDetect::detect $grayFrame $threshold]
    }]
    Commit {
        Claim the blob detection time is $blobTime
        foreach blob $blobs {
            Claim laser blob [dict get $blob id] has center [dict get $blob center] size [dict get $blob size]
        }
    }
}