File: funcplot.tcl

package info (click to toggle)
swig 1.1p5-1
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 9,448 kB
  • ctags: 5,025
  • sloc: cpp: 21,599; ansic: 13,333; yacc: 3,297; python: 2,794; makefile: 2,197; perl: 1,984; tcl: 1,583; sh: 736; lisp: 201; objc: 143
file content (19 lines) | stat: -rw-r--r-- 371 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
# A Simple Tcl example that plots a 2D function

load ./gifplot.sl

source plot2d.tcl

set f [FrameBuffer -args 400 400]
set c [ColorMap -args "cmap"]
set p2 [Plot2D -args $f -6.3 -2 6.3 2]

# Now make a plot of a sin function

newplot $p2 1.57 0.25 "sin(x)" X Y
plotfunc $p2 "sin(x)" 100 $YELLOW $TRIANGLE

$f writeGIF $c "plot.gif" 

puts "Image writte to 'plot.gif'"