#!/usr/bin/perl -w

use GD::Graph::rose;

my @tmp = qw/
 0   2.10   35
10   2.32   21
20   2.03   19
30   2.62   37
40   3.34   65
50   2.47   36
60   2.20   60
70   2.39  107
80   2.51  112
90   2.40  215
100   2.39  261
110   2.42  306
120   2.34  302
130   2.22  190
140   2.00  156
150   2.34  163
160   2.33  198
170   2.44  198
180   2.55  291
190   2.77  245
200   2.52  159
210   2.43  137
220   2.17  114
230   2.40   53
240   2.15   60
250   2.01   35
260   2.67   56
270   2.18   40
280   2.49   49
290   2.53   68
300   2.55  110
310   2.70  111
320   2.45   60
330   2.27   52
340   3.74  251
350   2.42   28/;

my @data;
for (my $i=0;$i<=$#tmp;$i++) {
	push @{$data[$i%3]},$tmp[$i];
}

$my_graph = new GD::Graph::rose( 500, 500 );

$my_graph->set( 
	title => 'Wind Direction',

	bgclr => "white",
	fgclr => "dblue",
	transparent => 0,
);

#$my_graph->set_legend( qw( one two));
#$my_graph->set_legend(["Avg velocity", "Number of minutes"]);

my $gd = $my_graph->plot(\@data);

open(IMG, '>rose_test.png') or die $!;
binmode IMG;
print IMG $gd->png;