Hough transform: Difference between revisions
Content deleted Content added
use proper wikilink for image |
→{{header|Tcl}}: remove unnecessary debugging bits |
||
Line 92: | Line 92: | ||
} |
} |
||
$trg put [list $row] -to 0 $rho |
$trg put [list $row] -to 0 $rho |
||
update; # Strictly not necessary, but provides a measure of progress. |
|||
} |
} |
||
} |
} |
||
Line 103: | Line 102: | ||
pack [label .l1.i -image srcImg] |
pack [label .l1.i -image srcImg] |
||
pack [label .l2.i -image targetImg] |
pack [label .l2.i -image targetImg] |
||
# Postpone until after we've drawn ourselves |
|||
update |
|||
HoughTransform srcImg targetImg |
after idle HoughTransform srcImg targetImg</lang> |
||
puts Done</lang> |