Changeset 1979 for trunk/examples/video/dial/dialdemo.tcl

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.

File:

• trunk/examples/video/dial/dialdemo.tcl (modified) (2 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
 }