mo.tcl

很不错的tcl编程实例

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"


# an example for animation
#   in canvas
#

# Copyright 1996


# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# [e-mail]

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# [e-mail]

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 


frame .mv_ex
wm title . "Animation in canvas"
pack .mv_ex
canvas .mv_ex.c 
pack .mv_ex.c
button .mv_ex.c.but -text Credits -command displayInfo
.mv_ex.c create window 218 153 -window .mv_ex.c.but


proc displayInfo {} {
    .mv_ex.c create text 10 10 -text "A Moving Story" -tags st -anchor nw
    .mv_ex.c create text 20 30 -text "by" -tags st -anchor nw
    .mv_ex.c create text 15 50 -text "Venkat V V S S Sastry" -tags st -anchor nw
    bell
    movie st 250 
   .mv_ex.c.but configure -text Stop -command \
		{global id
		 bell
    		 after cancel $id
       		.mv_ex.c.but configure -text {The End}
    		after 1000
    		.mv_ex.c.but configure -text Quit -command {exit} 
    		}
}

proc movie {ta tim} {
  global id
  .mv_ex.c move $ta 1 1
  set id [after $tim movie $ta $tim]

}