sdl perl-基本方法

最新推荐文章于 2021-05-13 03:15:25 发布

最新推荐文章于 2021-05-13 03:15:25 发布 · 171 阅读

脚本语言专栏收录该内容

202 篇文章

订阅专栏

本文通过三个示例展示了如何使用 Perl 的 SDLx 模块进行基本绘图操作，包括绘制线条、矩形及圆形，并填充颜色，适用于初学者快速上手。

use SDL;
use SDLx::App;
my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"我的第一程序:hello,world");
$app->draw_line([20,100],[200,20],[255,255,0,255]);
$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([20,100],[200,20],[255,255,0,255]);
$app->draw_rect([20,100,120,120],[255,0,0,255]);
$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([20,100],[200,20],[255,255,0,255]);
$app->draw_rect([20,100,120,120],[255,0,0,255]);
$app->draw_circle([100,100],15,[255,0,0,255]);
$app->draw_circle_filled([100,100],15,[255,0,255,255]);
$app->update();
sleep(10);