capture.tcl

# $Id$

namespace eval image  {

    variable cont
    variable image
    variable capture
    variable captureLoopId

    proc captureStart { {cameraIndex 0} } {
  variable capture
  variable captureLoopId

  package require display

  set capture [image::new_Capture $cameraIndex]
  
  display::show [$capture image]

  set captureLoopId [after 100 ::image::captureRefresh]
    }

    proc captureRefresh {} {
  variable capture
  variable captureLoopId

  $capture grabFrame
  display::refresh [$capture image]

  set captureLoopId [after 100 ::image::captureRefresh]
    }

    proc captureStop {} {
  variable capture
  variable captureLoopId
  after cancel $captureLoopId
  ::display::destroy [$capture image]
  ::image::delete_Capture $capture
    }

  proc captureGui { {cameraIndex 0} } {
    variable cont
    variable capture
    variable captureLoopId

    package require display

    set cont 0
    set capture [image::new_Capture $cameraIndex]
    display::show [$capture image]
    frame .[$capture image].control
      button .[$capture image].control.stop -text "Stop" -command {image::captureGui_stop}
      grid configure .[$capture image].control.stop -column 0 -row 0
      button .[$capture image].control.step -text "Step" -command {image::captureGui_step}
      grid configure .[$capture image].control.step -column 1 -row 0
      button .[$capture image].control.play -text "Play" -command {image::captureGui_play}
      grid configure .[$capture image].control.play -column 2 -row 0
    button .[$capture image].control.quit -text "Quit" -command {image::captureGui_quit}
      grid configure .[$capture image].control.quit -column 4 -row 0
      pack .[$capture image].control -side left
  
    return [$capture image]
  }
  
  proc captureGui_stop {} {
    variable cont
    set cont 0
  }
  
  proc captureGui_play {} {
    variable cont
    variable captureLoopId
    set cont 1
    set captureLoopId [after 100 ::image::captureGui_refresh]
  }
  
  proc captureGui_step {} {
    variable cont
    variable capture
    variable captureLoopId
    captureGui_stop
    $capture grabFrame
    display::refresh [$capture image]
  }
  
  proc captureGui_refresh {} {
    variable cont
    variable capture
    variable captureLoopId
    $capture grabFrame
    display::refresh [$capture image]
    if {[expr !$cont]} {
    return
      }
      set captureLoopId [after 100 ::image::captureGui_refresh]
  }
  
  proc captureGui_quit {} {
    variable cont
    variable capture
    variable captureLoopId
    after cancel $captureLoopId
    ::display::destroy [$capture image]
    ::image::delete_Capture $capture
  }

}

package provide image 2.0