+++ /dev/null
-#########################################################################################\r
-#\r
-# IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.\r
-#\r
-# By downloading, copying, installing or using the software you agree to this license.\r
-# If you do not agree to this license, do not download, install,\r
-# copy or use the software.\r
-#\r
-#\r
-# Intel License Agreement\r
-# For Open Source Computer Vision Library\r
-#\r
-# Copyright (C) 2000, Intel Corporation, all rights reserved.\r
-# Third party copyrights are property of their respective owners.\r
-#\r
-# Redistribution and use in source and binary forms, with or without modification,\r
-# are permitted provided that the following conditions are met:\r
-#\r
-# * Redistribution's of source code must retain the above copyright notice,\r
-# this list of conditions and the following disclaimer.\r
-#\r
-# * Redistribution's in binary form must reproduce the above copyright notice,\r
-# this list of conditions and the following disclaimer in the documentation\r
-# and/or other materials provided with the distribution.\r
-#\r
-# * The name of Intel Corporation may not be used to endorse or promote products\r
-# derived from this software without specific prior written permission.\r
-#\r
-# This software is provided by the copyright holders and contributors "as is" and\r
-# any express or implied warranties, including, but not limited to, the implied\r
-# warranties of merchantability and fitness for a particular purpose are disclaimed.\r
-# In no event shall the Intel Corporation or contributors be liable for any direct,\r
-# indirect, incidental, special, exemplary, or consequential damages\r
-# (including, but not limited to, procurement of substitute goods or services;\r
-# loss of use, data, or profits; or business interruption) however caused\r
-# and on any theory of liability, whether in contract, strict liability,\r
-# or tort (including negligence or otherwise) arising in any way out of\r
-# the use of this software, even if advised of the possibility of such damage.\r
-#\r
-#\r
-\r
-if {$tcl_platform(platform) == "windows"} {\r
- set default_normal_bg SystemButtonFace\r
- set default_normal_fg SystemButtonText\r
- set default_light_bg SystemScrollbar\r
- set default_dark_bg SystemDisabledText\r
- set default_window_bg SystemWindow\r
- set default_window_fg SystemWindowText\r
- set default_select_bg SystemHighlight\r
- set default_select_fg SystemHighlightText\r
-} else {\r
- set default_normal_bg #909090\r
- set default_normal_fg #000000\r
- set default_light_bg #000000\r
- set default_dark_bg #303030\r
- set default_window_bg #909090\r
- set default_window_fg #000000\r
- set default_select_bg #000080\r
- set default_select_fg #ffffff\r
-}\r
-\r
-namespace eval CVCsDemo {\r
- variable mainf\r
- variable sclframe\r
- variable tb\r
- variable statustext\r
-\r
- variable nb\r
-\r
- variable showtb 1\r
- variable showstb 1\r
- \r
- variable curcam\r
-\r
- variable curpage\r
- variable curframe\r
- variable curX "---"\r
- variable curY "---"\r
- \r
- variable pagesnum 0\r
- variable pagescount 0\r
- \r
- variable cams {}\r
- variable pages {}\r
-\r
- variable capturestate "0"\r
- variable pausestate "0"\r
- variable avistate "0"\r
- variable trackstate "0"\r
- variable nightstate "0"\r
- variable histstate "0"\r
- variable cam "0"\r
-}\r
-\r
-proc CVCsDemo::Modify {} {\r
- set CVCsDemo::cam [.dlg.frame.cb getvalue]\r
-}\r
-\r
-proc CVCsDemo::longmenu {on} {\r
- if {$on} {\r
- .menubar.file entryconfig 1 -state active\r
- } else {\r
- .menubar.file entryconfig 1 -state disabled\r
- }\r
-}\r
-\r
-proc CVCsDemo::longstbar {on} {\r
- if {$on} {\r
- pack $CVCsDemo::mainf.status.indf.f0 -side left -fill y -expand 1 \r
- } else {\r
- pack forget $CVCsDemo::mainf.status.indf.f0 \r
- }\r
-}\r
-\r
-proc CVCsDemo::longbar {on} {\r
- if {$on} {\r
- pack $CVCsDemo::tb.bbox1 -side left -anchor w\r
- pack $CVCsDemo::tb.sep1 -side left -fill y -padx 4 -anchor w\r
- pack $CVCsDemo::tb.bbox2 -side left -anchor w\r
- pack $CVCsDemo::tb.sep2 -side left -fill y -padx 4 -anchor w\r
- pack $CVCsDemo::tb.bbox3 -side left -anchor w\r
- pack $CVCsDemo::tb.sep3 -side left -fill y -padx 4 -anchor w\r
- pack $CVCsDemo::tb.bbox4 -side left -anchor w\r
- pack $CVCsDemo::sclframe -side bottom -expand no -anchor sw -fill x\r
- } else {\r
- pack forget $CVCsDemo::tb.bbox4\r
- pack forget $CVCsDemo::tb.sep3\r
- pack forget $CVCsDemo::tb.bbox3\r
- pack forget $CVCsDemo::tb.sep2\r
- pack forget $CVCsDemo::tb.bbox2\r
- pack forget $CVCsDemo::tb.sep1\r
- pack forget $CVCsDemo::tb.bbox1\r
- pack forget $CVCsDemo::sclframe\r
- }\r
-}\r
-\r
-proc CVCsDemo::about {} {\r
- set dlg [Dialog .aboutdlg -parent . -modal local \\r
- -separator 1 \\r
- -title "About CVCsDemo" \\r
- -side right \\r
- -anchor s \\r
- -default 0]\r
- $dlg add -name ok -width 5\r
- \r
- set top [$dlg getframe]\r
- \r
- image create photo original -file [file join $::image_path pictures/CVCsDemo.gif]\r
- canvas $top.c -bd 2 -relief ridge -width 295 -height 195 \r
- $top.c create image 0 0 -anchor nw -image original\r
- pack $top.c -side top -expand yes -fill x\r
-\r
- set frame [frame $top.f -background white -bd 2 -relief ridge]\r
- set lab [label $frame.lab1 -text \\r
- "Program CVCsDemo v. 1.0 \nIntel corporation. 2001 y." \\r
- -background white -font {times 8}]\r
- pack $lab\r
- pack $frame -side top -expand yes -fill x -padx 2 -pady 2\r
-\r
- $dlg draw\r
- destroy $dlg\r
-}\r
-\r
-proc getvar {name value} {\r
- upvar $name localVar\r
- upvar $value lvalue\r
- \r
- set localVar $lvalue\r
-}\r
-\r
-proc CVCsDemo::raisetab { } {\r
- set CVCsDemo::curpage [$CVCsDemo::nb raise]\r
- set CVCsDemo::curframe [$CVCsDemo::nb getframe $CVCsDemo::curpage].lab\r
- set pos [lsearch $CVCsDemo::pages $CVCsDemo::curpage]\r
- set CVCsDemo::curcam [lindex $CVCsDemo::cams $pos] \r
-}\r
-\r
-proc CVCsDemo::createtab {page text} {\r
- set path [$CVCsDemo::nb insert end $page -text $text \\r
- -raisecmd CVCsDemo::raisetab]\r
- \r
- label $path.lab -text "" -bg black -relief sunken\r
- pack $path.lab -side top -expand yes -fill both\r
-\r
- bind $path.lab <ButtonPress-1> {\r
- pButtonPress %x %y\r
- }\r
-\r
- bind $path.lab <ButtonRelease-1> {\r
- pButtonRelease %x %y\r
- }\r
-\r
- bind $path.lab <Motion> {\r
- pMotion %x %y\r
- }\r
-\r
- bind $path.lab <Configure> {\r
- pConfigure\r
- }\r
-}\r
-\r
-proc CVCsDemo::new {} {\r
-\r
- if {$CVCsDemo::pagesnum == 0} {\r
- set CVCsDemo::avistate "0"\r
- \r
- incr CVCsDemo::pagescount\r
- incr CVCsDemo::pagesnum\r
-\r
- CVCsDemo::longmenu 1\r
- CVCsDemo::longbar 1\r
- CVCsDemo::longstbar 1\r
-\r
- set CVCsDemo::curpage p[expr $CVCsDemo::pagescount]\r
- lappend CVCsDemo::pages $CVCsDemo::curpage\r
- lappend CVCsDemo::cams $CVCsDemo::curcam\r
-\r
- set text [format "Camera %i" $CVCsDemo::pagescount]\r
- CVCsDemo::createtab $CVCsDemo::curpage $text\r
- \r
- $CVCsDemo::nb see [$CVCsDemo::nb pages end]\r
- $CVCsDemo::nb raise [$CVCsDemo::nb pages end]\r
- update\r
- pInitCamera\r
- } else {\r
- tk_dialog .mes {Message} { CVCsDemo support only one camera.} {} 0 OK" \r
- }\r
-}\r
-\r
-proc CVCsDemo::close {} {\r
-\r
- set pos [lsearch $CVCsDemo::cams $CVCsDemo::curcam]\r
- set $CVCsDemo::cams [lreplace $CVCsDemo::cams $pos $pos]\r
- set $CVCsDemo::pages [lreplace $CVCsDemo::pages $pos $pos]\r
-\r
- $CVCsDemo::nb delete $CVCsDemo::curpage 1\r
- \r
- if {$CVCsDemo::curcam != ""} {\r
- #set ind [$CVCsDemo::tree index $CVCsDemo::curfile]\r
- #$CVCsDemo::tree delete $CVCsDemo::curfile\r
- }\r
-\r
- set CVCsDemo::pagesnum [expr $CVCsDemo::pagesnum - 1]\r
-\r
- if {$CVCsDemo::pagesnum == 0} {\r
- CVCsDemo::longmenu 0\r
- CVCsDemo::longbar 0\r
- #CVCsDemo::longstbar 0\r
- set CVCsDemo::curcam ""\r
- } else {\r
- set page [$CVCsDemo::nb pages end]\r
-\r
- set pos [lsearch $CVCsDemo::pages $CVCsDemo::curpage]\r
- set CVCsDemo::curcam [lindex $CVCsDemo::cams $pos]\r
- \r
- $CVCsDemo::nb see $page\r
- $CVCsDemo::nb raise $page\r
- }\r
- \r
- if {$CVCsDemo::avistate == 0} {\r
- pCloseCamera\r
- } else {\r
- pStopAvi\r
- }\r
-\r
- $CVCsDemo::tb.bbox1.b0 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/captureoff.gif]]\r
- set CVCsDemo::capturestate 0\r
-}\r
-\r
-proc CVCsDemo::pause {} {\r
- \r
- if { $CVCsDemo::pausestate == 1 } {\r
- $CVCsDemo::tb.bbox1.b1 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/pause.gif]]\r
- set CVCsDemo::pausestate 0\r
- \r
- if {$CVCsDemo::avistate == 0} {\r
- pResumeCamera\r
- } else {\r
- pResumeAvi\r
- }\r
-\r
- #$CVCsDemo::tb.bbox1.b1 configure -state disable\r
- #$CVCsDemo::tb.bbox2.b0 configure -state disable\r
- #$CVCsDemo::tb.bbox2.b1 configure -state disable\r
- #$CVCsDemo::tb.bbox2.b2 configure -state disable\r
- } else {\r
- $CVCsDemo::tb.bbox1.b1 configure -relief sunken \\r
- -image [Bitmap::get [file join $::image_path pictures/pause.gif]]\r
- set CVCsDemo::pausestate 1\r
-\r
- if {$CVCsDemo::avistate == 0} {\r
- pPauseCamera\r
- } else {\r
- pPauseAvi\r
- }\r
-\r
- #$CVCsDemo::tb.bbox1.b1 configure -state active\r
- #$CVCsDemo::tb.bbox2.b0 configure -state active\r
- #$CVCsDemo::tb.bbox2.b1 configure -state disable\r
- #$CVCsDemo::tb.bbox2.b2 configure -state disable\r
- }\r
-}\r
-\r
-proc CVCsDemo::capture {} {\r
- \r
- if { $CVCsDemo::capturestate == 1 } {\r
- $CVCsDemo::tb.bbox1.b0 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/captureoff.gif]]\r
- set CVCsDemo::capturestate 0\r
- pStopCamera\r
-\r
- $CVCsDemo::tb.bbox1.b1 configure -state disable\r
- $CVCsDemo::tb.bbox2.b0 configure -state disable\r
- $CVCsDemo::tb.bbox2.b1 configure -state disable\r
- $CVCsDemo::tb.bbox2.b2 configure -state disable\r
- } else {\r
- $CVCsDemo::tb.bbox1.b0 configure -relief sunken \\r
- -image [Bitmap::get [file join $::image_path pictures/capture.gif]]\r
- set CVCsDemo::capturestate 1\r
-\r
- if {$CVCsDemo::avistate == 0} {\r
- pStartCamera\r
- } else {\r
- pStartAvi\r
- }\r
-\r
- $CVCsDemo::tb.bbox1.b1 configure -state active\r
- $CVCsDemo::tb.bbox2.b0 configure -state active\r
- $CVCsDemo::tb.bbox2.b1 configure -state disable\r
- $CVCsDemo::tb.bbox2.b2 configure -state disable\r
- }\r
-}\r
-\r
-proc CVCsDemo::track {} {\r
-\r
- if { $CVCsDemo::trackstate == 1 } {\r
- $CVCsDemo::tb.bbox2.b0 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/trackoff.gif]]\r
- set CVCsDemo::trackstate 0\r
- pResetTrack\r
- $CVCsDemo::tb.bbox2.b1 configure -state disable\r
- $CVCsDemo::tb.bbox2.b2 configure -state disable\r
- } else {\r
- $CVCsDemo::tb.bbox2.b0 configure -relief sunken \\r
- -image [Bitmap::get [file join $::image_path pictures/track.gif]]\r
- set CVCsDemo::trackstate 1\r
- pSetTrack\r
- $CVCsDemo::tb.bbox2.b1 configure -state active\r
- $CVCsDemo::tb.bbox2.b2 configure -state active\r
- }\r
-}\r
-\r
-proc CVCsDemo::night {} {\r
-\r
- if { $CVCsDemo::nightstate == 1 } {\r
- $CVCsDemo::tb.bbox2.b1 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/nightoff.gif]]\r
- set CVCsDemo::nightstate 0\r
- pResetNight\r
- $CVCsDemo::tb.bbox2.b2 configure -state active\r
- } else {\r
- $CVCsDemo::tb.bbox2.b1 configure -relief sunken \\r
- -image [Bitmap::get [file join $::image_path pictures/night.gif]]\r
- set CVCsDemo::nightstate 1\r
- pSetNight\r
- $CVCsDemo::tb.bbox2.b2 configure -state disable\r
- }\r
-}\r
-\r
-proc CVCsDemo::gist {} {\r
-\r
- if { $CVCsDemo::histstate == 1 } {\r
- $CVCsDemo::tb.bbox2.b2 configure -relief raised \\r
- -image [Bitmap::get [file join $::image_path pictures/gist.gif]]\r
- set CVCsDemo::histstate 0\r
- pResetHist\r
- $CVCsDemo::tb.bbox2.b1 configure -state active\r
- } else {\r
- $CVCsDemo::tb.bbox2.b2 configure -relief sunken \\r
- -image [Bitmap::get [file join $::image_path pictures/gist.gif]]\r
- set CVCsDemo::histstate 1\r
- pSetHist\r
- $CVCsDemo::tb.bbox2.b1 configure -state disable\r
- }\r
-}\r
-\r
-proc CVCsDemo::setvideo {} {\r
- pSetVideo\r
-}\r
-\r
-proc CVCsDemo::camera {} {\r
- pSetCameraOpt\r
-}\r
-\r
-proc CVCsDemo::create { } {\r
- variable prgindic 0\r
- variable prgtext\r
- ## Create intro\r
- ###################################################################\r
- set top [toplevel .intro -relief raised -borderwidth 2]\r
- wm withdraw $top\r
- wm overrideredirect $top 1\r
- \r
- image create photo original -file [file join $::image_path pictures/CVCsDemo.gif]\r
- canvas $top.c -bd 2 -relief ridge -width 295 -height 195 \r
- $top.c create image 0 0 -anchor nw -image original\r
- pack $top.c -side top -expand yes -fill x\r
-\r
- set frame [frame $top.f -background white -bd 2 -relief ridge]\r
- set lab1 [label $frame.lab1 -text "Please wait for loading..." \\r
- -background white -font {times 8}]\r
- set lab2 [label $frame.lab2 -textvariable CVCsDemo::prgtext \\r
- -background white -font {times 8} -width 35]\r
- set prg [ProgressBar $frame.prg -width 50 -height 10 \\r
- -background white -variable CVCsDemo::prgindic -maximum 7]\r
- pack $lab1 $prg $lab2\r
- pack $frame -side top -expand yes -fill x -padx 2 -pady 2\r
-\r
- BWidget::place $top 0 0 center\r
- wm deiconify $top\r
-\r
- ###################################################################\r
- \r
- set CVCsDemo::prgtext "Loading font..."\r
- update\r
- SelectFont::loadfont\r
-\r
- incr CVCsDemo::prgindic\r
- set CVCsDemo::prgtext "Creating menu..."\r
- update\r
-\r
- #### Menu\r
- set menu {\r
- "&File" all file 0 {\r
- {command "&New" {} "New document" {} -command CVCsDemo::new}\r
- {command "&Close" {} "Close the document" {} -state disable \\r
- -command CVCsDemo::close}\r
- {separator}\r
- {command "E&xit" {} "Exit the program" {} -command exit}\r
- }\r
- "&View" all view 0 {\r
- {checkbutton "&Toolbar" {all view} "Show/hide toolbar" {} \\r
- -variable CVCsDemo::showtb \\r
- -command {$CVCsDemo::mainf showtoolbar 0 $CVCsDemo::showtb}\r
- }\r
- {checkbutton "&Statusbar" {all view} "Show/hide statusbar" {} \\r
- -variable CVCsDemo::showstb \\r
- -command {\r
- if {$CVCsDemo::showstb} {\r
- pack $CVCsDemo::mainf.botf -side bottom -fill x \r
- } else {\r
- pack forget $CVCsDemo::mainf.botf\r
- }\r
- }\r
- }\r
- }\r
- "&Options" all options 0 {\r
- {command "Came&ra" {} "Colors & fonts setup" {} -command CVCsDemo::camera}\r
- {command "&Video" {} "Colors & fonts setup" {} -command CVCsDemo::setvideo}\r
- }\r
- "&Help" all help 0 {\r
- {command "&About CVCsDemo" {} "Display the program info" {} \\r
- -command CVCsDemo::about}\r
- }\r
- }\r
-\r
- incr CVCsDemo::prgindic\r
- set CVCsDemo::prgtext "Creating MainFrame..."\r
- update\r
-\r
- set CVCsDemo::mainf [MainFrame .mainf -menu $menu \\r
- -textvariable CVCsDemo::statustext]\r
-\r
- menu .menubar.edit -tearoff 0 -background $::default_normal_bg\r
- MainFrame::_create_entries .mainf .menubar.edit \\r
- $::default_normal_bg {\\r
- {command "Cu&t" {} "Cut the selection" {} -command cut}\r
- {command "&Copy" {} "Copy the selection" {} -command copy}\r
- {command "&Paste" {} "Paste the clipboard" {} -command paste}\r
- {separator}\r
- {command "&Go to.." {} "Move to a specified place" {} -command paste}\r
- }\r
-\r
- incr CVCsDemo::prgindic\r
- set CVCsDemo::prgtext "Creating toolbar..."\r
- update\r
-\r
- #### toolbars creation\r
- set CVCsDemo::tb [$CVCsDemo::mainf addtoolbar]\r
-\r
- set bbox [ButtonBox $CVCsDemo::tb.bbox0 -spacing 0 -padx 1 -pady 1]\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/new.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief link -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Add new camera" -command CVCsDemo::new\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/open.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief link -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Load Avi" -command pInitAvi\r
- pack $bbox -side left -anchor w\r
- \r
- set sep [Separator $CVCsDemo::tb.sep0 -orient vertical]\r
- pack $sep -side left -fill y -padx 4 -anchor w\r
-\r
- set bbox [ButtonBox $CVCsDemo::tb.bbox1 -spacing 0 -padx 1 -pady 1]\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/captureoff.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief raised -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Start/Stop capture" -command CVCsDemo::capture\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/pause.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief raised -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Pause" -command CVCsDemo::pause -state disable\r
- \r
- set sep [Separator $CVCsDemo::tb.sep1 -orient vertical]\r
-\r
- set bbox [ButtonBox $CVCsDemo::tb.bbox2 -spacing 0 -padx 1 -pady 1]\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/trackoff.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief raised -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Start/Stop tracking" -command CVCsDemo::track\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/nightoff.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief raised -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Turn On/Off night mode" -command CVCsDemo::night\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/gist.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief raised -borderwidth 2 \\r
- -padx 1 -pady 1 -helptext "Turn On/Off histogram mode" -command CVCsDemo::gist\r
-\r
-\r
- set sep [Separator $CVCsDemo::tb.sep2 -orient vertical]\r
-\r
- set bbox [ButtonBox $CVCsDemo::tb.bbox3 -spacing 0 -padx 1 -pady 1]\r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/vidopt.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1 \\r
- -padx 1 -pady 1 -helptext "Set video format" \\r
- -command CVCsDemo::setvideo \r
- $bbox add -image [Bitmap::get [file join $::image_path pictures/camopt.gif]] \\r
- -highlightthickness 0 -takefocus 0 -relief link -borderwidth 1 \\r
- -padx 1 -pady 1 -helptext "Camera options"\\r
- -command CVCsDemo::camera \r
-\r
- set sep [Separator $CVCsDemo::tb.sep3 -orient vertical]\r
-\r
- set bbox [ButtonBox $CVCsDemo::tb.bbox4 -spacing 0 -padx 1 -pady 1]\r
- \r
- set CVCsDemo::sclframe [frame $CVCsDemo::mainf.sclf]\r
- set lab1 [label $CVCsDemo::sclframe.lab1 -text "Bins:"]\r
- set scl1 [scale $CVCsDemo::sclframe.scale1 -orient horizontal -length 32 -from 1 -to 255 \\r
- -command "pSetBins" -tickinterval 254]\r
- set lab2 [label $CVCsDemo::sclframe.lab2 -text "S:"]\r
- set scl2 [scale $CVCsDemo::sclframe.scale2 -orient horizontal -length 32 -from 0 -to 255 \\r
- -command "pSetS" -tickinterval 255]\r
- set lab3 [label $CVCsDemo::sclframe.lab3 -text "V1:"]\r
- set scl3 [scale $CVCsDemo::sclframe.scale3 -orient horizontal -length 32 -from 0 -to 255 \\r
- -command "pSetV1" -tickinterval 255]\r
- set lab4 [label $CVCsDemo::sclframe.lab4 -text "V2:"]\r
- set scl4 [scale $CVCsDemo::sclframe.scale4 -orient horizontal -length 32 -from 0 -to 255 \\r
- -command "pSetV2" -tickinterval 255]\r
-\r
- pack $lab1 -side left -expand no -anchor n\r
- pack $scl1 -side left -expand yes -anchor n -fill x\r
- pack $lab2 -side left -expand no -anchor n\r
- pack $scl2 -side left -expand yes -anchor n -fill x\r
- pack $lab3 -side left -expand no -anchor n\r
- pack $scl3 -side left -expand yes -anchor n -fill x\r
- pack $lab4 -side left -expand no -anchor n\r
- pack $scl4 -side left -expand yes -anchor n -fill x\r
- \r
- $scl1 set 10\r
- $scl2 set 20\r
- $scl3 set 40\r
- $scl4 set 255\r
-\r
- $CVCsDemo::tb.bbox2.b0 configure -state disable\r
- $CVCsDemo::tb.bbox2.b1 configure -state disable\r
- $CVCsDemo::tb.bbox2.b2 configure -state disable\r
-\r
- incr CVCsDemo::prgindic\r
- set CVCsDemo::prgtext "Creating statusbar..."\r
- update\r
-\r
- $CVCsDemo::mainf addindicator\r
- $CVCsDemo::mainf.status.indf.f0 configure -relief flat\r
-\r
- label $CVCsDemo::mainf.status.indf.f0.l0 -relief sunken -borderwidth 1 \\r
- -takefocus 0 -highlightthickness 0 -textvariable CVCsDemo::curcam\r
- pack $CVCsDemo::mainf.status.indf.f0.l0 -side left -fill y -expand 1\r
-\r
- label $CVCsDemo::mainf.status.indf.f0.l1 -relief flat -borderwidth 1 \\r
- -takefocus 0 -highlightthickness 0 -text "X:"\r
- pack $CVCsDemo::mainf.status.indf.f0.l1 -side left -fill y -expand 1\r
-\r
- label $CVCsDemo::mainf.status.indf.f0.l2 -relief sunken -borderwidth 1 \\r
- -takefocus 0 -highlightthickness 0 -textvariable CVCsDemo::curX\r
- pack $CVCsDemo::mainf.status.indf.f0.l2 -side left -fill y -expand 1\r
-\r
- label $CVCsDemo::mainf.status.indf.f0.l3 -relief flat -borderwidth 1 \\r
- -takefocus 0 -highlightthickness 0 -text "Y:"\r
- pack $CVCsDemo::mainf.status.indf.f0.l3 -side left -fill y -expand 1\r
-\r
- label $CVCsDemo::mainf.status.indf.f0.l4 -relief sunken -borderwidth 1 \\r
- -takefocus 0 -highlightthickness 0 -textvariable CVCsDemo::curY\r
- pack $CVCsDemo::mainf.status.indf.f0.l4 -side left -fill y -expand 1\r
- pack forget $CVCsDemo::mainf.status.indf.f0\r
-\r
- set CVCsDemo::prgtext "Creating manadger..."\r
- incr CVCsDemo::prgindic\r
- set CVCsDemo::nb [NoteBook $CVCsDemo::mainf.frame.nb -side top]\r
- pack $CVCsDemo::nb -fill both -expand yes -padx 1 -pady 1\r
- \r
- set CVCsDemo::prgtext "Done"\r
- incr CVCsDemo::prgindic\r
-\r
- pack $CVCsDemo::mainf -fill both -expand yes\r
- update idletasks\r
-\r
- unset CVCsDemo::prgindic\r
- unset CVCsDemo::prgtext\r
-\r
- destroy .intro\r
-}\r
-\r
-proc main {} {\r
- package require BWidget\r
- wm withdraw .\r
- wm title . "CVCsDemo"\r
-\r
- CVCsDemo::create\r
-\r
- BWidget::place . 640 480 center\r
- wm deiconify .\r
- raise .\r
- wm geometry . 640x480\r
-\r
- focus -force .\r
-}\r
-\r
-main\r
projects / opencv / blobdiff