Para un proyecto doméstico, necesito trazar (x, y) las coordenadas en un mapa de bits en blanco y negro 400x400.Perl: método recomendado para trazar (x, y) píxeles en un mapa de bits monocromático
¿Qué módulo de Perl recomendaría usted y qué formato de imagen (GIF ?, PNG? Other?) Sería más fácil de manejar en OS X, Windows, Linux?
EDITAR Mi solución, basada en GD, como recomendado por Brian 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);