论坛 › Perl › sdl perl-基本方法

kernelsky 发表于 2017-5-18 11:14:37

sdl perl-基本方法

use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第一程序:hello,world");
$app->draw_line(,,);
$app->update();
sleep(10);

　　

 

use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第一程序:hello,world");
$app->draw_line(,,);
$app->draw_rect(,);
$app->update();
sleep(10);

　　


use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第一程序:hello,world");
$app->draw_line(,,);
$app->draw_rect(,);
$app->draw_circle(,15,);
$app->draw_circle_filled(,15,);
$app->update();
sleep(10);

　　

 
　　
 

查看完整版本: sdl perl-基本方法