blt.tcl

很不错的tcl编程实例

# 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 

# blt.tcl 
# This example needs blt_wish
# Purpose: simple demonstration of graph widget
#


blt_graph .g
.g config -title {Do they meet?}
pack .g -padx 5 -pady 5
set x {.1 .2 .3 .4 .5 .6 .7 .8 .9}
set y {}
foreach i $x {
   set yt [expr pow($i,2)*(1-$i) ]
   lappend y $yt
}
.g element create curve1 -symbol diamond -x $x -y $y 

set y2 {}
foreach i $x {
    set yt [expr pow($i,2)]
    lappend y2 $yt
}
.g element create curve2 -symbol cross -x $x -y $y2

button .quit -text Quit -command exit
pack .quit -fill x

#
# the following procedures are defined in features.tcl
# 
source features.tcl
SetZoom .g
SetActiveLegend .g