Example:Hough transform/Tcl: Difference between revisions

Example:Hough transform/Tcl (view source)

66 bytes added , 1 year ago

m

Fixed syntax highlighting.

9,485

edits

Revision as of 10:45, 18 November 2010 (view source) rosettacode>Dkf m (Add SMW link) ← Older edit		Latest revision as of 22:53, 30 August 2022 (view source) PureFox (talk \| contribs) m (Fixed syntax highlighting.)
(One intermediate revision by one other user not shown)
Line 1: [[implementation of task::Hough transform\| ]] =={{Programming-example-page\|~~task=~~Hough transform\|language=Tcl}}== <~~lang~~syntaxhighlight lang="tcl">package require Tk set PI 3.1415927 Line 75: $trg put [list $row] -to 0 $rho } }</~~lang~~syntaxhighlight> ===Demonstration Code=== Line 81: {{works with\|Tk\|8.6}} or TkImg <~~lang~~syntaxhighlight lang="tcl"># Demonstration code if {[catch { package require Tk 8.6; # Just for PNG format handler Line 96: pack [label .l2.i -image targetImg] # Postpone until after we've drawn ourselves after idle HoughTransform srcImg targetImg [lrange $argv 1 end]</~~lang~~syntaxhighlight> [[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.]]