#!/bin/bash
size=`perl -e 'use Impedance::Header; print $Impedance::Header::pssize;'`
#$Id: ps2png,v 1.6 2012/10/04 06:38:14 sofc Exp $
echo "quit" | /usr/bin/gs -q -sDEVICE=png256 -sOutputFile=/tmp/dump$$.png  $1 > /dev/null 2> /dev/null
#/usr/bin/convert $1 /tmp/dump$$.png

/usr/bin/convert /tmp/dump$$.png -trim -rotate 90 -resize $size /tmp/dump1$$.png
/usr/bin/convert -size $size xc:white /tmp/dump1$$.png -gravity southwest -compose over -composite /tmp/dump$$.png
/usr/bin/convert -border 10x10 -bordercolor white /tmp/dump$$.png   $2
rm -f /tmp/dump$$.png
rm -f /tmp/dump1$$.png

