--- /usr/local/tex/l2h-2K2-2-1+jp2.1b1.7/bin/pstoimg	Tue Nov  7 14:55:02 2006
+++ pstoimg	Fri Apr  6 20:45:30 2007
@@ -351,7 +351,8 @@
 my %opt = ();
 unless(&GetOptions(\%opt, qw(-help -version -debug -discard -antialias -aaliastext
   -multipage -type=s -gif -png -out=s -depth=i -color=i -flip=s -density=i
-  -scale=f -geometry=s -margins=s -crop=s -transparent -interlaced -interlace
+  -scale=f -geometry=s -margins=s -crop=s -transparent -interlaced -interlace 
+  -psfrag
   -rightjustify=i -center=i -topjustify=s -shoreup=s -tmp=s -white -quiet))) {
   print_usage("$prompt: Error: Invalid option(s) specified.");
   exit 1;
@@ -539,6 +540,12 @@
 EOF
   }
 
+# added by shige 04/06 2007
+my $psfragfactor = 2;
+if($opt{psfrag}) {
+    $EXTRA_CROP .= 'r';
+}
+
 =item B<-interlaced>
 
 Generate an interlaced bitmap. Interlaced images build up from coarse to
@@ -975,6 +982,8 @@
           }
           $bbw = int($bbw + 0.99);
           $bbh = int($bbh + 0.99);
+	  # added by shige 04/06 2007
+	  if($opt{psfrag}){ $bbw = $psfragfactor*$bbw; }
           $GEOMETRY = "${bbw}x${bbh}";
           $have_geometry = 1;
           last;