perl-sdl游戏过程
use SDL;use SDLx::App;
use SDL::Event;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"my lines");
my $color =;
my $drawing=0;
my $start=;
my $end=;
my $event=SDL::Event->new();
my $quit=0;
sub get_events
{
SDL::Events::pump_events();
while (SDL::Events::poll_event($event))
{
$quit=1 if $event->type==SDL_KEYDOWN;
}
}
sub newline
{
my $col1=int(rand(255));
my $col2=int(rand(255));
my $col3=int(rand(255));
$color =[$col1,$col2,$col3,255];
$start=;
$end=;
}
sub render
{
$app->draw_line($start,$end,$color,true);
$app->update();
}
while (!$quit){
get_events();
newline();
render();
sleep(1);
}
随机画线，标准的游戏获取按键，运算，然后刷屏的过程
页:
[1]