version 1.18, 2002/08/14 20:38:52
|
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; |
Line 80 use Image::Magick;
|
Line 89 use Image::Magick;
|
system("$comma $tempo_file"); |
system("$comma $tempo_file"); |
system("ps2pdf $tempo_file $name_file"); |
system("ps2pdf $tempo_file $name_file"); |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { |
$comma = 'pstops "2:0+1(0.5w,0)"'; |
$comma = 'pstops -pletter "2:0+1(0.5w,0)"'; |
system("$comma $new_name_file $tempo_file"); |
system("$comma $new_name_file $tempo_file"); |
system("ps2pdf $tempo_file $name_file"); |
system("ps2pdf $tempo_file $name_file"); |
} else { |
} else { |