Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Extended the example with a legend and time-x data |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 1f49306a6b11840d6a3e68ac81243315 |
User & Date: | arjenmarkus 2007-06-16 14:05:03 |
Context
2007-06-16
| ||
14:05 | Support for time-x plots implemented and extended plotting of legends for barcharts check-in: 8f8b58e2d0 user: arjenmarkus tags: trunk | |
14:05 | Extended the example with a legend and time-x data check-in: 1f49306a6b user: arjenmarkus tags: trunk | |
2007-06-12
| ||
20:20 | Fixed a few bugs in drawing the legend; documented a tip by Bernhard Wallner check-in: 12a0d99b83 user: arjenmarkus tags: trunk | |
Changes
Changes to examples/plotchart/plotdemos1.tcl.
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
$s plot "cardioid" $rad $angle } $s title "Cardioid" set s [::Plotchart::createBarchart .h.c {A B C D E} {0.0 10.0 2.0} 2.5] $s plot series1 {1.0 4.0 6.0 1.0 7.0} red $s plot series2 {0.0 3.0 7.0 9.3 2.0} green $s title "Arbitrary data" set s [::Plotchart::createBarchart .h.c2 {A B C D E} {0.0 20.0 5.0} stacked] ................................................................................ $s title "3D Plot - data " $s colour "green" "black" $s plotdata { {1.0 2.0 1.0 0.0} {1.1 3.0 1.1 -0.5} {3.0 1.0 4.0 5.0} } set s [::Plotchart::createTXPlot .c4 {2006-01-01 2007-01-01 120} {0.0 100.0 20.0}] if { 0 } { set xd 5.0 set yd 20.0 set xold 0.0 set yold 50.0 $s dataconfig series1 -colour "red" $s dataconfig series2 -colour "blue" for { set i 0 } { $i < 20 } { incr i } { set xnew [expr {$xold+$xd}] set ynew [expr {$yold+(rand()-0.5)*$yd}] set ynew2 [expr {$yold+(rand()-0.5)*2.0*$yd}] $s plot series1 $xnew $ynew $s plot series2 $xnew $ynew2 set xold $xnew set yold $ynew } $s interval series2 50.0 40.0 60.0 52.0 $s interval series2 60.0 40.0 60.0 $s xtext "X-coordinate" $s ytext "Y-data" $s title "Aha!" } |
>
>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<
<
<
<
<
<
|
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
...
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
$s plot "cardioid" $rad $angle } $s title "Cardioid" set s [::Plotchart::createBarchart .h.c {A B C D E} {0.0 10.0 2.0} 2.5] $s legend series1 "Series 1" $s legend series2 "Series 2" $s plot series1 {1.0 4.0 6.0 1.0 7.0} red $s plot series2 {0.0 3.0 7.0 9.3 2.0} green $s title "Arbitrary data" set s [::Plotchart::createBarchart .h.c2 {A B C D E} {0.0 20.0 5.0} stacked] ................................................................................ $s title "3D Plot - data " $s colour "green" "black" $s plotdata { {1.0 2.0 1.0 0.0} {1.1 3.0 1.1 -0.5} {3.0 1.0 4.0 5.0} } set s [::Plotchart::createTXPlot .c4 {2006-01-01 2007-01-01 120} {0.0 100.0 20.0}] $s dataconfig series1 -colour "red" $s dataconfig series2 -colour "blue" $s xtext "Time" $s ytext "Data" $s plot series1 2006-02-01 10.0 $s plot series1 2006-02-11 50.0 $s plot series1 2006-03-01 50.0 $s plot series1 2006-07-01 40.0 $s plot series1 2006-08-21 20.0 $s plot series1 2006-08-22 1.0 $s plot series1 2006-12-11 78.0 $s plot series2 2006-03-01 110.0 $s plot series2 2006-04-11 50.0 $s plot series2 2006-07-28 20.0 $s plot series2 2006-10-21 99.0 $s plot series2 2006-11-22 1.0 $s plot series2 2006-12-31 78.0 |