# use the following to verify image attributes
# identify -verbose <filename>
-# set DPI to 146, so that we can display 1024 pixels (page width)
+# set PixelsPerCentimeter to 58, so that we can display 1024
+# pixels (page width)
-my $dpi = 146;
+my $dpcm = 58;
-system("convert -units PixelsPerInch $infile -density $dpi $outfile");
+system("convert -units PixelsPerCentimeter $infile -density $dpcm $outfile");
# identify should return the same value
-# system("identify -units PixelsPerInch -format '%x x %y' $outfile");
+# system("identify -units PixelsPerCentimeter -format '%x x %y' $outfile");
my $infile = shift ||
die "no input file specified\n";
-my $dpi = 146; # expected
+my $dpcm = 58; # expected
-my $tmp = `identify -units PixelsPerInch -format '%x x %y' $infile`;
+my $tmp = `identify -units PixelsPerCentimeter -format '%x x %y' $infile`;
-die "got unexpected DPI density '$tmp' (fix with png-cleanup.pl)\n"
- if $tmp ne "$dpi x $dpi";
+die "got unexpected density '$tmp' (fix with png-cleanup.pl)\n"
+ if $tmp ne "$dpcm x $dpcm";
exit 0;