diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-11-13 14:38:42 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-11-13 14:38:42 +0100 |
| commit | f1cfe4856b67f112d6b159ad0c7c471c58707ef2 (patch) | |
| tree | c939e587948aed224a45a20f4af047f6250bf754 | |
| parent | 2da3e80696847bc9cf2c7453888ae998a36269c8 (diff) | |
Fakedisplay.pm: Make 0..9 digits monospace
| -rw-r--r-- | lib/App/VRR/Fakedisplay.pm.PL | 8 |
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 '},'; |