Posted to tcl by kbk at Tue Dec 01 12:39:48 GMT 2009view raw

  1. puts [package require Plotchart]
  2. grid [canvas .c -width 800 -height 375]
  3. set Aplot [Plotchart::createXYPlot .c [list 0 360 20] [list 0 1.0 0.2]]
  4. set Bplot [Plotchart::createRightAxis .c [list -1.0 1.0 0.2]]
  5. $Aplot xconfig -format %3.0f
  6. $Aplot yconfig -format %5.2f
  7. $Bplot yconfig -format %5.2f