Posted to tcl by kbk at Tue Dec 01 12:39:48 GMT 2009view raw
- puts [package require Plotchart]
- grid [canvas .c -width 800 -height 375]
- set Aplot [Plotchart::createXYPlot .c [list 0 360 20] [list 0 1.0 0.2]]
- set Bplot [Plotchart::createRightAxis .c [list -1.0 1.0 0.2]]
- $Aplot xconfig -format %3.0f
- $Aplot yconfig -format %5.2f
- $Bplot yconfig -format %5.2f