From 40ec43afcb4f3ef677c27056cb5024f6f5845adc Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 30 Oct 2011 11:21:52 +0100 Subject: Autocreate Fakedisplay.pm with cached font.png --- lib/App/VRR/Fakedisplay.pm | 171 -------------------------------------- lib/App/VRR/Fakedisplay.pm.PL | 187 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 187 insertions(+), 171 deletions(-) delete mode 100644 lib/App/VRR/Fakedisplay.pm create mode 100644 lib/App/VRR/Fakedisplay.pm.PL (limited to 'lib') diff --git a/lib/App/VRR/Fakedisplay.pm b/lib/App/VRR/Fakedisplay.pm deleted file mode 100644 index 58edb4a..0000000 --- a/lib/App/VRR/Fakedisplay.pm +++ /dev/null @@ -1,171 +0,0 @@ -package App::VRR::Fakedisplay; - -use strict; -use warnings; -use 5.010; -use utf8; - -use File::ShareDir qw(dist_file); -use GD; - -our $VERSION = '0.00'; - -sub new { - my ( $class, %opt ) = @_; - - my $self = { - font_file => dist_file( 'App-VRR-Fakedisplay', 'font.png' ), - width => $opt{width} || 140, - height => $opt{height} || 40, - scale => 10, - offset_x => 0, - offset_y => 0, - }; - - $self->{font} = GD::Image->new($self->{font_file}); - $self->{image} = GD::Image->new($self->{width} * $self->{scale}, $self->{height} * $self->{scale}); - - $self->{color}->{bg} = $self->{image}->colorAllocate(0, 0, 0); - $self->{color}->{fg} = $self->{image}->colorAllocate(@{$opt{color} // [255, 0, 0]}); - - $self->{image}->filledRectangle(0, 0, ($self->{width} * $self->{scale}) -1, - ($self->{height} * $self->{scale}) - 1, $self->{color}->{bg}); - - $self->{font_idx} = $self->{font}->colorClosest(0, 0, 0); - - return bless( $self, $class ); -} - -sub locate_char { - my ($self, $char) = @_; - my ($x, $y, $w, $h) = (0, 30, 6, 10); - - given ($char) { - when (/[a-z]/) { $y = 10; $x = (ord($char) - 97) * 10 } - 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 } - when (q{.}) { $y = 30; $x = 20 } - when (q{,}) { $y = 30; $x = 30 } - when (q{/}) { $y = 30; $x = 40 } - } - - given ($char) { - when (/[WwMm]/) { $w = 8 } - when (/[BEFkrt ]/) { $w = 5 } - when (/[il1:]/) { $w = 4 } - when (/[.,]/) { $w = 3 } - } - - return ($x, $y, $w, $h); -} - -sub draw_at { - my ($self, $offset_x, $text) = @_; - - my $im = $self->{image}; - my $font = $self->{font}; - - my $c_bg = $self->{color}{bg}; - my $c_fg = $self->{color}{fg}; - - 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) * $scale, ($off_y + $pos_y - $y) * $scale, - $scale, $scale, - $c_fg - ); - } - } - } - $off_x += $w; - } - - return; -} - -sub new_line { - my ($self) = @_; - $self->{offset_y} += 10; - - return; -} - -sub png { - my ($self) = @_; - - return $self->{image}->png; -} - -sub write_image_to { - my ($self, $filename) = @_; - - open(my $out_fh, '>', $filename) or die("Cannot open ${filename}: ${!}\n"); - binmode $out_fh; - print $out_fh $self->{image}->png; - close($out_fh); - - return; -} - - -1; - -__END__ - -=head1 NAME - -=head1 SYNOPSIS - -=head1 VERSION - -version - -=head1 DESCRIPTION - -=head1 METHODS - -=over - -=back - -=head1 DIAGNOSTICS - -=head1 DEPENDENCIES - -=over - -=back - -=head1 BUGS AND LIMITATIONS - -=head1 SEE ALSO - -=head1 AUTHOR - -Copyright (C) 2011 by Daniel Friesel Ederf@finalrewind.orgE - -=head1 LICENSE - - 0. You just DO WHAT THE FUCK YOU WANT TO. diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL new file mode 100644 index 0000000..ebb436d --- /dev/null +++ b/lib/App/VRR/Fakedisplay.pm.PL @@ -0,0 +1,187 @@ +#!/usr/bin/env perl; +use strict; +use warnings; +use 5.010; +use utf8; + +use GD; + +my ($out_file) = @ARGV; +my $font = GD::Image->new('share/font.png'); +my $black = $font->colorClosest(0, 0, 0); + +open(my $out_fh, '>', $out_file) or die("open ${out_file}: $!"); + +sub write_out { + 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)) { + print $out_fh '[ '; + for my $pos_x ( $off_x .. ($off_x + 10)) { + if ($font->getPixel($pos_x, $pos_y) == $black) { + + if (($pos_x - $off_x) > $char_w) { + $char_w = $pos_x - $off_x; + } + + print $out_fh '1, '; + } + else { + print $out_fh '0, '; + } + } + say $out_fh ' ],'; + } + + # spacing (one empty column) + $char_w++; + + if ($char eq q{ }) { + $char_w = 5; + } + + say $out_fh '],'; + say $out_fh "width => ${char_w},"; + say $out_fh '},'; +} + +sub parse_char_row { + my ($off_y, @chars) = @_; + my $off_x = 0; + + for my $char (@chars) { + write_out($off_x, $off_y, $char); + $off_x += 10; + } + + return; +} + + +print $out_fh <<'___CUT___'; + +package App::VRR::Fakedisplay; + +use strict; +use warnings; +use 5.010; +use utf8; + +use File::ShareDir qw(dist_file); +use GD; + +our $VERSION = '0.00'; + +sub new { + my ( $class, %opt ) = @_; + + my $self = { + width => $opt{width} || 140, + height => $opt{height} || 40, + scale => 10, + offset_x => 0, + offset_y => 0, + }; + + $self->{image} = GD::Image->new($self->{width} * $self->{scale}, $self->{height} * $self->{scale}); + + $self->{color}->{bg} = $self->{image}->colorAllocate(0, 0, 0); + $self->{color}->{fg} = $self->{image}->colorAllocate(@{$opt{color} // [255, 0, 0]}); + + $self->{image}->filledRectangle(0, 0, ($self->{width} * $self->{scale}) -1, + ($self->{height} * $self->{scale}) - 1, $self->{color}->{bg}); + + $self->{font} = { + +___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(ä ö ü)); + +print $out_fh <<'___CUT___'; + + }; + + return bless( $self, $class ); +} + +sub draw_at { + my ($self, $offset_x, $text) = @_; + + my $im = $self->{image}; + my $font = $self->{font}; + + my $c_bg = $self->{color}{bg}; + my $c_fg = $self->{color}{fg}; + + 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)) { + + if (not exists $self->{font}->{$char}) { + next; + } + + my $w = $self->{font}->{$char}->{width}; + + for my $y ( 0 .. 10 ) { + for my $x ( 0 .. $w ) { + if ($self->{font}->{$char}->{matrix}->[$y]->[$x]) { + $im->filledEllipse( + ($off_x + $x) * $scale, ($off_y + $y) * $scale, + $scale, $scale, + $c_fg + ); + } + } + } + $off_x += $w; + } + + return; +} + +sub new_line { + my ($self) = @_; + $self->{offset_y} += 10; + + return; +} + +sub png { + my ($self) = @_; + + return $self->{image}->png; +} + +sub write_image_to { + my ($self, $filename) = @_; + + open(my $out_fh, '>', $filename) or die("Cannot open ${filename}: ${!}\n"); + binmode $out_fh; + print $out_fh $self->{image}->png; + close($out_fh); + + return; +} + +1; + +___CUT___ + +close($out_fh); -- cgit v1.2.3