diff options
| -rwxr-xr-x | monitor-parse-edid | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/monitor-parse-edid b/monitor-parse-edid index 7fd5fe4..ba14847 100755 --- a/monitor-parse-edid +++ b/monitor-parse-edid @@ -47,22 +47,22 @@ if ($length % 128 == 0 && $length >= 128 && $length <= 128 * 254) { foreach my $raw_edid (@raw_edids) { my $edid = parse_edid($raw_edid, $verbose); if (my $err = check_parsed_edid($edid)) { - die "$err\n"; + die "$err\n"; } $edid->{file} = $file if $file; if ($raw_perl) { - use Data::Dumper; - $Data::Dumper::Sortkeys = 1; - my $s = Dumper($edid); - $s =~ s/.*? = \{/+{/; # remove variable name we don't want - $s =~ s/};$/}/m; - print $s; + use Data::Dumper; + $Data::Dumper::Sortkeys = 1; + my $s = Dumper($edid); + $s =~ s/.*? = \{/+{/; # remove variable name we don't want + $s =~ s/};$/}/m; + print $s; } elsif ($MonitorsDB) { - my $s = to_MonitorsDB($edid); - print "$s\n" if $s; + my $s = to_MonitorsDB($edid); + print "$s\n" if $s; } else { - print_edid($edid, $verbose); + print_edid($edid, $verbose); } } @@ -88,36 +88,36 @@ sub print_edid { # this is a number, despite the official name containing "flag": print "EDID extension blocks: $edid->{extension_flag}\n"; printf "Screen size: %.1f cm x %.1f cm (%3.2f inches%s)\n", - $edid->{max_size_horizontal}, - $edid->{max_size_vertical}, - $edid->{diagonal_size}, - $edid->{ratio_name} ? sprintf(", aspect ratio %s = %.2f", $edid->{ratio_name}, $edid->{ratio}) : - $edid->{ratio} ? sprintf(", aspect ratio %.2f", $edid->{ratio}) : ''; - + $edid->{max_size_horizontal}, + $edid->{max_size_vertical}, + $edid->{diagonal_size}, + $edid->{ratio_name} ? sprintf(", aspect ratio %s = %.2f", $edid->{ratio_name}, $edid->{ratio}) : + $edid->{ratio} ? sprintf(", aspect ratio %.2f", $edid->{ratio}) : ''; + print "Gamma: ", $edid->{gamma} / 100 + 1, "\n"; printf "%s signal\n", $edid->{video_input_definition}{digital} ? 'Digital' : 'Analog'; if ($verbose) { - foreach (@{$edid->{established_timings} || []}) { - print "Standard resolution: $_->{X}x$_->{Y} @ $_->{vfreq} Hz (established timing)\n" if !$_->{interlace}; - } - foreach (@{$edid->{standard_timings} || []}) { - print "Standard resolution: $_->{X}x$_->{Y} @ $_->{vfreq} Hz, ratio $_->{ratio}", - $edid->{ratio_name} && index($edid->{ratio_name}, $_->{ratio}) == -1 ? ' (!)' : '', - "\n"; - } + foreach (@{$edid->{established_timings} || []}) { + print "Standard resolution: $_->{X}x$_->{Y} @ $_->{vfreq} Hz (established timing)\n" if !$_->{interlace}; + } + foreach (@{$edid->{standard_timings} || []}) { + print "Standard resolution: $_->{X}x$_->{Y} @ $_->{vfreq} Hz, ratio $_->{ratio}", + $edid->{ratio_name} && index($edid->{ratio_name}, $_->{ratio}) == -1 ? ' (!)' : '', + "\n"; + } } if ($edid->{monitor_range}) { - printf "Max video bandwidth: %u MHz\n", $edid->{monitor_range}{pixel_clock_max} if $edid->{monitor_range}{pixel_clock_max}; - print "\n"; - printf "\tHorizSync %u-%u\n", $edid->{monitor_range}{horizontal_min}, $edid->{monitor_range}{horizontal_max}; - printf "\tVertRefresh %u-%u\n", $edid->{monitor_range}{vertical_min}, $edid->{monitor_range}{vertical_max}; + printf "Max video bandwidth: %u MHz\n", $edid->{monitor_range}{pixel_clock_max} if $edid->{monitor_range}{pixel_clock_max}; + print "\n"; + printf "\tHorizSync %u-%u\n", $edid->{monitor_range}{horizontal_min}, $edid->{monitor_range}{horizontal_max}; + printf "\tVertRefresh %u-%u\n", $edid->{monitor_range}{vertical_min}, $edid->{monitor_range}{vertical_max}; } foreach my $h (@{$edid->{detailed_timings}}) { - print "\n"; - print "\t", $h->{ModeLine_comment}, $h->{bad_ratio} ? ' (bad ratio)' : '', "\n"; - print "\tModeLine ", $h->{ModeLine}, "\n"; + print "\n"; + print "\t", $h->{ModeLine_comment}, $h->{bad_ratio} ? ' (bad ratio)' : '', "\n"; + print "\tModeLine ", $h->{ModeLine}, "\n"; } } |