Gnu plot with Tcl

gnuplot.tcl

package require Tk
eval [exec gnuplot << "
    set term tk
    set key fixed left top vertical Right noreverse enhanced autotitle box lt black linewidth 1.000 dashtype solid
    set samples 50, 50
    set title \"Simple Plots\" 
    set title  font \",14\" textcolor lt 1 norotate
    set xrange \[ * : * \] noreverse writeback
    set x2range \[ * : * \] noreverse writeback
    set yrange \[ * : * \] noreverse writeback
    set y2range \[ * : * \] noreverse writeback
    set zrange \[ * : * \] noreverse writeback
    set cbrange \[ * : * \] noreverse writeback
    set rrange \[ * : * \] noreverse writeback
    NO_ANIMATION = 1
    plot \[-10:10\] sin(x),atan(x),cos(atan(x))
"]
pack [canvas .c]
gnuplot .c