Re: Help: with create a surface from my own RGBA data

Hi, do you know the pixel format of the data you have?

Do you get scanlines that you wanna pass to an SDL::Surface? Or do you
get just the whole image?

May I invite you to irc? Would be much easier than mails... #sdl at
irc.perl.org.

Cheers, FROGGS

Am 03.04.2012 22:12, schrieb agraham:
> Hi Guys,
>
> I am a complete Perl-SDL "newbie" and have spent a few days reading
> the docs on CPAN perl-SDL. I'm using version 2.536.
>
> I would like to create a surface from my own RGBA data and there seems
> to be no way to do that unless you do it a pixel at a time :(
>
> I am trying to hack Net::VNC so that it uses SDL:: instead of
> Image::Imlib2, so for example:
>
> The "raw encoding" from Net::VNC does this:
>
>  $socket->read( my $data, $w * $h * 4 );
>  my $raw = Image::Imlib2->new_using_data( $w, $h, $data );
>  $raw->has_alpha(0);
>  $image->blend( $raw, 0, 0, 0, $w, $h, $x, $y, $w, $h );
>
> I need to replicate the above in perl-SDL
>
> There is an map_RGBA function which maps 1 pixel, but not a bunch of
> them, so you can do:
>
>     $dpixel=SDL::Video::map_RGBA( $display->format, 0, 0, 255);
>
> but not this:
>
>     $dpixel=SDL::Video::map_RGBA( $display->format, $data);
>         SDL::Video::fill_rect( $surface, $srect, $dpixel );
>
> I tried using SDL::RWOps as follows:
>
>     $rw = SDL::RWOps->new_const_mem( $data);
>
>     but I don't know how to get $rw into the surface!
>
>      and
>     $surface = SDL::Image::load( $rw );
>     does not work.
>
> Any help would be much appreciated.
>
> Albert

• Help: with create a surface from my own RGBA data by agraham
• Re: Help: with create a surface from my own RGBA data by Tobias Leich
• Re: Help: with create a surface from my own RGBA data by agraham
• Re: Help: with create a surface from my own RGBA data by Kartik Thakore