main_screen
, rect
, blue
:.local pmc blue
.local pmc color_args
.local int color_type
color_args = new PerlHash
color_args[ 'r' ], 0
color_args[ 'g' ], 0
color_args[ 'b' ], 255
find_type color_type, 'SDL::Color'
new blue, color_type, color_args
main_screen.'fill_rect'( rect, blue )
main_screen.'update_rect'( rect )