SDL perl-SDLX::surface应用(1)

deepfuture

浏览: 4430709 次
性别:
来自: 湛江

最近访客更多访客>>

linxl2011

mars36

jccz_zys

zkm0309

博主相关

博客

微博

相册

留言

关于我

博客专栏

: SQLite源码剖析
浏览量：80333

: WIN32汇编语言学习应用...
浏览量：70814

: 神奇的perl
浏览量：104016

: lucene等搜索引擎解析...
浏览量：287492

: 深入lucene3.5源码...
浏览量：15131

: VB.NET并行与分布式编...
浏览量：68335

: silverlight 5...
浏览量：32554

: 算法下午茶系列
浏览量：46261

文章分类

社区版块

存档分类

博客分类：

脚本语言

use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第二个程序");
#画大地
$app->draw_rect([0,0,400,400],[0,0,100,255]);
#画夜空
my $sky=SDLx::Surface->new(width=>400,height=>200);
$sky->draw_rect([0,0,400,200],[0,0,0,255]);
#画月亮
$sky->draw_circle_filled([150,50],25,[255,255,0,255]);
#画星星
for (my $i = 1; $i < 50; $i++)
{
   my $x=int(rand(400));
   my $y=int(rand(200));
   if (not ($x>125 and $x<175  and $y >25 and $y<75))
   {
      $sky->draw_circle_filled([$x,$y],2,[0,0,200,255]);      
   }  
}
$sky->blit($app);
$app->update();
sleep(5);

use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第二个程序");
#画大地
$app->draw_rect([0,0,400,400],[0,100,0,255]);
#随机生成大地的麻点
for (my $i = 1; $i < 500; $i++){
    $app->[int(rand(400))][200+int(rand(200))]=[10,10,10,255];
}
#画夜空
my $sky=SDLx::Surface->new(width=>400,height=>200);
$sky->draw_rect([0,0,400,200],[0,0,0,255]);
#画树
my $tree=SDLx::Surface->new(width=>400,height=>150);
for (my $i = 1; $i < 30; $i++){
    $x=int(20+rand(375));
    $y=int(15+rand(100));
    $tree->draw_circle_filled([$x,$y],15,[0,150,0,255]);
	$tree->draw_rect([$x,$y+15,2,15],[0,0,15,255]);
}
#画月亮
$sky->draw_circle_filled([150,50],25,[255,255,0,255]);
#画星星
for (my $i = 1; $i < 50; $i++)
{
   my $x=int(rand(400));
   my $y=int(rand(200));
   if (not ($x>125 and $x<175  and $y >25 and $y<75))
   {
      $sky->draw_circle_filled([$x,$y],2,[0,0,200,255]);      
   }  
}
$sky->blit($app);
$tree->blit($app,[0,0,400,150],[0,200,400,150]);
$app->update();
sleep(5);

读取PNG图片

use SDL;
use SDLx::App;

my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第二个程序");
#画大地
$app->draw_rect([0,0,400,400],[10,80,10,255]);
#随机生成大地的麻点
for (my $i = 1; $i < 500; $i++){
    $app->[int(rand(400))][200+int(rand(200))]=[10,10,10,255];
}
#画夜空
my $sky=SDLx::Surface->new(width=>400,height=>200);
$sky->draw_rect([0,0,400,200],[0,0,0,255]);

#画月亮
$sky->draw_circle_filled([150,50],25,[255,255,0,255]);
#画星星
for (my $i = 1; $i < 50; $i++)
{
   my $x=int(rand(400));
   my $y=int(rand(200));
   if (not ($x>125 and $x<175  and $y >25 and $y<75))
   {
      $sky->draw_circle_filled([$x,$y],2,[0,0,200,255]);      
   }  
}
$sky->blit($app);
#画树
for (my $i = 1; $i < 20; $i++){
    $x=int(rand(350));
    $y=150+int(rand(100));
    my $tree=SDL::Image::load('tree.png');
	$tree= SDLx::Surface->new(surface =>$tree);
    $tree->blit($app,[0,0,100,133],[$x,$y,100,133]);	
}
$app->update();
sleep(5);