perl-sdl游戏过程

use SDL; use SDLx::App; use SDL::Event; my $app=SDLx::App->new(w=>400,h=>400,d=>32,t=>"my lines"); my $color =[255,255,255,255]; my $drawing=0; my $start=[0,0]; my $end=[400,400]; my $event=SDL::E

>>阅读原文<<