summaryrefslogtreecommitdiff
path: root/lib/App/VRR
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-11-13 14:38:42 +0100
committerDaniel Friesel <derf@finalrewind.org>2011-11-13 14:38:42 +0100
commitf1cfe4856b67f112d6b159ad0c7c471c58707ef2 (patch)
treec939e587948aed224a45a20f4af047f6250bf754 /lib/App/VRR
parent2da3e80696847bc9cf2c7453888ae998a36269c8 (diff)
Fakedisplay.pm: Make 0..9 digits monospace
Diffstat (limited to 'lib/App/VRR')
-rw-r--r--lib/App/VRR/Fakedisplay.pm.PL8
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL
index 26e1434..1a9bf49 100644
--- a/lib/App/VRR/Fakedisplay.pm.PL
+++ b/lib/App/VRR/Fakedisplay.pm.PL
@@ -20,6 +20,10 @@ sub write_out {
say $out_fh "'${char}' => {";
say $out_fh 'matrix => [';
+ if ($char eq '1') {
+ $off_x--;
+ }
+
for my $pos_y ( $off_y .. ( $off_y + 10 ) ) {
print $out_fh '[ ';
for my $pos_x ( $off_x .. ( $off_x + 10 ) ) {
@@ -45,6 +49,10 @@ sub write_out {
$char_w = 5;
}
+ if ($char ~~ [qw[0 1 2 3 4 5 6 7 8 9]]) {
+ $char_w = 6;
+ }
+
say $out_fh '],';
say $out_fh "width => ${char_w},";
say $out_fh '},';