001 #!/usr/local/bin/perl -w
002 use strict;
003 use Sysadm::Install qw(:all);
004 use Imager;
005 use Imager::Fill;
006 use Log::Log4perl qw(:easy);
007 use Video::FrameGrab;
008 use File::Temp qw(tempdir tempfile);
009
010 sub shell;
011
012 my $title_length = 2; # length in seconds
013 my $FONT_FILENAME = "/usr/share/fonts/" .
014  "truetype/ttf-bitstream-vera/VeraSe.ttf";
015
016 Log::Log4perl->easy_init($ERROR);
017
018 my($video_file, $upper, $lower) = @ARGV;
019 die "usage: $0 ",
020   "video_file upper_text lower_text"
021   unless defined $upper;
022
023 (my $video_out = $video_file) =~
024         s/(.[^.]+$)/-withtitle$1/;
025
026 my $video_mum  = throwaway_file(".avi");
027 my $video_title = throwaway_file(".avi");
028 my $audio_title = throwaway_file(".wav");
029 my $audio_total = throwaway_file(".wav");
030
031 my $grabber = Video::FrameGrab->new(
032           video => $video_file);
033
034 my $meta = $grabber->meta_data();
035
036 my $height = $meta->{video_height};
037 my $width = $meta->{video_width};
038
039 my $dir = jpeg_dir_create(
040   $width, $height, $upper, $lower,
041   $meta->{video_fps} * $title_length);
042
043 shell qw(mencoder -nosound),
044    "mf://$dir/*.jpg",
045    qw(-mf fps=30 -o),
046    $video_title,
047    qw(-ovc lavc -lavcopts vcodec=mjpeg);
048
049 my $sample_size = $meta->{audio_bitrate} /
050 $meta->{audio_rate} /
051 $meta->{audio_nch} / 8;
052
053 silent_wav( $title_length, $audio_title,
054  $meta->{audio_rate}, $meta->{audio_nch},
055  $sample_size );
056
057 shell qw(mplayer -vc null -vo null -ao
058     pcm), $video_file;
059
060 shell "sox", $audio_title,
061    "audiodump.wav", "-o", $audio_total;
062
063 shell "mencoder", "-nosound", $video_title,
064    $video_file, qw(-ovc lavc -lavcopts
065    vcodec=mjpeg -o), $video_mum;
066
067   # add sound
068 shell "mencoder", $video_mum, qw(-oac copy
069    -audiofile), $audio_total,
070    qw(-ovc copy -o), $video_out;
071
072 ###########################################
073 sub throwaway_file {
074 ###########################################
075   my($suffix) = @_;
076
077   my($fh, $file) = tempfile(
078     UNLINK => 1,
079     SUFFIX => $suffix,
080   );
081   return $file;
082 }
083
084 ###########################################
085 sub shell {
086 ###########################################
087   my($stdout, $stderr, $rc) = tap @_;
088
089   if($rc) {
090     die "Command @_ failed: $stderr";
091   }
092 }
093
094 ###########################################
095 sub jpeg_dir_create {
096 ###########################################
097  my($w, $h, $upper, $lower, $n) = @_;
098
099  my $img = Imager->new(xsize => $width,
100             ysize => $height);
101
102  my $black = Imager::Color->new( 0,0,0 );
103  $img->box(color=> $black, filled => 1);
104
105
106  my $font = Imager::Font->new( file =>
107   $FONT_FILENAME) or die Imager->errstr;
108
109  $font->align(string => $upper,
110   size => 38, color => "white",
111   x => $width/2, y => $height/3,
112   halign => "center", valign => "center",
113   image => $img );
114
115  $font->align(string => $lower,
116   size => 38, color => "white",
117   x => $width/2, y => $height*2/3,
118   halign => "center", valign => "center",
119   image => $img );
120
121  my($dir) = tempdir( CLEANUP => 1 );
122
123  my $img_file = "$dir/c.jpg";
124
125  $img->write(file => $img_file) or
126   die "Cannot write ($!)";
127
128  for (1..$n-1) {
129    cd $dir;
130    (my $link = $img_file) =~ s/./$_./;
131    link $img_file, $link or die $!;
132    cdback;
133  }
134
135  return $dir;
136 }
137
138 ###########################################
139 sub silent_wav {
140 ###########################################
141  my($secs, $outfile, $rate, $channels,
142   $sample_size) = @_;
143
144  my($fh, $tempfile) =
145   tempfile( UNLINK => 1,
146        SUFFIX => ".dat" );
147
148  print $fh "; SampleRate $raten";
149  my $samples = $secs * $rate;
150
151  for (my $i = 0; ($i < $samples); $i++) {
152    print $fh $i / $rate, "t0n";
153  }
154  close $fh;
155
156  shell "sox", $tempfile, "-r", $rate,
157     "-u", "-$sample_size", "-c",
158     $channels, $outfile;
159 }