|
Ключевые слова: 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
|
Обсуждение | [ RSS ] |
|
Добавить комментарий |
Закладки на сайте Проследить за страницей |
Created 1996-2024 by Maxim Chirkov Добавить, Поддержать, Вебмастеру |