#!/usr/bin/perl

# modules
use strict;
use Gtk2 '-init';
use Gtk2::Helper;
use Image::Magick;
use Goo::Canvas;
use Data::Dumper;
use IPC::Open2;
use FileHandle;

my $wfh = FileHandle->new();
my $rfh = FileHandle->new();
my $text;
my $timpid;
my $tag;
$|=1; # i dont know what this is????

open2($rfh,$wfh, "/bin/sh");
my $tag = Gtk2::Helper->add_watch($rfh->fileno(), 'in',\&get_from);

my $window = Gtk2::Window->new();
$window->fullscreen();

my $canvas = Goo::Canvas->new();
config_canvas();
$window->add($canvas);

$window->show_all();

Gtk2->main();

sub config_canvas {
    my $res_line = `xdpyinfo  | grep 'dimensions:'`;
    my ($dw,$dh) = $res_line =~ m/(\d*)x(\d*) pixel/;
    my $uw = $dw - 50;
    my $uh = $dh - 50;

    $canvas->set_bounds(-$uw/2,-$uh/2,$uw/2,$uh/2);
    $canvas->set('background-color'=>"black");
    $canvas->set('anchor','center');
    $canvas->set('integer-layout'=>1);


    my $root = $canvas->get_root_item;

    my $bkg = Goo::Canvas::Group->new($root);

        my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file_at_scale('karaok
+e/b1.jpg',$uw,$uh,1);
        my $img = Goo::Canvas::Image->new($bkg,$pixbuf,-$uw/2,-$uh/2);
        $img->signal_connect('button_press_event'=>\&mouse_press);

    my $video = Goo::Canvas::Group->new($root);

    my $lyrics = Goo::Canvas::Group->new($root);

        $text = Goo::Canvas::Text->new($lyrics,"testing",0,0,0,'center
+');
        
}

sub get_from {
      # we safely can read a chunk into $buffer
      my $buffer;

      if ( not sysread($rfh, $buffer, 1024) ) {
        # obviously the connected pipe was closed
        print "exit\n";
        Gtk2::Helper->remove_watch ($tag) or die "couldn't remove watc
+her";
        close($rfh);
        return 1;
      }

      # do something with $buffer ...
      print $buffer . "\n";

      # *always* return true
      return 1;

}

sub mouse_press {
    my ($widget, $target, $event) = @_;
    if($event->button == 1){
        print "start\n";
        send_to_shell(undef,'Just Beat It','/home/server/karaoke/sloop
+-john-b.kar');
    }else{
        print "stop\n";
        send_stop();
    }
}

sub send_to_shell {
    my ($widget,$title,$file) = @_;
    print "Playing.. $title\n";
    my $cmd = "timidity '$file'";
    print $wfh "$cmd\n";
}

sub send_stop{
    my $timgrep = `ps -a | grep timidity`;
    ($timpid) = $timgrep =~ /(\d+)/;
    system("kill $timpid");
}
[download]

        my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file_at_scale('karaoke/b1.jpg',$uw,$uh,1);

Hi, since this is a pixbuf that is integral to the program, you might want to include it in your script as a bas64encoded file. Like in Re: PerlMagick Gtk2::Gdk::Pixbuf

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku

just wanna contribute something in your karaoke project.. this code requires perl-MIDI-Perl to run. I got it from cpan, its not available on the standard fedora13 repo. anyway here is a code to be able to extract lyrics of a midi file...

sub send_to_shell {
    my ($widget,$file) = @_;
    my $string;
    my $opus = MIDI::Opus->new({ 'from_file' => $file,
        'exclusive_event_callback' => sub{
                my $temp = $_[2];
                chomp $temp;
                if($_[0] eq 'text_event'){
                    if($_[1] == 0){
                    }else{
                        $string = $string . $_[2];
                        push @arr_lyr, $_[2];
                    }
                }elsif($_[0] eq 'track_name'){
                    $marker = $_[2];
                }
            },
        'include' => \@MIDI::Event::All_events,
        'exclude' => \@MIDI::Event::MIDI_events,
    });
    @line_lyrics = split(/\/|\\/,$string);
    shift @line_lyrics;
    print "Marker: $marker\n";
    print "_____START_____\n";
    $start = 0;

    # start song
    my $cmd = "timidity '$file'";
    print $wfh "$cmd\n";

}
[download]

enjoy! you can use this to replace the same sub routine on my previous post.
Mabuhay Civil Engineers! :D

just a question regarding the base64encoded. what is the difference if i just simply use this:

my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file_at_scale('karaoke/b1.jpg
+',$uw,$uh,1);
[download]

instead of this:

my $pixbuf = do {
        my $loader = Gtk2::Gdk::PixbufLoader->new();
        $loader->write( $bunny );
        $loader->close();
        $loader->get_pixbuf();
    };
[download]