version 1.19, 2002/08/21 12:49:58
|
version 1.20, 2002/08/23 20:02:22
|
Line 29 use Image::Magick;
|
Line 29 use Image::Magick;
|
$image->Set(page => '+100+200'); |
$image->Set(page => '+100+200'); |
$status = $image->Write($eps_f); |
$status = $image->Write($eps_f); |
if ($status) {print " $status ";} |
if ($status) {print " $status ";} |
|
#check is eps exist in prtspool |
|
if(not -e $eps_f) { |
|
for (my $i=0;$i<10000;$i++) { |
|
if (-e $eps_f.'.'.$i) { |
|
rename $eps_f.'.'.$i, $eps_f; |
|
last; |
|
} |
|
} |
|
} |
} |
} |
} |
} |
unlink $figfile; |
unlink $figfile; |