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

>>阅读原文<<