examples/sdl/blue_font.pir

   1 # $Id$
   2
   3 =head1 TITLE
   4
   5 blue_font.pir - draw a friendly message to the screen
   6
   7 =head1 SYNOPSIS
   8
   9 To run this file, run the following command from the Parrot directory:
  10
  11     $ ./parrot examples/sdl/blue_font.pir
  12     $
  13
  14 Note that you need to have a font named C<times.ttf> in the current directory.
  15 I recommend making a symlink.
  16
  17 Yes, getting this to work across platforms is tricky, as is distributing a
  18 royalty-free font file.  Maybe soon.
  19
  20 =cut
  21
  22 .sub main :main
  23
  24     # first load the necessary libraries
  25     load_bytecode "SDL/App.pir"
  26     load_bytecode "SDL/Rect.pir"
  27     load_bytecode "SDL/Color.pir"
  28     load_bytecode "SDL/Font.pir"
  29
  30     # create an SDL::App object
  31     .local pmc app
  32     app = new 'SDL::App'
  33     app.'init'( 'height' => 480, 'width' => 640, 'bpp' => 0, 'flags' => 1 )
  34
  35     # fetch the SDL::Surface representing the main window
  36     .local pmc main_screen
  37     main_screen = app.'surface'()
  38
  39     # create an SDL::Rect object
  40     .local pmc rect
  41     new rect, 'SDL::Rect'
  42     rect.'init'( 'height' => 100, 'width' => 100, 'x' => 194, 'y' => 208 )
  43
  44     # create SDL::Color objects
  45     .local pmc blue
  46     new blue, 'SDL::Color'
  47     blue.'init'( 'r' => 0, 'g' => 0, 'b' => 255 )
  48
  49     .local pmc white
  50     new white, 'SDL::Color'
  51     white.'init'( 'r' => 255, 'g' => 255, 'b' => 255 )
  52
  53     .local pmc file_pmc
  54     file_pmc    = new 'File'
  55
  56     .local int font_exists
  57     font_exists = file_pmc.'exists'( 'times.ttf' )
  58
  59     if font_exists goto have_font
  60     print "No font found (expect times.ttf in this directory); exiting...\n"
  61     end
  62
  63   have_font:
  64     .local pmc font
  65     new font,  'SDL::Font'
  66     font.'init'( 'font_file'  => 'times.ttf', 'point_size' => 48 )
  67
  68     .local pmc full_rect
  69     full_rect = new 'SDL::Rect'
  70     full_rect.'init'( 'width'  => 640, 'height' => 480, 'x' => 0, 'y' => 0 )
  71
  72     main_screen.'fill_rect'( full_rect, white )
  73     main_screen.'update_rect'( full_rect )
  74
  75     # draw the rectangle to the surface and update it
  76     font.'draw'( 'Hello, world!', blue, main_screen, rect )
  77     main_screen.'update_rect'( rect )
  78
  79     # pause for people to see it
  80     sleep 2
  81
  82     # and that's it!
  83     app.'quit'()
  84     end
  85 .end
  86
  87 =head1 AUTHOR
  88
  89 chromatic, E<lt>chromatic at wgz dot orgE<gt>.
  90
  91 =head1 COPYRIGHT
  92
  93 Copyright (C) 2004-2008, Parrot Foundation.
  94
  95 =cut
  96
  97 # Local Variables:
  98 #   mode: pir
  99 #   fill-column: 100
 100 # End:
 101 # vim: expandtab shiftwidth=4 ft=pir: