loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.170, 2012/12/05 19:30:28	version 1.172, 2013/01/31 17:10:38
Line 1752 sub generate_tics {	Line 1752 sub generate_tics {
if ($spec->{'minorfreq'} != 0) {	if ($spec->{'minorfreq'} != 0) {
$result .= "set m$type $spec->{'minorfreq'}\n";	$result .= "set m$type $spec->{'minorfreq'}\n";
}	}
} else {	} elsif ($target eq 'tex' ) {
$result .= "set $type font " . '"Helvetica,22"' ."\n";	$result .= "set $type font " . '"Helvetica,22"' ."\n";
}	}

Line 1984 sub write_gnuplot_file {	Line 1984 sub write_gnuplot_file {
#	#
my $linestyle_index = 50;	my $linestyle_index = 50;
my $line_width = '';	my $line_width = '';
my $plots;	my $plots = '';

# If arrows are needed there will be an arrow style for each as well:	# If arrows are needed there will be an arrow style for each as well:
#	#
Line 1993 sub write_gnuplot_file {	Line 1993 sub write_gnuplot_file {

for (my $i = 0;$i<=$#curves;$i++) {	for (my $i = 0;$i<=$#curves;$i++) {
$curve = $curves[$i];	$curve = $curves[$i];
my $plot_command;	my $plot_command = '';
my $plot_type = ', ' if ($i > 0);	my $plot_type = '';
	if ($i > 0) {
	$plot_type = ', ';
	}
if ($target eq 'tex') {	if ($target eq 'tex') {
$curve->{'linewidth'} *= 2;	$curve->{'linewidth'} *= 2;
}	}