# $Id: tetris.pir 38115 2009-04-15 14:41:32Z fperrad $ =head1 TITLE tetris.pir - a second tetris for parrot (with parrot's SDL bindings) =head1 SYNOPSIS To run this file, be in the Parrot directory and run the following command: $ parrot examples/sdl/tetris/tetris.pir $ =head1 FUNCTIONS =over 4 =item _main( argv ) The entry point of SDL applications. =over 4 =item parameter C<argv> Array with commandline parameters. =back =cut .sub _main :main .param pmc argv .local pmc app load_bytecode "examples/sdl/tetris/app.pir" # create the tetris app app = new "Tetris::App" app."flag"( "show blocksize", 1 ) # run the tetris app app."run"() # shutdown the app app."shutdown"() end .end =back =head1 AUTHOR Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author and maintainer. Please send patches and suggestions to the Perl 6 Internals mailing list. =head1 COPYRIGHT Copyright (C) 2004-2008, Parrot Foundation. =cut # Local Variables: # mode: pir # fill-column: 100 # End: # vim: expandtab shiftwidth=4 ft=pir: