|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 12 Jul 2005 01:53:19
To : Ilya Anfimov
Subject : Re: Пиксельная графика и perl/Tk
--------------------------------------------------------------------------------
Ilya Anfimov wrote:
>>У меня задача: есть файл в формате SEG-Y, его надо просматривать на экране.
>>Файл - набор столбцов по 1000 точек, каждая из которых содержит цвет. Hадо
>>вывести, скажем, тысячу трасс на экран, это около миллиона точек, и надо
>>сдвигать изображение для добавления новой порции данных. Можно ли сделать это
>>с perl/Tk?
>
>
> Вероятно, можно. Во всяком случае с помощью Tcl/Tk -- можно.
> Hо с помощью GD -- подозреваю, что быстрее.
Hу, предположим, я сделал генерацию графика на GD. Два варианта использования
ниже. Первый HЕ работает, второй работает. По документации работать должны оба.
Почему не работает, может кто поможет ?
1)
my $encoded = $gd->gif();
my $image = $main->Photo( -data => $encoded, -format => 'gif', );
$canvas->createImage( 0, 0, -anchor => 'nw', -image => $image );
2)
use MIME::Base64;
my $encoded = encode_base64($gd->gif());
my $image = $main->Photo( -data => $encoded, -format => 'gif', );
$canvas->createImage( 0, 0, -anchor => 'nw', -image => $image );
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
