9 die <<USAGE if ( in $ARGV[0], qw/ -? -h --help /);
10 usage: $0 [-hw] [-fullscreen] [-width 640] [-height 480] [-bpp 24]
15 $options{$ARGV[$_]} = $ARGV[$_ + 1] || 1;
18 $options{-flags} = SDL_SWSURFACE;
19 $options{-flags} |= SDL_HWPALETTE if ( $options{-hw} );
20 $options{-flags} |= SDL_FULLSCREEN if ( $options{-fullscreen} );
22 $options{-title} = $0;
24 $options{-width} ||= 640;
25 $options{-height} ||= 480;
26 $options{-depth} ||= $options{-bpp} || 24;
28 my $app = new SDL::App %options;
30 # SDL::EventState(SDL_KEYUP,SDL_DISABLE);
34 $mod = SDL::GetModState();
37 ($mod & KMOD_LSHIFT) ? " LSHIFT" : "",
38 ($mod & KMOD_RSHIFT) ? " RSHIFT" : "",
39 ($mod & KMOD_LCTRL) ? " LCTRL" : "",
40 ($mod & KMOD_RCTRL) ? " RCTRL" : "",
41 ($mod & KMOD_LALT) ? " LALT" : "",
42 ($mod & KMOD_RALT) ? " RALT" : "",
43 ($mod & KMOD_LMETA) ? " LMETA" : "",
44 ($mod & KMOD_RMETA) ? " RMETA" : "",
45 ($mod & KMOD_CAPS) ? " CAPS" : "",
46 ($mod & KMOD_NUM) ? " NUM" : "",
47 ($mod & KMOD_MODE) ? " MODE" : "",
55 print "pressed " if (SDL::KeyEventState($e) == SDL_PRESSED);
56 print "released " if ( SDL::KeyEventState($e) == SDL_RELEASED);
58 my $sym = SDL::KeyEventSym($e);
61 print SDL::GetKeyName($sym);
63 printf "Unknown Key (scancode = %d) ", SDL::KeyEventScanCode($e);
68 my $event = new SDL::Event;
78 SDL_KEYUP() => $process_keys,
79 SDL_KEYDOWN() => $process_keys,
80 SDL_QUIT() => sub { $done = 1; },
83 while (!$done && $event->wait())
85 if ( $events{$event->type()}) {
86 &{$events{$event->type()}}($$event);