| Line | |
|---|
| 1 | #!C:/perl/bin/perl -w
|
|---|
| 2 |
|
|---|
| 3 | use open_flash_chart;
|
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 | my $g = chart->new();
|
|---|
| 7 |
|
|---|
| 8 | my $e = $g->get_element('bar_stack');
|
|---|
| 9 |
|
|---|
| 10 | $e->set_values([
|
|---|
| 11 | [{"val"=>rand(20),"colour"=>random_color()},{"val"=>rand(40),"colour"=>random_color()}],
|
|---|
| 12 | [{"val"=>rand(20),"colour"=>random_color()},{"val"=>rand(20),"colour"=>random_color()},{"val"=>rand(20),"colour"=>random_color()}],
|
|---|
| 13 | [{"val"=>rand(10)},{"val"=>rand(20)},{"val"=>rand(30)}],
|
|---|
| 14 | [{"val"=>rand(20)},{"val"=>rand(20)},{"val"=>rand(20)}],
|
|---|
| 15 | [{"val"=>rand(5)},{"val"=>rand(10)},{"val"=>rand(5)},{"val"=>rand(20)},{"val"=>rand(5),"colour"=>random_color()},{"val"=>rand(5)},{"val"=>rand(5)}]
|
|---|
| 16 | ]);
|
|---|
| 17 |
|
|---|
| 18 | $g->add_element($e);
|
|---|
| 19 |
|
|---|
| 20 |
|
|---|
| 21 |
|
|---|
| 22 | print $g->render_chart_data();
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
