# $Id: blue_rect.pir 38115 2009-04-15 14:41:32Z fperrad $

=head1 TITLE

blue_rect.pir - draw a blue rectangle with the SDL Parrot bindings

=head1 SYNOPSIS

To run this file, run the following command from the Parrot directory:

    $ ./parrot examples/sdl/blue_rect.pir
    $

=cut

.sub _main :main
    # first load the necessary libraries
    load_bytecode "SDL/App.pir"
    load_bytecode "SDL/Rect.pir"
    load_bytecode "SDL/Color.pir"

    # create an SDL::App object
    .local pmc app
    app = new 'SDL::App'
    app.'init'( 'height' => 480, 'width' => 640, 'bpp' => 32, 'flags' => 1 )

    # fetch the SDL::Surface representing the main window
    .local pmc main_screen
    main_screen = app.'surface'()

    # create an SDL::Rect object
    .local pmc rect
    new rect, 'SDL::Rect'
    rect.'init'( 'height' => 100, 'width'  => 100, 'x' => 270, 'y' => 190 )

    # create an SDL::Color object
    .local pmc color
    new color, 'SDL::Color'
    color.'init'( 'r' => 0, 'g' => 0, 'b' => 255 )

    # draw the rectangle to the surface and update it
    main_screen.'fill_rect'(   rect, color )
    main_screen.'update_rect'( rect )

    # pause for people to see it
    sleep 2

    # and that's it!
    app.'quit'()
    end
.end

=head1 AUTHOR

chromatic, E<lt>chromatic at wgz dot orgE<gt>.

=head1 COPYRIGHt

Copyright (C) 2004-2008, Parrot Foundation.

=cut

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: