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