Description: |
2 errors:
1)
plotchart.tcl
(2.0.1)
proc ::Plotchart::polarToPixel { w rad phi } {
variable torad
set xcrd [expr {$rad*cos($phi*$torad)}]
set ycrd [expr {$rad*sin($phi*$torad)}]
coordsToPixel $w $xcrd $ycrd
}
newer Version (2.5.2)
# Deprecated - use coordsToPixel instead
#
proc ::Plotchart::polarToPixel { w rad phi } {
coordsToPixel $w $rad $phi
}
# set xcrd [expr {$rad*cos($phi*$torad)}]
# set ycrd [expr {$rad*sin($phi*$torad)}]
# has been removed without replacement
2)
#that's missing: set scaling($w,new) 1
in
plotpriv.tcl
proc ::Plotchart::DrawWindRoseData
variable scaling
set scaling($w,new) 1
# example
pack [canvas .c -bg white]
set p [::Plotchart::createWindRose .c {30 6} 4]
$p plot {20 10 0 3} red
$p plot {10 10 10 3} blue
$p title "Simple wind rose - margins need to be corrected ..."
|