Example:Hough transform/Tcl: Difference between revisions
m
Fixed syntax highlighting.
(remove libheader. I think the category part is screwing up SMW embed.) |
m (Fixed syntax highlighting.) |
||
(5 intermediate revisions by 3 users not shown) | |||
Line 1:
{{Programming-example-page|Hough transform|language=Tcl}}
<
set PI 3.1415927
Line 74 ⟶ 75:
$trg put [list $row] -to 0 $rho
}
}</
===Demonstration Code===
Line 80 ⟶ 81:
{{works with|Tk|8.6}} or TkImg
<
if {[catch {
package require Tk 8.6; # Just for PNG format handler
Line 95 ⟶ 96:
pack [label .l2.i -image targetImg]
# Postpone until after we've drawn ourselves
after idle HoughTransform srcImg targetImg [lrange $argv 1 end]</
[[Image:Hough-Pentagon-Tcl-Results.gif|thumb|left|360x200px|Image produced by Tcl implementation of the Hough transform when applied to the sample pentagon image.]]
|