diff options
Diffstat (limited to 'lib/App/VRR')
| -rw-r--r-- | lib/App/VRR/Fakedisplay.pm.PL | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL index a6d9e5f..8621d32 100644 --- a/lib/App/VRR/Fakedisplay.pm.PL +++ b/lib/App/VRR/Fakedisplay.pm.PL @@ -8,23 +8,24 @@ use GD; my ($out_file) = @ARGV; my $font = GD::Image->new('share/font.png'); -my $black = $font->colorClosest(0, 0, 0); +my $black = $font->colorClosest( 0, 0, 0 ); -open(my $out_fh, '>:encoding(UTF-8)', $out_file) or die("open ${out_file}: $!"); +open( my $out_fh, '>:encoding(UTF-8)', $out_file ) + or die("open ${out_file}: $!"); sub write_out { - my ($off_x, $off_y, $char) = @_; + my ( $off_x, $off_y, $char ) = @_; my $char_w = 0; say $out_fh "'${char}' => {"; say $out_fh 'matrix => ['; - for my $pos_y ( $off_y .. ($off_y + 10)) { + for my $pos_y ( $off_y .. ( $off_y + 10 ) ) { print $out_fh '[ '; - for my $pos_x ( $off_x .. ($off_x + 10)) { - if ($font->getPixel($pos_x, $pos_y) == $black) { + for my $pos_x ( $off_x .. ( $off_x + 10 ) ) { + if ( $font->getPixel( $pos_x, $pos_y ) == $black ) { - if (($pos_x - $off_x) > $char_w) { + if ( ( $pos_x - $off_x ) > $char_w ) { $char_w = $pos_x - $off_x; } @@ -40,7 +41,7 @@ sub write_out { # spacing (one empty column) $char_w++; - if ($char eq q{ }) { + if ( $char eq q{ } ) { $char_w = 5; } @@ -50,18 +51,17 @@ sub write_out { } sub parse_char_row { - my ($off_y, @chars) = @_; + my ( $off_y, @chars ) = @_; my $off_x = 0; for my $char (@chars) { - write_out($off_x, $off_y, $char); + write_out( $off_x, $off_y, $char ); $off_x += 10; } return; } - print $out_fh <<'___CUT___'; package App::VRR::Fakedisplay; @@ -99,11 +99,11 @@ sub new { ___CUT___ -parse_char_row( 0, 'A' .. 'Z'); -parse_char_row(10, 'a' .. 'z'); -parse_char_row(20, '0' .. '9'); -parse_char_row(30, q{:}, q{-}, q{.}, q{,}, q{/}, q{ }); -parse_char_row(40, qw(ä ö ü)); +parse_char_row( 0, 'A' .. 'Z' ); +parse_char_row( 10, 'a' .. 'z' ); +parse_char_row( 20, '0' .. '9' ); +parse_char_row( 30, q{:}, q{-}, q{.}, q{,}, q{/}, q{ } ); +parse_char_row( 40, qw(ä ö ü) ); print $out_fh <<'___CUT___'; |