Re: SDL::Surface::new_from and PLot question

Well this does something ... But I don't think thats what we want ... I
still don't know how to get color data from dataref.

use SDL;
BEGIN{
    delete $main::{in};

}
use PDL;
use PDL::NiceSlice;
use SDL::Video;
use SDL::Event;
use SDL::Surface;
use SDL::Constants;
use Carp;


# Allocate a 10x10 array for rgb.  I think that only the zeroes function
allows
# # you to declare a piddle with a specific data type
my $pdl = zeroes(byte, 3, 10, 10);
#
#
# # Set values. Use in place to be sure we don't get another allocation,
which may be the wrong type.
# # Note that the sequence wraps back to zero after hitting 256, because
they're bytes!
 $pdl->inplace->sequence;
#
# # Now for a really silly animation - turn all the pixels white




carp 'Unable to init SDL: '.SDL::get_error() if( SDL::init(SDL_INIT_VIDEO) <
0);

my $screen = SDL::Video::set_video_mode( 640, 480, 32, SDL_SWSURFACE);

carp 'Unable to set 640x480x32 video'.SDL::get_error() if(!$screen);

my $offset = $screen->pitch / 4;

sub putpixel
{
    my($x, $y, $color) = @_;
    my $lineoffset = $y * ($screen->pitch / 4);
    $screen->set_pixels( $lineoffset+ $x, $color);
}
sub render
{
    if( SDL::Video::MUSTLOCK( $screen) )
    {
        return if (SDL::Video::lock_surface( $screen ) < 0)
    }


    for (my $i = 0; $i < 300; $i++) {

             $pdl()->clump(-1)->($i) = 255;
        $iv = $pdl->get_dataref();
        putpixel( $i, $i,  $iv );
    }

    SDL::Video::unlock_surface($screen) if (SDL::Video::MUSTLOCK($screen));

    SDL::Video::update_rect($screen, 0, 0, 640, 480);

}


while(1)
{
    render();

        my $event = SDL::Event->new();

        while( SDL::Events::poll_event($event) )
        {
            my $type = $event->type;

            if( $type == SDL_QUIT)
            {
                SDL::quit();
                exit();
            }


        }



    SDL::Events::pump_events();

}





On Mon, Nov 16, 2009 at 6:36 PM, David Mertens <[email protected]> wrote:

> On Mon, Nov 16, 2009 at 4:51 PM, Kartik Thakore <[email protected]>wrote:
>
>> How do I update this?  like animation?
>>
>> while(1)
>> {
>>
>>   $pdl_memory->get_dataref();
>>
>> }
>>
>
> Yeah, you know, I used a terrible variable name for that piddle.  Let's try
> this:
>
> --------%<--------
>
> use PDL;
> use PDL::NiceSlice;
>
>
> # Allocate a 10x10 array for rgb.  I think that only the zeroes function
> allows
> # you to declare a piddle with a specific data type
> my $pdl = zeroes(byte, 3, 10, 10);
>
>
> # Set values. Use in place to be sure we don't get another allocation,
> which may be the wrong type.
> # Note that the sequence wraps back to zero after hitting 256, because
> they're bytes!
> $pdl->inplace->sequence;
>
> # Now for a really silly animation - turn all the pixels white
> for (my $i = 0; $i < 300; $i++) {
>   $pdl()->clump(-1)->($i) = 255;
>   # Do something with piddle data here.
> }
>
> --------%<--------
>
> Is that a bit clearer?  Does anybody have a better sample?
>
> David
>