2009-07-25 1 views
8

Для домашнего проекта мне нужно построить координаты (x, y) на черно-белое растровое изображение 400x400.Perl: рекомендуемый метод построения (x, y) пикселов для монохромного растрового изображения

Какой модуль perl вы бы рекомендовали и какой формат изображения (GIF ?, PNG? Other?) Был бы проще всего обрабатывать на OS X, Windows, Linux?


EDIT Мое решение, основанное на GD, а порекомендован Брайан Agnew


use strict; 
use warnings; 
use GD; 
my $BitMap = GD::Image->new(400,400); 

my $white = $BitMap->colorAllocate(255,255,255); 
my $black = $BitMap->colorAllocate(0,0,0);  

# Frame the BitMap 
$BitMap->rectangle(0,0,399,399,$black); 
# Transparent image, white background color 
$BitMap->transparent($white); 

# plot some, just to show it works # 
for my $x (0..100) { 
    for my $y (0 .. 100) { 
     $BitMap->setPixel(250+100*sin($x)-$y,150+125*cos($x)+$y,$black); 
    } 
} 

# write png-format to file 
open my $fh,">","test.png" or die "$!"; 
binmode $fh; 
print $fh $BitMap->png; 
close($fh); 

ответ

9

Посмотрите на GD module (который взаимодействует с GD library). Это делает создание графики довольно тривиальной и имеет широкий диапазон форматов вывода, включая PNG и GIF.

Смежные вопросы