Changeset 1927 for trunk/examples/video


Ignore:
Timestamp:
Oct 19, 2010 6:18:44 PM (10 years ago)
Author:
dkearney
Message:

fixed layout issues with minordial canvas.
added -minortick and -majortick options to control how tick marks were layed out.
updated marker placement estimation code to handle placement of marker when a tick for a frame does not exist.
added current marker flag.
updated dialdemo test code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/examples/video/dialdemo.tcl

    r1926 r1927  
    44
    55package require RapptureGUI
     6
     7#wm geometry . 600x300
    68
    79set w 0
     
    3537    -min $min\
    3638    -max $max \
     39    -minortick 20 \
     40    -majortick 100 \
    3741    -knobimage "" \
    38     -knobposition ne@bottom
     42    -knobposition center@bottom
    3943
    4044#pack .f.d1 -expand yes -fill both
     
    4347after 200 {
    4448    update idletasks
    45 #    .f.d3 mark start 5
    46 #    .f.d3 mark end 10
    47 #    .f.d3 mark particle0 17
    48 #    .f.d3 mark particle1 10
    49 #    .f.d3 mark particle2 4
    50 #    .f.d3 mark particle3 54
    51 #    .f.d3 mark particle2 33
    52 #    .f.d3 mark arrow 17
    53     .f.d3 bball
     49    .f.d3 mark start 5
     50    .f.d3 mark end 76
     51    .f.d3 mark particle0 17
     52    .f.d3 mark particle1 10
     53    .f.d3 mark particle2 4
     54    .f.d3 mark particle3 54
     55    .f.d3 mark particle2 33
     56    .f.d3 mark particle1000 1001
     57    .f.d3 mark particle1100 1101
     58    .f.d3 mark particle1200 1201
     59    .f.d3 mark particle1300 1301
     60    .f.d3 mark particle1400 1401
     61    .f.d3 mark particle1500 1501
     62    .f.d3 mark particle1600 1601
     63    .f.d3 mark particle1700 1701
     64    .f.d3 mark particle1800 1801
     65    .f.d3 mark particle1900 1901
     66    .f.d3 mark particle2000 2001
     67    .f.d3 mark arrow 17
     68#    .f.d3 bball
    5469}
    5570
    5671
    57 set t 6000
    58 #after idle play
     72set t 0
     73# after 500 play
    5974proc play {} {
    6075    global t min max
    61     if {($t+1) < 7000} {
     76    if {($t+1) <= $max} {
    6277        incr t
    6378        .f.d3 current $t
    64         after 8 play
     79        after 10 play
    6580    }
    6681}
Note: See TracChangeset for help on using the changeset viewer.