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

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

>>阅读原文<<