loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.97, 2004/06/21 20:04:29	version 1.100, 2004/08/17 17:37:56
Line 43 BEGIN {	Line 43 BEGIN {
#	#
# Determine the version of GNUPLOT	# Determine the version of GNUPLOT
$weboutputformat = 'gif';	$weboutputformat = 'gif';
$versionstring = `gnuplot --version`;	$versionstring = `gnuplot --version 2>/dev/null`;
if ($versionstring =~ /^gnuplot 4/) {	if ($versionstring =~ /^gnuplot 4/) {
$weboutputformat = 'png';	$weboutputformat = 'png';
}	}
Line 311 my %tic_defaults =	Line 311 my %tic_defaults =
minorfreq => {	minorfreq => {
default => '0',	default => '0',
test => $int_test,	test => $int_test,
description => 'Number of minor tics between major tic marks',	description => 'Number of minor tics per major tic mark',
edit_type => 'entry',	edit_type => 'entry',
size => '10'	size => '10'
},	},
Line 954 sub write_gnuplot_file {	Line 954 sub write_gnuplot_file {
my $gnuplot_input = '';	my $gnuplot_input = '';
my $curve;	my $curve;
my $pt = $plot{'texfont'};	my $pt = $plot{'texfont'};
	#
	# Check to be sure we do not have any empty curves
	my @curvescopy;
	foreach my $curve (@curves) {
	if (exists($curve->{'function'})) {
	if ($curve->{'function'} !~ /^\s*$/) {
	push(@curvescopy,$curve);
	}
	} elsif (exists($curve->{'data'})) {
	foreach my $data (@{$curve->{'data'}}) {
	if (scalar(@$data) > 0) {
	push(@curvescopy,$curve);
	last;
	}
	}
	}
	}
	@curves = @curvescopy;
# Collect all the colors	# Collect all the colors
my @Colors;	my @Colors;
push @Colors, $plot{'bgcolor'};	push @Colors, $plot{'bgcolor'};