Использую модуль Chart, точнее его Chart::Lines.
Вот кусочек из генератора.
Массивы входящие в @data строятся по данным из базы.
| Код |
# ось Х реал. темп усред. темп
@data = (\@tmhour24, \@themp24, \@themp24m);
$obj = Chart::Lines->new(650, 210);
$obj->set ( 'title' => '',
'legend' => 'none',
'x_label' => "$BEGDATE24 $ENDDATE",
'brush_size' => 3,
'x_ticks' => 'vertical',
'tick_len' => 2,
'max_val' => $scl_max24,
'min_val' => $scl_min24,
'skip_x_ticks' => 12,
'y_label' => 'Температура, C',
'grid_lines' => 'true',
'grey_background' => 'false',
'graph_border' => 5,
'colors' => {'background' => [232,248,252],
'x_grid_lines' => [155,186,214],
'y_grid_lines' => [155,186,214],
'text' => [34,34,102],
'y_label' => [34,34,102],
'dataset1' => [7,42,239]
}
);
# 'dataset0' => [249,117,2],
$obj->png ( $IMG_DAY, \@data );
|
Михаил Бабаков |