Blame contrib/whodo/GIFgraph/GIFgraph/samples/sample41.pl
|
Packit |
667938 |
use GIFgraph::linespoints;
|
|
Packit |
667938 |
|
|
Packit |
667938 |
print STDERR "Processing sample 4-1\n";
|
|
Packit |
667938 |
|
|
Packit |
667938 |
@data = (
|
|
Packit |
667938 |
["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
|
|
Packit |
667938 |
[undef, 52, 53, 54, 55, 56, undef, 58, 59],
|
|
Packit |
667938 |
[60, 61, 61, undef, 68, 66, 65, 61, undef],
|
|
Packit |
667938 |
);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$my_graph = new GIFgraph::linespoints( );
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$my_graph->set(
|
|
Packit |
667938 |
x_label => 'X Label',
|
|
Packit |
667938 |
y_label => 'Y label',
|
|
Packit |
667938 |
title => 'A Lines and Points Graph',
|
|
Packit |
667938 |
y_max_value => 80,
|
|
Packit |
667938 |
y_tick_number => 6,
|
|
Packit |
667938 |
y_label_skip => 2,
|
|
Packit |
667938 |
markers => [ 1, 5 ],
|
|
Packit |
667938 |
);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$my_graph->set_legend( 'data set 1', 'data set 2' );
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$my_graph->plot_to_gif( "sample41.gif", \@data );
|
|
Packit |
667938 |
|
|
Packit |
667938 |
exit;
|
|
Packit |
667938 |
|