[ новости /+++ | форум | теги | ]

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

Ключевые слова: perl, image, example,  (найти похожие документы)

Date: Thu, 22 Nov 2001 18:36:30 +0000 (UTC)
From: "Michael B. Babakov" <M.Babakov@sochi.net.ru>
Newsgroups: fido7.ru.perl
Subject: Построение графиков на Perl

> Посоветуйте плз 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

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

1, romychk (?), 17:56, 06/08/2002 [ответить]   +/– Дайте пожалуйста чайнику совет, как встроить графику в страницу???   2, Zritel (?), 20:18, 04/07/2008 [ответить]   +/– $obj->cgi_png ( \@data );

Партнёры:

Хостинг: