loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.171, 2013/01/21 02:25:38	version 1.172, 2013/01/31 17:10:38
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;
}	}