display.tcl

# $Id$ #

#
#/** display related macro. \file display.tcl  \ingroup gfm */
#

package require kernel
package require image
package require display
package require gfm

namespace eval gfm {

    # Display the image along with its given corners in vecPoints
    # 
    # WARNING : Macro defined to display OfflineTracker results         
    #
    # parameters:
    #             enableClick: if true, vecPoints must be valid when image is 
    #                          clicked (if not "segmentation fault")
    proc displayTrackedHarrisPoints { image_r vecPoints {enableClick "false"} {color "red"} } {
  
  if $enableClick {set indexMap ""}
  
  set colorSquare "blue"
  
        for {set i 0} {$i < [gfm::sizeInterestFeatureVec $vecPoints]} {incr i} {
            
      set ip [gfm::getInterestFeatureVec $vecPoints $i]
      set ipu [gfm::getUFromIP $ip ]
      set ipv [gfm::getVFromIP $ip ]      
      set id  [gfm::InterestPoint_id $ip]
      
      set tkIds [display::drawCross $image_r $ipu $ipv 3 1 $color {jafar gfm_point}]
      
      display::drawSquare $image_r [expr round($ipu)] [expr round($ipv)] 5 1 $colorSquare {jafar hpm_match}
      display::drawText $image_r [expr round($ipu)] [expr round($ipv - 10 )] "$id" $colorSquare "c" {jafar hpm_match} 
      
      if $enableClick {
    foreach id $tkIds {
        lappend indexMap $id $i
    }
      }
  }
  if $enableClick {
      bind .$image_r <ButtonPress-1> "::gfm::printHarrisPointIndex $image_r $vecPoints \{$indexMap\}"
  }
  
    }
    


# display the image along with its given corners in vecPoints
# parameters:
#             enableClick: if true, vecPoints must be valid when image is 
#                          clicked (if not "segmentation fault")
  proc displayHarrisPoints { image_r vecPoints {enableClick "false"} {color "red"} } {
    if $enableClick {set indexMap ""}
    for {set i 0} {$i < [gfm::sizeInterestPointVec $vecPoints]} {incr i} {
      set ip [gfm::getInterestPointVec $vecPoints $i]
      set ipu [gfm::getUFromIP $ip ]
      set ipv [gfm::getVFromIP $ip ]
      set tkIds [display::drawCross $image_r $ipu $ipv 3 1 $color {jafar gfm_point}]
      if $enableClick {
        foreach id $tkIds {
          lappend indexMap $id $i
        }
      }
    }
    if $enableClick {
      bind .$image_r <ButtonPress-1> "::gfm::printHarrisPointIndex $image_r $vecPoints \{$indexMap\}"
    }
  }


  proc printHarrisPointIndex {img vecPoints indexMap} {
    set tkId [.$img.$img find withtag current]
    array set indexMapArray $indexMap
    set index $indexMapArray($tkId)
    putsDbg "point index: $index"
    putsDbg [gfm::print [gfm::getInterestPointVec $vecPoints $index]]
  }

  
  proc displayMatch {ref_r match_r vecMatches {doDisplayNum "true"} {color "green"}} {
    for {set i 0} {$i < [sizeMatchesVec $vecMatches]} {incr i} {
      set hp1 [getMatchFirst [ getMatchesVec $vecMatches $i]]
      set hp2 [getMatchSecond [ getMatchesVec $vecMatches $i]]
      display::drawSquare $ref_r [expr round([ InterestPoint_u $hp1 ])] [expr round([ InterestPoint_v $hp1 ])] 5 1 $color {jafar hpm_match}
      if $doDisplayNum {
    display::drawText $ref_r [expr round([ InterestPoint_u $hp1 ] )] [expr round([InterestPoint_v $hp1] - 10 )] "$i" $color "c" {jafar hpm_match}
      }
      display::drawSquare $match_r [expr round([ InterestPoint_u $hp2 ])] [expr round([InterestPoint_v $hp2 ])] 5 1 $color {jafar hpm_match}
      if $doDisplayNum {
    display::drawText $match_r [expr round([ InterestPoint_u $hp2 ] )] [expr round([InterestPoint_v $hp2 ] - 10 )] "$i" $color "c" {jafar hpm_match}
      }
    }
  }


  proc displayTrack {match_image vecMatches {color "blue"}} {
      for {set i 0} {$i < [sizeMatchesVec $vecMatches]} {incr i} {
    set hp1 [getMatchFirst  [getMatchesVec $vecMatches $i] ]
    set hp2 [getMatchSecond [getMatchesVec $vecMatches $i] ]
    
    display::drawLine $match_image \
        [expr round([$hp1 u])] [expr round([$hp1 v])] \
        [expr round([$hp2 u])] [expr round([$hp2 v])] \
        1 $color {jafar gfm_track}

      }
  }
  
}

package provide gfm 0.4