svg-render.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 # 5166 px = 1000 dpi
   6
   7 my $w = 832;
   8
   9 my $density = $w / 5166 * 1000;
  10 warn "# density = $density\n";
  11
  12 my $from = shift @ARGV || die "usage: $0 template.svg\n";
  13
  14 system "convert -density $density $from $from.pbm";
  15
  16