From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 13 Nov 2009 20:50:05 +0000 (+0100)
Subject: render SMPTE Color Bars
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=e9c68a3ea4bb42b9fa772715eb5c023851c2a27c;p=HTML5TV.git

render SMPTE Color Bars
---

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index f22ea36..b4f3721 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -304,6 +304,18 @@ sub html5tv {
 
 	}
 
+
+	my $bars = "$path/bars.png";
+	if ( 1 || ! -e $bars ) { # FIXME
+		my $im = Graphics::Magick->new;
+		$im->ReadImage( "$media_dir/../SMPTE_Color_Bars.svg" );
+		my ($slide_width, $slide_height) = Graphics::Magick->new->Ping( slide_jpg( 1 => 1 ) );
+		$im->Resize( width => $slide_width, height => $slide_height );
+		$im->Write( filename => $bars );
+		warn "created $bars ", -s $bars, " bytes\n";
+	}
+
+
 	my ($slide_width, $slide_height, $size, $format) = Graphics::Magick->new->Ping( slide_jpg( $slide_factor => 1 ) );
 
 	my $html5tv = {