groupmatching.tcl

# $Id$ #

package require image
package require gfm

namespace eval gfm {
  proc computeGroupsMatch {
{fileName1}
{fileName2}
{reduction 2}
{scale 1}
{desiredNb 1000}
{threshold 3.0}
{doDisplay true}
} {
  global ref match
    set ref [image::JfrImage_loadImage $fileName1]
    set match [image::JfrImage_loadImage $fileName2]

    if {$reduction==1} {
      set ref_r $ref
      set match_r $match
    } else {
    # resize the ref image
      set ref_r [image::new_JfrImage \
        [expr round([$ref getWidth]/$reduction)]  \
        [expr round([$ref getHeight]/$reduction)] \
        [$ref getDepth] [$ref getnChannels]]
      $ref resize $ref_r

    # resize the match image  
      set match_r [image::new_JfrImage \
        [expr round([$match getWidth]/$reduction)]  \
        [expr round([$match getHeight]/$reduction)] \
        [$match getDepth] [$match getnChannels]]
      $match resize $match_r
    }

    set harrisdetector [gfm::new_HarrisDetector $scale 1.0 2.0 $::gfm::HarrisDetector_HS_EIGEN $threshold "false" $desiredNb]
    if {$scale==1} {
      set sndharrisdetector $harrisdetector
    } else {
      set sndharrisdetector [gfm::new_HarrisDetector $scale 1.0 2.0 $::gfm::HarrisDetector_HS_EIGEN $threshold "false" $desiredNb]
    }
#    set znccfactory [gfm::new_ZnccDescriptorFactory 4]
    set groupsize 5
    set minimalgroupsize 2
    set distance 20.0
    set closeness 0.6
    set weakcloseness 0.6
    set distinguability 0.1
    set rotationTolerance 0.2
    set scaleTolerance 10000.0
    set distanceTolerance 10.0
    set rotationDifferenceWithMedian 0.4
    set thresholdofenoughtgroup 0.333
    set groupsmatcher [gfm::new_GroupsMatcher 100000 100000 $groupsize $minimalgroupsize $distance $closeness $weakcloseness $distinguability $rotationTolerance $scaleTolerance $distanceTolerance $rotationDifferenceWithMedian $thresholdofenoughtgroup ]
    kernel::tic
    set engine [gfm::new_Engine $harrisdetector $groupsmatcher $sndharrisdetector]
    set result [gfm::Engine_computeMatch $engine $ref_r $match_r ]
    putsDbg "Time to match: [kernel::toc] ms"
    putsDbg "Number of matches: [$result nbMatches]"
    if {$doDisplay } {
      package require display
      display::show $ref_r "ref"
      displayHarrisPoints $ref_r [Result_points_ref_get $result ] true
      display::show $match_r "match"
      displayHarrisPoints $match_r [Result_points_match_get $result ] true
      displayMatch $ref_r $match_r [Result_matches_get $result ] true
    }
}

}

package provide gfm 0.4