package require Plotchart


canvas .c

pack .c -fill both -expand yes

bind .c <Configure> redraw

proc redraw { } {
  .c delete all
  ::Plotchart::createXYPlot .c {0 1 0.1} {0 1 0.1}
}