- monitor-parse-edid:

  o compute and display the "dpi" of the preferred modelines

2 files changed, 20 insertions, 2 deletions

diff --git a/NEWS b/NEWS
index 883fefe..89243c6 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- monitor-parse-edid:
+  o compute and display the "dpi" of the preferred modelines
+
 Version 2.0 - 8 April 2008
 
 - change license from LGPLv2+ to GPLv3+
diff --git a/monitor-parse-edid b/monitor-parse-edid
index d8b76b9..e976814 100755
--- a/monitor-parse-edid
+++ b/monitor-parse-edid
@@ -316,13 +316,28 @@ sub parse_edid {
 
 	$h->{bad_ratio} = 1 if abs($edid{ratio} - $h->{horizontal_active} / $h->{vertical_active}) > ($edid{ratio_precision} eq 'mm' ? 0.02 : 0.2);
 
+	if ($edid{max_size_vertical}) {
+	    $h->{vertical_dpi} = $h->{vertical_active} / $edid{max_size_vertical} * 2.54;
+	}
+	if ($edid{max_size_horizontal}) {
+	    $h->{horizontal_dpi} = $h->{horizontal_active} / $edid{max_size_horizontal} * 2.54;
+	}
+	my $dpi_string = '';
+	if ($h->{vertical_dpi} && $h->{horizontal_dpi}) {
+	    $dpi_string = 
+	      abs($h->{vertical_dpi} / $h->{horizontal_dpi} - 1) < 0.05 ? 
+		sprintf("%d dpi", $h->{horizontal_dpi}) :
+		sprintf("%dx%d dpi", $h->{horizontal_dpi}, $h->{vertical_dpi});
+	}
+
 	my $horizontal_total = $h->{horizontal_active} + $h->{horizontal_blanking};
 	my $vertical_total = $h->{vertical_active} + $h->{vertical_blanking};
 
-	$h->{ModeLine_comment} = sprintf qq(# Monitor preferred modeline (%.1f Hz vsync, %.1f kHz hsync, ratio %s)),
+	$h->{ModeLine_comment} = sprintf qq(# Monitor preferred modeline (%.1f Hz vsync, %.1f kHz hsync, ratio %s%s)),
 	  $h->{pixel_clock} / $horizontal_total / $vertical_total * 1000 * 1000,
 	  $h->{pixel_clock} / $horizontal_total * 1000,
-	  nearest_ratio($h->{horizontal_active} / $h->{vertical_active}, 0.01) || sprintf("%.2f", $h->{horizontal_active} / $h->{vertical_active});
+	  nearest_ratio($h->{horizontal_active} / $h->{vertical_active}, 0.01) || sprintf("%.2f", $h->{horizontal_active} / $h->{vertical_active}),
+	  $dpi_string ? ", $dpi_string" : '';
 	  
 	$h->{ModeLine} = sprintf qq("%dx%d" $h->{pixel_clock} %d %d %d %d %d %d %d %d %shsync %svsync),
 	  $h->{horizontal_active}, $h->{vertical_active},