Changeset 1979 for trunk/examples/video

Timestamp:

Dec 8, 2010, 12:39:39 AM (14 years ago)

Author:

dkearney

Message:

video widget updates

RpVideo?.c - adding support for seeking backwards one frame.
previously, seeking backwards left us at the closest previous
key frame. we now seek forward again to get to the frame we
really wanted.

switch.tcl - added -showtext and -showimage flags so we can
use this widget as a checkbox. used in video drawing tool's
popup menus.

Location:

trunk/examples/video

Files:

• dial/dialdemo.tcl (modified) (2 diffs)
• piv/piv.tcl (modified) (3 diffs)

trunk/examples/video/dial/dialdemo.tcl

@@ -35 +35 @@
     -min $min\
     -max $max \
+    -minortick 1 \
+    -majortick 5 \
     -knobimage "" \
     -knobposition ne@bottom
@@ -43 +45 @@
 after 200 {
     update idletasks
-#    .f.d3 mark start 5
-#    .f.d3 mark end 10
-#    .f.d3 mark particle0 17
-#    .f.d3 mark particle1 10
-#    .f.d3 mark particle2 4
-#    .f.d3 mark particle3 54
-#    .f.d3 mark particle2 33
-#    .f.d3 mark arrow 17
-    .f.d3 bball
+    .f.d3 mark add loopstart 5
+    .f.d3 mark add loopend 10
+    .f.d3 mark add particle0 17
+    .f.d3 mark add particle1 10
+    .f.d3 mark add particle2 4
+    .f.d3 mark add particle3 54
+    .f.d3 mark add particle2 33
+    .f.d3 mark add particle1000 1000
+    .f.d3 mark add particle1100 1100
+    .f.d3 mark add particle1200 1200
+    .f.d3 mark add particle1300 1300
+    .f.d3 mark add particle1400 1400
+    .f.d3 mark add particle1500 1500
+    .f.d3 mark add particle1600 1600
+    .f.d3 mark add particle1700 1700
+    .f.d3 mark add particle1800 1800
+    .f.d3 mark add particle1900 1900
+    .f.d3 mark add particle2000 2000
+    .f.d3 mark add arrow 17
+#    .f.d3 bball
 }
 

trunk/examples/video/piv/piv.tcl

@@ -79 +79 @@
 $intro.scroller.html load $html
 
-# about page controls
-set aboutcntls [frame $f.aboutcntls]
-button $aboutcntls.next -text "Mark Particles" -command {$nb current next>}
-pack $aboutcntls.next -side left -expand yes -padx 4 -pady 1
+set demo [frame $f.demo]
 
 blt::table $f \
     0,0 $intro -rowspan 3 -fill both \
-    1,1 $loader -fill x \
-    2,1 $aboutcntls -fill x
+    0,1 $demo -fill x \
+    1,1 $loader -fill x
 
 blt::table configure $f c* -resize both
@@ -96 +93 @@
 # ------------------------------------------------------------------
 
-set f [$nb insert end main]
-$f configure -width 830 -height 530
-Rappture::VideoScreen $f.viewer -width 830 -height 530
-$loader.go configure -command {$nb current next>; $f.viewer loadcb}
+set f [$nb insert end video]
+set movieViewer [Rappture::VideoScreen $f.viewer]
+$loader.go configure -command {$nb current next>; $movieViewer loadcb}
 
-#Rappture::VideoViewer $f.viewer
-#$f.viewer load "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-05-55.mp4"
-#$f.viewer load "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-09-56.mp4"
-#$f.viewer load "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-13-56.mp4"
-#$f.viewer load "/home/derrick/junk/coa360download56Kbps240x160.mpg"
-pack $f.viewer -expand yes -fill both
+pack $movieViewer -expand yes -fill both
 
 # ------------------------------------------------------------------
@@ -112 +103 @@
 # ------------------------------------------------------------------
 
-$f configure -width 2 -height 2
 $nb current about
+wm geometry . 900x600
 wm deiconify .
+update idletasks
+
+# for testing we automatically load a video
+array set videoFiles [list \
+    1 "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-05-55.mp4" \
+    2 "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-09-56.mp4" \
+    3 "/home/derrick/projects/piv/video/TOPHAT_06-03-10_16-13-56.mp4" \
+    4 "/home/derrick/junk/coa360download56Kbps240x160.mpg" \
+]
+$nb current video
+update idletasks
+$movieViewer load file $videoFiles(1)