WxPerl: Pixel färben schnell gemacht - #142774 (Graphische Oberflächen)

topeg

2010-11-16 13:37

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Setze die Pixel nicht einzeln sondern alle zusammen (ungetestet):

Code (perl): (dl )

my ($width,$height)=(800,800);
my $data='';
for(1..$width)
{
  for(1..$height)
  {
    @color=(255,0,0); # (Rot,Gün,Blau)
    $data.=pack('C3',@color);
  }
}
my $bmp = Wx::Bitmap->new($width,$height);
$bmp->CopyFromBuffer($data, wxBitmapBufferFormat_RGB,-1);

Neben dem Durchlauf über alle Pixel ist das setzen derselben recht Zeitaufwändig, darum sollte man das so wenig wie möglich machen.