Artifact 1d99d860aa897571d082d0e8b704f5a5c5c0cbcd:

• File demos/concomp.tcl — part of check-in [86687258a5] at 2011-04-22 17:20:59 on branch kbk-extras — Filled out the data types for 'connected components' operators (user: kennykb size: 352) [more...]

def op_connected_components {
    label {Connected Components}
    setup {
	proc showit {} {
	    variable L
	    if {![info exists L]} return
	    set comps [crimp::connected_components $L 0]
	    show_image [crimp::FITFLOAT [crimp convert 2float $comps]]
	    return
	}
    }
    setup_image {
	variable L [crimp convert 2rgb [base]]
	showit
    }
}