AA/Gfx.pm

   1 package AA::Background;
   2
   3 @ISA = ('AA');
   4
   5 sub new($$) {
   6         my ($class, $id) = @_;
   7         my $b = AA::new($class, $id);
   8         $b->DefSet('d', 0);
   9         $b->DefSet('color', [0, 0, 0]);
  10         return $b;
  11 }
  12
  13 sub Draw($$) {
  14         my ($b, $cairo) = @_;
  15         $cairo->select_font_face('URW Palladio L', 'normal', 'normal');         # default for all objs
  16         $cairo->new_path;
  17         $cairo->rectangle(0, 0, 1024, 768);
  18         $cairo->set_source_rgb(@{$b->Get('color')});
  19         $cairo->fill;
  20 }
  21
  22 1;