Gecko [ sachasauda.akalacademy.ac.in ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
README	2.03 KB	-rw-r--r--
anilabel.tcl	6.51 KB	-rw-r--r--
aniwave.tcl	3.41 KB	-rw-r--r--
arrow.tcl	7.8 KB	-rw-r--r--
bind.tcl	2.87 KB	-rw-r--r--
bitmap.tcl	1.38 KB	-rw-r--r--
browse	1.72 KB	-rwxr-xr-x
button.tcl	1.47 KB	-rw-r--r--
check.tcl	2.22 KB	-rw-r--r--
clrpick.tcl	1.4 KB	-rw-r--r--
colors.tcl	4.88 KB	-rw-r--r--
combo.tcl	1.94 KB	-rw-r--r--
cscroll.tcl	3.31 KB	-rw-r--r--
ctext.tcl	4.76 KB	-rw-r--r--
dialog1.tcl	660 B	-rw-r--r--
dialog2.tcl	613 B	-rw-r--r--
en.msg	3.8 KB	-rw-r--r--
entry1.tcl	1.35 KB	-rw-r--r--
entry2.tcl	2.06 KB	-rw-r--r--
entry3.tcl	5.95 KB	-rw-r--r--
filebox.tcl	2.2 KB	-rw-r--r--
floor.tcl	77.24 KB	-rw-r--r--
form.tcl	1.02 KB	-rw-r--r--
goldberg.tcl	55.23 KB	-rw-r--r--
hello	512 B	-rwxr-xr-x
hscale.tcl	1.46 KB	-rw-r--r--
icon.tcl	2.01 KB	-rw-r--r--
image1.tcl	1002 B	-rw-r--r--
image2.tcl	3.28 KB	-rw-r--r--
items.tcl	9.5 KB	-rw-r--r--
ixset	7.91 KB	-rwxr-xr-x
knightstour.tcl	8.38 KB	-rw-r--r--
label.tcl	1.29 KB	-rw-r--r--
labelframe.tcl	1.8 KB	-rw-r--r--
license.terms	2.16 KB	-rw-r--r--
mclist.tcl	3.89 KB	-rw-r--r--
menu.tcl	6.57 KB	-rw-r--r--
menubu.tcl	4.37 KB	-rw-r--r--
msgbox.tcl	1.98 KB	-rw-r--r--
nl.msg	6.61 KB	-rw-r--r--
paned1.tcl	1.08 KB	-rw-r--r--
paned2.tcl	2.18 KB	-rw-r--r--
pendulum.tcl	7.46 KB	-rw-r--r--
plot.tcl	2.69 KB	-rw-r--r--
puzzle.tcl	2.54 KB	-rw-r--r--
radio.tcl	2.69 KB	-rw-r--r--
rmt	5.22 KB	-rwxr-xr-x
rolodex	8.11 KB	-rwxr-xr-x
ruler.tcl	5.09 KB	-rw-r--r--
sayings.tcl	2.21 KB	-rw-r--r--
search.tcl	4.29 KB	-rw-r--r--
spin.tcl	1.78 KB	-rw-r--r--
states.tcl	1.63 KB	-rw-r--r--
style.tcl	6.78 KB	-rw-r--r--
tclIndex	4.25 KB	-rw-r--r--
tcolor	10.99 KB	-rwxr-xr-x
text.tcl	3.34 KB	-rw-r--r--
textpeer.tcl	2.13 KB	-rw-r--r--
timer	1.09 KB	-rwxr-xr-x
toolbar.tcl	3.19 KB	-rw-r--r--
tree.tcl	3.29 KB	-rw-r--r--
ttkbut.tcl	3.34 KB	-rw-r--r--
ttkmenu.tcl	2.35 KB	-rw-r--r--
ttknote.tcl	2.41 KB	-rw-r--r--
ttkpane.tcl	3.95 KB	-rw-r--r--
ttkprogress.tcl	1.52 KB	-rw-r--r--
ttkscale.tcl	1.39 KB	-rw-r--r--
twind.tcl	10.57 KB	-rw-r--r--
unicodeout.tcl	3.45 KB	-rw-r--r--
vscale.tcl	1.44 KB	-rw-r--r--
widget	22.83 KB	-rwxr-xr-x

Code Editor : aniwave.tcl

# aniwave.tcl --
#
# This demonstration script illustrates how to adjust canvas item
# coordinates in a way that does something fairly similar to waveform
# display.

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

package require Tk

set w .aniwave
catch {destroy $w}
toplevel $w
wm title $w "Animated Wave Demonstration"
wm iconname $w "aniwave"
positionWindow $w

label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration contains a canvas widget with a line item inside it. The animation routines work by adjusting the coordinates list of the line; a trace on a variable is used so updates to the variable result in a change of position of the line." 
pack $w.msg -side top

## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x

# Create a canvas large enough to hold the wave. In fact, the wave
# sticks off both sides of the canvas to prevent visual glitches.
pack [canvas $w.c -width 300 -height 200 -background black] -padx 10 -pady 10 -expand yes

# Ensure that this this is an array
array set animationCallbacks {}

# Creates a coordinates list of a wave. This code does a very sketchy
# job and relies on Tk's line smoothing to make things look better.
set waveCoords {}
for {set x -10} {$x<=300} {incr x 5} {
    lappend waveCoords $x 100
}
lappend waveCoords $x 0 [incr x 5] 200

# Create a smoothed line and arrange for its coordinates to be the
# contents of the variable waveCoords.
$w.c create line $waveCoords -tags wave -width 1 -fill green -smooth 1
proc waveCoordsTracer {w args} {
    global waveCoords
    # Actual visual update will wait until we have finished
    # processing; Tk does that for us automatically.
    $w.c coords wave $waveCoords
}
trace add variable waveCoords write [list waveCoordsTracer $w]

# Basic motion handler. Given what direction the wave is travelling
# in, it advances the y coordinates in the coordinate-list one step in
# that direction.
proc basicMotion {} {
    global waveCoords direction
    set oc $waveCoords
    for {set i 1} {$i<[llength $oc]} {incr i 2} {
	if {$direction eq "left"} {
	    lset waveCoords $i [lindex $oc \
		    [expr {$i+2>[llength $oc] ? 1 : $i+2}]]
	} else {
	    lset waveCoords $i \
		    [lindex $oc [expr {$i-2<0 ? "end" : $i-2}]]
	}
    }
}

# Oscillation handler. This detects whether to reverse the direction
# of the wave by checking to see if the peak of the wave has moved off
# the screen (whose size we know already.)
proc reverser {} {
    global waveCoords direction
    if {[lindex $waveCoords 1] < 10} {
	set direction "right"
    } elseif {[lindex $waveCoords end] < 10} {
	set direction "left"
    }
}

# Main animation "loop". This calls the two procedures that handle the
# movement repeatedly by scheduling asynchronous calls back to itself
# using the [after] command. This procedure is the fundamental basis
# for all animated effect handling in Tk.
proc move {} {
    basicMotion
    reverser

# Theoretically 100 frames-per-second (==10ms between frames)
    global animationCallbacks
    set animationCallbacks(simpleWave) [after 10 move]
}

# Initialise our remaining animation variables
set direction "left"
set animateAfterCallback {}
# Arrange for the animation loop to stop when the canvas is deleted
bind $w.c <Destroy> {
    after cancel $animationCallbacks(simpleWave)
    unset animationCallbacks(simpleWave)
}
# Start the animation processing
move

${this.title}

Code Editor : aniwave.tcl