`
deepfuture
  • 浏览: 4320999 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:79301
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:68099
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:101182
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:280241
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:14534
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:65149
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:31183
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:45067
社区版块
存档分类
最新评论

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 =[255,255,255,255];
my $drawing=0;
my $start=[0,0];
my $end=[400,400];



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=[int(rand(400)),int(rand(400))];
	$end=[int(rand(400)),int(rand(400))];	
}
sub render
{
    $app->draw_line($start,$end,$color,true);
	$app->update();
}
while (!$quit){   
      get_events();
	  newline();
	  render();
      sleep(1);	  
    } 

 随机画线,标准的游戏获取按键,运算,然后刷屏的过程



 

  • 大小: 55.3 KB
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics