1# plotdemos10.tcl -- 2# Test and demonstrate wind roses, bands in xy-plots, vertical text and label-dots 3# 4package require Plotchart 1.7 5 6# 7# Wind rose diagram 8# 9pack [canvas .c1 -bg white] 10 11set p [::Plotchart::createWindRose .c1 {30 6} 4] 12 13$p plot {5 10 0 3} red 14$p plot {10 10 10 3} blue 15 16$p title "Simple wind rose - margins need to be corrected ..." 17 18# 19# Bands in two directions 20# 21pack [canvas .c2 -bg white] -side top 22 23set p [::Plotchart::createXYPlot .c2 {0 10 2} {0 40 10}] 24 25$p plot data 1 10 26$p plot data 6 20 27$p plot data 9 10 28 29$p xband 15 25 30$p yband 3 5 31 32# 33# Label-dots and vertical text 34# 35 36pack [canvas .c3 -bg white] -side top 37 38set p [::Plotchart::createXYPlot .c3 {0 10 2} {0 40 10}] 39 40$p labeldot 3 10 "Point 1" w 41$p labeldot 6 20 "Point 2" e 42$p labeldot 9 10 "Point 3" n 43$p labeldot 9 30 "Point 4" s 44 45if { [package vsatisfies Tk 8.6] } { 46 $p vtext "Vertical axis label" 47} 48