added lines for additional sensor

[vaillant-thermostat] / pgm2fb.pl

#!/usr/bin/perl
use warnings;
use strict;

my $path = shift @ARGV || die "usage: $0 image.pgm";

my $o_x = $ENV{O_X} || 0;
my $o_y = $ENV{O_Y} || 0;

open(my $in, '<', $path) || die "$path: $!";

my $magic = <$in>;
die "wrong magic $magic" unless $magic =~ m/^P5/;
my $size = <$in>;
chomp $size;
my ( $w, $h ) = split(/ /,$size);
<$in>;

my $fb;

my $y = 0;

seek($in, $w * $o_y, 1) if $o_y;

while(my $size = read($in, my $px, $w)) {

        foreach my $x ( 0 .. $w / 2 - 1 ) {

                my ($a,$b);

                if ( length($px) < $x * 2 + $o_x + 2 ) {
                        print "\x00";
                } else {        

                        my ($a,$b) = unpack('CC', substr($px,$x * 2 + $o_x,2));
                        print pack( 'C', (
                                ( $a & 0xf0 )
                                |
                                ( ( $b & 0xf0 ) >> 4 )
                        ) ^ 0xff );

                }

        }

        $y++;
        last if $y == $h;
}