zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-06 06:21:16 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

minor fixes to the hardcopy output code

Browse Source
This commit is contained in:
Dima Kogan 2009-12-03 11:37:50 -08:00
parent e028ed2d40
commit 772f07d3c7
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
driveGnuPlots.pl
View File

@ -130,18 +130,20 @@ sub mainThread {
($outputfileType) = $outputfile =~ /\.(ps|pdf|png)$/;
if(!$outputfileType) { die("Only .ps, .pdf and .png supported\n"); }
if ($outputfileType eq "png")
{
print PIPE "set terminal png\n";
}
else
{
print PIPE "set terminal postscript solid color landscape 10\n";
}
# write to a temporary file first
$temphardcopyfile = $outputfile;
$temphardcopyfile =~ s{/}{_}g;
$temphardcopyfile = "/tmp/$temphardcopyfile";
if ($outputfileType eq "png")
{
print PIPE "set terminal png\n";
$temphardcopyfile .= '.png';
}
else
{
print PIPE "set terminal postscript solid color landscape 10\n";
$temphardcopyfile .= '.ps';
}
print PIPE "set output \"$temphardcopyfile\"\n";
}
else
@ -242,6 +244,7 @@ sub mainThread {
usleep(100_000) until -e $temphardcopyfile;
usleep(100_000) until(system("fuser -s $temphardcopyfile"));
print "Finished gnuplotting. Converting...\n";
if($outputfileType eq "pdf")
{
system("ps2pdf $temphardcopyfile $outputfile");
@ -250,7 +253,7 @@ sub mainThread {
{
system("mv $temphardcopyfile $outputfile");
}
printf "Wrote output to $outputfile\n";
print "Wrote output to $outputfile\n";
return;
}