From 7eda6144f679c503a30563157c9bb22f53704828 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 29 Oct 2011 11:59:45 +0200
Subject: Show duration

---
 lib/App/VRR/Fakedisplay.pm | 28 +++++++++++++++++++---------
 1 file changed, 19 insertions(+), 9 deletions(-)

(limited to 'lib')

diff --git a/lib/App/VRR/Fakedisplay.pm b/lib/App/VRR/Fakedisplay.pm
index 3912560..782f7ca 100644
--- a/lib/App/VRR/Fakedisplay.pm
+++ b/lib/App/VRR/Fakedisplay.pm
@@ -3,6 +3,7 @@ package App::VRR::Fakedisplay;
 use strict;
 use warnings;
 use 5.010;
+use utf8;
 
 use File::ShareDir qw(dist_file);
 use GD;
@@ -10,12 +11,12 @@ use GD;
 our $VERSION = '0.00';
 
 sub new {
-	my ( $class, %opts ) = @_;
+	my ( $class, %opt ) = @_;
 
 	my $self = {
 		font_file => dist_file( 'App-VRR-Fakedisplay', 'font.png' ),
-		width => 300,
-		height => 50,
+		width => $opt{width} || 140,
+		height => $opt{height} || 40,
 		scale => 10,
 		offset_x => 0,
 		offset_y => 0,
@@ -44,6 +45,10 @@ sub locate_char {
 		when (/[A-Z]/) { $y =  0; $x = (ord($char) - 65) * 10 }
 		when (/[0-9]/) { $y = 20; $x = (ord($char) - 48) * 10 }
 
+		when (q{ä}) { $y = 40; $x =  0 }
+		when (q{ö}) { $y = 40; $x = 10 }
+		when (q{ü}) { $y = 40; $x = 20 }
+
 		when (q{ }) { $y = 90; $x =   0 }
 		when (q{:}) { $y = 30; $x =   0 }
 		when (q{-}) { $y = 30; $x =  10 }
@@ -53,9 +58,9 @@ sub locate_char {
 
 	given ($char) {
 		when (/[WwMm]/) { $w = 8 }
-		when (/[BDEt]/) { $w = 5 }
-		when (/[il]/) { $w = 4 }
-		when (/[:.,]/) { $w = 3 }
+		when (/[BDErt ]/) { $w = 5 }
+		when (/[il1:]/) { $w = 4 }
+		when (/[.,]/) { $w = 3 }
 	}
 
 	return ($x, $y, $w, $h);
@@ -72,20 +77,25 @@ sub draw_at {
 
 	my $font_idx = $self->{font_idx};
 
+	my $scale = $self->{scale};
+
 	my ($off_x, $off_y) = ($offset_x, $self->{offset_y});
 
+	if ($off_y >= $self->{height} or $off_x >= $self->{width}) {
+		return;
+	}
+
 	for my $char (split(qr{}, $text)) {
 		my ($x, $y, $w, $h) = $self->locate_char($char);
 		for my $pos_x ( $x .. ($x + $w) ) {
 			for my $pos_y ( $y .. ($y + $h)) {
 				if ($font->getPixel($pos_x, $pos_y) == $font_idx) {
 					$im->filledEllipse(
-						($off_x + $pos_x - $x) * 10, ($off_y + $pos_y - $y) * 10,
-						10, 10,
+						($off_x + $pos_x - $x) * $scale, ($off_y + $pos_y - $y) * $scale,
+						$scale, $scale,
 						$c_fg
 					);
 				}
-				say "";
 			}
 		}
 		$off_x += $w;
-- 
cgit v1.2.3