|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael B. Babakov 2:5020/400 22 Nov 2001 22:36:30
To : Sergey Chernov
Subject : Re: Perl и графики
--------------------------------------------------------------------------------
Sergey Chernov wrote:
> Посоветуйте плз PNG графику, чтобы собиралась и под win32, и где ее
> взять...
Использую модуль Chart, точнее его Chart::Lines.
Вот кусочек из генератора. Итог работы можно посмотреть на
http://www.sochi.com/thermometr
Массивы входящие в @data строятся по данным из базы.
=== cut ===
# ось Х реал. темп усред. темп
@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 );
=== cut ===
--
С уважением,
Михаил Бабаков
- ---
e-mail: M.Babakov@sochi.net.ru
http://sochi.net.ru/~mike
--- ifmail v.2.15dev5
* Origin: It's my home (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
