calculate correct density for svg -> pbm convert

diff --git a/svg-render.pl b/svg-render.pl
new file mode 100755 (executable)
index 0000000..6624066
--- /dev/null
+++ b/svg-render.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+# 5166 px = 1000 dpi
+
+my $w = 832;
+
+my $density = $w / 5166 * 1000;
+warn "# density = $density\n";
+
+my $from = shift @ARGV || die "usage: $0 template.svg\n";
+
+system "convert -density $density $from $from.pbm";
+
+