Changeset 998 for trunk/examples/zoo/sequence
- Timestamp:
- Apr 24, 2008, 1:32:03 PM (16 years ago)
- Location:
- trunk/examples/zoo/sequence
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/examples/zoo/sequence/sequence.tcl
r428 r998 28 28 set zoomi [image create photo -width $zwd -height $zht] 29 29 30 $driver put output.sequence(outs).about.label "Animated sequence" 31 $driver put output.sequence(outs).index.label "Frame" 32 30 33 for {set n 0} {$n < $nframes} {incr n} { 31 34 set frac [expr {($n+1)/double($nframes)}] … … 35 38 $zoomi copy $imh -from $x0 $y0 36 39 37 $driver put output.sequence(outs).element($n).index [expr {$n+1}] 40 set index [expr {$n+1}] 41 $driver put output.sequence(outs).element($n).index $index 38 42 $driver put output.sequence(outs).element($n).image.current \ 39 43 [$zoomi data -format jpeg] 44 $driver put output.sequence(outs).element($n).about.label "$index of $nframes" 40 45 } 41 46 -
trunk/examples/zoo/sequence/tool.xml
r428 r998 36 36 </integer> 37 37 </input> 38 <output>39 <sequence id="outs">40 <about><label>Animated sequence</label></about>41 <index><label>Frame</label></index>42 </sequence>43 </output>44 38 </run>
Note: See TracChangeset
for help on using the changeset viewer.