1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!/usr/bin/perl -w
#
# Testprogram for lines
# converting seconds since 0 o'clock to HH:MM:SS on x
# converting -1 .. +1 to -100 ... +100 on y
#
#======================================================================
use strict;
use Chart::Points;
print "1..1\n";
my @x_values = (); # x axis
my @y_values = ();
my $graphic;
my $min_x = 600; # random start
my $max_x = 86400; # number of seconds of a day
my $min_y;
my $max_y;
my $x;
my $y;
#------------------------------------------------------------------------------------
# Start
#------------------------------------------------------------------------------------
$x = $min_x;
for ( my $x_idx = 0; $x < $max_x; $x_idx++ ) {
$x = $min_x + $x_idx*23;
$x_values[$x_idx] = $x;
$y_values[$x_idx] = cos(($x - $min_x)/3000);
}
#------------------------------------------------------------------------------------
# Make it
#------------------------------------------------------------------------------------
$graphic = Chart::Points -> new (750,600);
$graphic -> set ('brush_size' => 2 );
$graphic -> add_dataset ( @x_values );
$graphic -> add_dataset ( @y_values );
$graphic -> set ('min_val' => $min_y );
$graphic -> set ('max_val' => $max_y);
#$graphic -> set ('y_ticks' => 11 );
$graphic -> set ('skip_x_ticks' => 100);
$graphic -> set ('pt_size' => 2);
$graphic -> set ('grey_background' => 'true' );
$graphic -> set ('graph_border' => 18 );
$graphic -> set ('title' => "f_tick example for x and y values" );
$graphic -> set ('y_grid_lines' => 'false' );
$graphic -> set ('x_grid_lines' => 'false' );
$graphic -> set ('x_ticks' => 'vertical' );
$graphic -> set ('legend' => 'none' );
$graphic -> set ('x_label' => 'Time of the day' );
$graphic -> set ('y_label' => 'f = sin(x)' );
# use a special function to convert the x values to HH:MM:SS
$graphic -> set ('f_x_tick' => \&seconds_to_hour_minute);
# use a special function to convert the y values to something special
$graphic -> set ('f_y_tick' => \&formatter);
if ( $graphic -> can ('gif') ){
my $picture_file = "samples/f_ticks.gif";
$graphic -> gif ($picture_file);
}
if ( $graphic -> can ('png') ) {
my $picture_file = "samples/f_ticks.png";
$graphic -> png ($picture_file);
}
print "ok 1\n";
exit (0);
sub seconds_to_hour_minute {
my $seconds = shift;
my $hour = int($seconds / 3600);
my $minute = int(($seconds - $hour*3600)/60);
my $sec = $seconds - $hour*3600 - $minute*60;
sprintf "%02d:%02d:%02d",$hour,$minute,$sec;
}
sub formatter {
my $y_value = shift;
sprintf "%02d",int($y_value*10);
}
|
