loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonplot.pm between versions 1.33 and 1.50

version 1.33, 2002/01/06 02:19:25	version 1.50, 2002/02/27 16:54:58
Line 28	Line 28
# 12/15/01 Matthew	# 12/15/01 Matthew
# 12/17 12/18 12/19 12/20 12/21 12/27 12/28 12/30 12/31 Matthew	# 12/17 12/18 12/19 12/20 12/21 12/27 12/28 12/30 12/31 Matthew
# 01/01/02 Matthew	# 01/01/02 Matthew
# 01/02 01/03 Matthew	# 01/02 01/03 01/04 01/07 01/08 01/09 Matthew
	# 01/21 02/05 02/06 Matthew

package Apache::lonplot;	package Apache::lonplot;

use strict;	use strict;
Line 38 use Apache::lonxml;	Line 40 use Apache::lonxml;
use Apache::edit;	use Apache::edit;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::lonplot',('plot'));	&Apache::lonxml::register('Apache::lonplot',('gnuplot'));
}	}

##	##
Line 84 my %linestyles =	Line 86 my %linestyles =
steps => 2, # now there are more important things	steps => 2, # now there are more important things
fsteps => 2, # for me to deal with.	fsteps => 2, # for me to deal with.
histeps => 2,	histeps => 2,
errorbars => 2,	errorbars => 3,
xerrorbars => 2,	xerrorbars => [3,4],
yerrorbars => 2,	yerrorbars => [3,4],
xyerrorbars => 2,	xyerrorbars => [4,6],
boxes => 2,	boxes => 3,
boxerrorbars => 2,	# boxerrorbars => [3,4,5],
boxxyerrorbars => 2,	# boxxyerrorbars => [4,6,7],
financebars => 2,	# financebars => 5,
candlesticks => 2,	# candlesticks => 5,
vector => 2	vector => 4
);	);

my $int_test = sub {$_[0]=~s/\s+//g;$_[0]=~/^\d+$/};	my $int_test = sub {$_[0]=~s/\s+//g;$_[0]=~/^\d+$/};
Line 111 my $words_test = sub {$_[0]=~s/\s+/	Line 113 my $words_test = sub {$_[0]=~s/\s+/
## Attribute metadata ##	## Attribute metadata ##
## ##	## ##
###################################################################	###################################################################
my %plot_defaults =	my @gnuplot_edit_order =
	qw/bgcolor fgcolor height width font transparent grid border align/;

	my $gnuplot_help_text = <<"ENDPLOTHELP";
	<p>
	The <b>gnuplot</b> tag allows an author to design a plot which can
	be created on the fly. This is intended for use in homework problems
	where each student needs to see a distinct plot. It can be used in
	conjunction with a <b>script</b> tag to generate random plots.
	</p><p>
	A <b>gnuplot</b> tag can contain the following sub-tags:
	</p>
	<dl>
	<dt> Plot Label
	<dd> Allows you to place text at a given (x,y) coordinate on the plot.
	<dt> Plot Title
	<dd> The title of the plot
	<dt> Plot Xlabel
	<dd> The label on the horizontal axis of the plot
	<dt> Plot Ylabel
	<dd> The label on the vertical axis of the plot
	<dt> Plot Axes
	<dd> allows specification of the x and y ranges displayed in the plot
	<dt> Plot Key
	<dd> Lists the functions displayed in the plot.
	<dt> Plot Curve
	<dd> Sets the data used in the plot.
	<dt> Plot Tics
	<dd> Allows specification of the x and y coordinate 'tics' on the axes.
	This is mostly used to adjust the grid lines when a grid is displayed.
	</dl>
	ENDPLOTHELP

	my %gnuplot_defaults =
(	(
height => {	height => {
default => 200,	default => 200,
test => $int_test,	test => $int_test,
description => 'height of image (pixels)',	description => 'height of image (pixels)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
width => {	width => {
default => 200,	default => 200,
test => $int_test,	test => $int_test,
description => 'width of image (pixels)',	description => 'width of image (pixels)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
bgcolor => {	bgcolor => {
default => 'xffffff',	default => 'xffffff',
test => $color_test,	test => $color_test,
description => 'background color of image (xffffff)',	description => 'background color of image (xffffff)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
fgcolor => {	fgcolor => {
default => 'x000000',	default => 'x000000',
test => $color_test,	test => $color_test,
description => 'foreground color of image (x000000)',	description => 'foreground color of image (x000000)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
transparent => {	transparent => {
default => 'off',	default => 'off',
test => $onoff_test,	test => $onoff_test,
description => '',	description => 'Transparent image',
edit_type => 'on_off'	edit_type => 'onoff'
},	},
grid => {	grid => {
default => 'off',	default => 'off',
test => $onoff_test,	test => $onoff_test,
description => '',	description => 'Display grid',
edit_type => 'on_off'	edit_type => 'onoff'
},	},
border => {	border => {
default => 'on',	default => 'on',
test => $onoff_test,	test => $onoff_test,
description => '',	description => 'Draw border around plot',
edit_type => 'on_off'	edit_type => 'onoff'
},	},
font => {	font => {
default => 'medium',	default => 'medium',
Line 177 my %key_defaults =	Line 216 my %key_defaults =
default => '',	default => '',
test => $words_test,	test => $words_test,
description => 'Title of key',	description => 'Title of key',
edit_type => 'entry'	edit_type => 'entry',
	size => '40'
},	},
box => {	box => {
default => 'off',	default => 'off',
test => $onoff_test,	test => $onoff_test,
description => 'Draw a box around the key?',	description => 'Draw a box around the key?',
edit_type => 'on_off'	edit_type => 'onoff'
},	},
pos => {	pos => {
default => 'top right',	default => 'top right',
Line 201 my %label_defaults =	Line 241 my %label_defaults =
default => 0,	default => 0,
test => $real_test,	test => $real_test,
description => 'x position of label (graph coordinates)',	description => 'x position of label (graph coordinates)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
ypos => {	ypos => {
default => 0,	default => 0,
test => $real_test,	test => $real_test,
description => 'y position of label (graph coordinates)',	description => 'y position of label (graph coordinates)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
justify => {	justify => {
default => 'left',	default => 'left',
Line 218 my %label_defaults =	Line 260 my %label_defaults =
}	}
);	);

	my @tic_edit_order = ('location','mirror','start','increment','end');
	my %tic_defaults =
	(
	location => {
	default => 'border',
	test => sub {$_[0]=~/^(border\|axis)$/},
	description => 'Location of tick marks',
	edit_type => 'choice',
	choices => ['border','axis']
	},
	mirror => {
	default => 'on',
	test => $onoff_test,
	description => 'mirror ticks on opposite axis?',
	edit_type => 'onoff'
	},
	start => {
	default => '-10.0',
	test => $real_test,
	description => 'Start ticks at',
	edit_type => 'entry',
	size => '10'
	},
	increment => {
	default => '1.0',
	test => $real_test,
	description => 'Place a tick every',
	edit_type => 'entry',
	size => '10'
	},
	end => {
	default => ' 10.0',
	test => $real_test,
	description => 'Stop ticks at ',
	edit_type => 'entry',
	size => '10'
	},
	);

my %axis_defaults =	my %axis_defaults =
(	(
color => {	color => {
default => 'x000000',	default => 'x000000',
test => $color_test,	test => $color_test,
description => 'color of axes (x000000)',	description => 'color of axes (x000000)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
xmin => {	xmin => {
default => '-10.0',	default => '-10.0',
test => $real_test,	test => $real_test,
description => 'minimum x-value shown in plot',	description => 'minimum x-value shown in plot',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
xmax => {	xmax => {
default => ' 10.0',	default => ' 10.0',
test => $real_test,	test => $real_test,
description => 'maximum x-value shown in plot',	description => 'maximum x-value shown in plot',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
ymin => {	ymin => {
default => '-10.0',	default => '-10.0',
test => $real_test,	test => $real_test,
description => 'minimum y-value shown in plot',	description => 'minimum y-value shown in plot',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
ymax => {	ymax => {
default => ' 10.0',	default => ' 10.0',
test => $real_test,	test => $real_test,
description => 'maximum y-value shown in plot',	description => 'maximum y-value shown in plot',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
}	}
);	);

	my $curve_help_text = <<"ENDCURVEHELP";
	The <b>curve</b> tag is where you set the data to be plotted by gnuplot.
	There are two ways of entering the information:
	<dl>
	<dt> Curve Data
	<dd> Using a <b>data</b> tag you can specify the numbers used to produce
	the plot.
	<p>
	By default, two <b>data</b> tags will be available in a plot. The
	first will specify X coordinates of the data and the second will
	give the Y coordinates of the data. When working with a linestyle that
	requires more than two data sets, inserting another <b>data</b> tag is
	required. Unfortunately, you must make sure the <b>data</b> tags appear
	in the order gnuplot expects the data.
	</p><p>
	Specifying the data should usually be done with a perl variable or array,
	such as \@Xdata and \@Ydata. You may also specify numerical data seperated
	by commas. Again, the order of the <b>data</b> tags is important. The
	first tag will be the X data and the second will be the Y data.
	</p>
	<dt> Curve Function
	<dd> The <b>function</b> tag allows you to specify the curve to be
	plotted as a formula that gnuplot can understand. Be careful using this
	tag - it is surprisingly easy to give gnuplot a function it cannot deal
	with properly. Be explicit: 2sin(23.141592*x/4) will work but
	2sin(2*3.141592x/4) will not. If you do not receive any errors in the
	gnuplot data but still do not have an image produced, it is likely there
	is an error in your <b>function</b> tag.
	</dl>
	ENDCURVEHELP

my %curve_defaults =	my %curve_defaults =
(	(
color => {	color => {
default => 'x000000',	default => 'x000000',
test => $color_test,	test => $color_test,
description => 'color of curve (x000000)',	description => 'color of curve (x000000)',
edit_type => 'entry'	edit_type => 'entry',
	size => '10'
},	},
name => {	name => {
default => '',	default => '',
test => $words_test,	test => $words_test,
description => 'name of curve to appear in key',	description => 'name of curve to appear in key',
edit_type => 'entry'	edit_type => 'entry',
	size => '20'
},	},
linestyle => {	linestyle => {
default => 'lines',	default => 'lines',
test => $linestyle_test,	test => $linestyle_test,
description => 'Style of the axis lines',	description => 'Line style',
edit_type => 'choice',	edit_type => 'choice',
choices => ['lines','linespoints','dots','points','steps',	choices => [keys(%linestyles)]
'fsteps','histeps','errorbars','xerrorbars',
'yerrorbars','xyerrorbars','boxes','boxerrorbars',
'boxxyerrorbars','financebars','candlesticks',
'vector']
}	}
);	);

Line 284 my %curve_defaults =	Line 399 my %curve_defaults =
## parsing and edit rendering ##	## parsing and edit rendering ##
## ##	## ##
###################################################################	###################################################################
my (%plot,%key,%axis,$title,$xlabel,$ylabel,@labels,@curves);	my (%plot,%key,%axis,$title,$xlabel,$ylabel,@labels,@curves,%xtics,%ytics);

sub start_plot {	sub start_gnuplot {
%plot = (); %key = (); %axis = ();	%plot = (); %key = (); %axis = ();
$title = undef; $xlabel = undef; $ylabel = undef;	$title = undef; $xlabel = undef; $ylabel = undef;
$#labels = -1; $#curves = -1;	$#labels = -1; $#curves = -1;
	%xtics = (); %ytics = ();
#	#
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';	my $result='';
&Apache::lonxml::register('Apache::lonplot',	&Apache::lonxml::register('Apache::lonplot',
('title','xlabel','ylabel','key','axis','label','curve'));	('title','xlabel','ylabel','key','axis','label','curve',
	'xtics','ytics'));
push (@Apache::lonxml::namespace,'lonplot');	push (@Apache::lonxml::namespace,'lonplot');
if ($target eq 'web') {	if ($target eq 'web') {
my $inside = &Apache::lonxml::get_all_text("/plot",$$parser[-1]);	my $inside = &Apache::lonxml::get_all_text("/gnuplot",$$parser[-1]);
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
&Apache::lonxml::newparser($parser,\$inside);	&Apache::lonxml::newparser($parser,\$inside);
&get_attributes(\%plot,\%plot_defaults,$parstack,$safeeval,	&get_attributes(\%plot,\%gnuplot_defaults,$parstack,$safeeval,
$tagstack->[-1]);	$tagstack->[-1]);
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Plot');	$result .= &Apache::edit::tag_start($target,$token,'GnuPlot');
$result .= &edit_attributes($target,$token,\%plot_defaults);	$result .= &make_javascript();
	$result .= &help_win($gnuplot_help_text);
	$result .= &edit_attributes($target,$token,\%gnuplot_defaults,
	\@gnuplot_edit_order);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args	my $constructtag=&Apache::edit::get_new_args
($token,$parstack,$safeeval,keys(%plot_defaults));	($token,$parstack,$safeeval,keys(%gnuplot_defaults));
if ($constructtag) {	if ($constructtag) {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
# $result.= &Apache::edit::handle_insert();
}	}
}	}
return $result;	return $result;
}	}

sub end_plot {	sub end_gnuplot {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

pop @Apache::lonxml::namespace;	pop @Apache::lonxml::namespace;
&Apache::lonxml::deregister('Apache::lonplot',	&Apache::lonxml::deregister('Apache::lonplot',
('title','xlabel','ylabel','key','axis','label','curve'));	('title','xlabel','ylabel','key','axis','label','curve'));
Line 331 sub end_plot {	Line 449 sub end_plot {
my $filename = $ENV{'user.name'}.'_'.$ENV{'user.domain'}.	my $filename = $ENV{'user.name'}.'_'.$ENV{'user.domain'}.
'_'.time.'_'.$$.int(rand(1000)).'_plot.data';	'_'.time.'_'.$$.int(rand(1000)).'_plot.data';
## Write the plot description to the file	## Write the plot description to the file
my $fh=Apache::File->new(">$tmpdir$filename");	&write_gnuplot_file($tmpdir,$filename);
print $fh &write_gnuplot_file();
close($fh);
## return image tag for the plot	## return image tag for the plot
$result .= <<"ENDIMAGE";	$result .= <<"ENDIMAGE";
<img src = "/cgi-bin/plot.gif?$filename"	<img src = "/cgi-bin/plot.gif?$filename"
width = "$plot{'width'}"	width = "$plot{'width'}"
height = "$plot{'height'}"	height = "$plot{'height'}"
align = "$plot{'align'}"	align = "$plot{'align'}"
alt = "/cgi-bin/plot.gif?$filename" />	alt = "image should be /cgi-bin/plot.gif?$filename" />
ENDIMAGE	ENDIMAGE
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_end($target,$token);	$result.=&Apache::edit::tag_end($target,$token);
Line 348 ENDIMAGE	Line 464 ENDIMAGE
return $result;	return $result;
}	}


	##--------------------------------------------------------------- xtics
	sub start_xtics {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result='';
	if ($target eq 'web') {
	&get_attributes(\%xtics,\%tic_defaults,$parstack,$safeeval,
	$tagstack->[-1]);
	} elsif ($target eq 'edit') {
	$result .= &Apache::edit::tag_start($target,$token,'xtics');
	$result .= &edit_attributes($target,$token,\%tic_defaults,
	\@tic_edit_order);
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args
	($token,$parstack,$safeeval,keys(%tic_defaults));
	if ($constructtag) {
	$result = &Apache::edit::rebuild_tag($token);
	}
	}
	return $result;
	}

	sub end_xtics {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result = '';
	if ($target eq 'web') {
	} elsif ($target eq 'edit') {
	$result.=&Apache::edit::tag_end($target,$token);
	}
	return $result;
	}

	##--------------------------------------------------------------- ytics
	sub start_ytics {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result='';
	if ($target eq 'web') {
	&get_attributes(\%ytics,\%tic_defaults,$parstack,$safeeval,
	$tagstack->[-1]);
	} elsif ($target eq 'edit') {
	$result .= &Apache::edit::tag_start($target,$token,'ytics');
	$result .= &edit_attributes($target,$token,\%tic_defaults,
	\@tic_edit_order);
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args
	($token,$parstack,$safeeval,keys(%tic_defaults));
	if ($constructtag) {
	$result = &Apache::edit::rebuild_tag($token);
	}
	}
	return $result;
	}

	sub end_ytics {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result = '';
	if ($target eq 'web') {
	} elsif ($target eq 'edit') {
	$result.=&Apache::edit::tag_end($target,$token);
	}
	return $result;
	}


##----------------------------------------------------------------- key	##----------------------------------------------------------------- key
sub start_key {	sub start_key {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
Line 363 sub start_key {	Line 543 sub start_key {
($token,$parstack,$safeeval,keys(%key_defaults));	($token,$parstack,$safeeval,keys(%key_defaults));
if ($constructtag) {	if ($constructtag) {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
$result.= &Apache::edit::handle_insert();
}	}
}	}
return $result;	return $result;
Line 385 sub start_title {	Line 564 sub start_title {
my $result='';	my $result='';
if ($target eq 'web') {	if ($target eq 'web') {
$title = &Apache::lonxml::get_all_text("/title",$$parser[-1]);	$title = &Apache::lonxml::get_all_text("/title",$$parser[-1]);
	$title =~ s/\n/ /g;
if (length($title) > $max_str_len) {	if (length($title) > $max_str_len) {
$title = substr($title,0,$max_str_len);	$title = substr($title,0,$max_str_len);
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token,'Plot Title');	$result.=&Apache::edit::tag_start($target,$token,'Plot Title');
my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]);	my $text=&Apache::lonxml::get_all_text("/title",$$parser[-1]);
$result.='</td></tr><tr><td colspan="3">'.	$result.=&Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/title");	my $text=$$parser[-1]->get_text("/title");
	$result.=&Apache::edit::rebuild_tag($token);
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
return $result;	return $result;
Line 415 sub start_xlabel {	Line 597 sub start_xlabel {
my $result='';	my $result='';
if ($target eq 'web') {	if ($target eq 'web') {
$xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);	$xlabel = &Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);
	$xlabel =~ s/\n/ /g;
if (length($xlabel) > $max_str_len) {	if (length($xlabel) > $max_str_len) {
$xlabel = substr($xlabel,0,$max_str_len);	$xlabel = substr($xlabel,0,$max_str_len);
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel');	$result.=&Apache::edit::tag_start($target,$token,'Plot Xlabel');
my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);	my $text=&Apache::lonxml::get_all_text("/xlabel",$$parser[-1]);
$result.='</td></tr><tr><td colspan="3">'.	$result.=&Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/xlabel");	my $text=$$parser[-1]->get_text("/xlabel");
	$result.=&Apache::edit::rebuild_tag($token);
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
return $result;	return $result;
Line 446 sub start_ylabel {	Line 631 sub start_ylabel {
my $result='';	my $result='';
if ($target eq 'web') {	if ($target eq 'web') {
$ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);	$ylabel = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);
	$ylabel =~ s/\n/ /g;
if (length($ylabel) > $max_str_len) {	if (length($ylabel) > $max_str_len) {
$ylabel = substr($ylabel,0,$max_str_len);	$ylabel = substr($ylabel,0,$max_str_len);
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel');	$result .= &Apache::edit::tag_start($target,$token,'Plot Ylabel');
my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);	my $text = &Apache::lonxml::get_all_text("/ylabel",$$parser[-1]);
$result .= '</td></tr><tr><td colspan="3">'.	$result .= &Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $text=$$parser[-1]->get_text("/ylabel");	my $text=$$parser[-1]->get_text("/ylabel");
	$result.=&Apache::edit::rebuild_tag($token);
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
return $result;	return $result;
Line 480 sub start_label {	Line 668 sub start_label {
&get_attributes(\%label,\%label_defaults,$parstack,$safeeval,	&get_attributes(\%label,\%label_defaults,$parstack,$safeeval,
$tagstack->[-1]);	$tagstack->[-1]);
my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]);	my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]);
	$text =~ s/\n/ /g;
$text = substr($text,0,$max_str_len) if (length($text) > $max_str_len);	$text = substr($text,0,$max_str_len) if (length($text) > $max_str_len);
$label{'text'} = $text;	$label{'text'} = $text;
push(@labels,\%label);	push(@labels,\%label);
Line 487 sub start_label {	Line 676 sub start_label {
$result .= &Apache::edit::tag_start($target,$token,'Plot Label');	$result .= &Apache::edit::tag_start($target,$token,'Plot Label');
$result .= &edit_attributes($target,$token,\%label_defaults);	$result .= &edit_attributes($target,$token,\%label_defaults);
my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]);	my $text = &Apache::lonxml::get_all_text("/label",$$parser[-1]);
$result .= '</td></tr><tr><td colspan="3">'.	$result .= &Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args	&Apache::edit::get_new_args
($token,$parstack,$safeeval,keys(%label_defaults));	($token,$parstack,$safeeval,keys(%label_defaults));
if ($constructtag) {	$result.=&Apache::edit::rebuild_tag($token);
$result = &Apache::edit::rebuild_tag($token);
$result.= &Apache::edit::handle_insert();
}
my $text=$$parser[-1]->get_text("/label");	my $text=$$parser[-1]->get_text("/label");
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
Line 525 sub start_curve {	Line 712 sub start_curve {
push (@curves,\%curve);	push (@curves,\%curve);
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Curve');	$result .= &Apache::edit::tag_start($target,$token,'Curve');
	$result .= &help_win($curve_help_text);
$result .= &edit_attributes($target,$token,\%curve_defaults);	$result .= &edit_attributes($target,$token,\%curve_defaults);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args	my $constructtag=&Apache::edit::get_new_args
($token,$parstack,$safeeval,keys(%label_defaults));	($token,$parstack,$safeeval,keys(%curve_defaults));
if ($constructtag) {	if ($constructtag) {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
$result.= &Apache::edit::handle_insert();	$result.= &Apache::edit::handle_insert();
Line 561 sub start_function {	Line 749 sub start_function {
$curves[-1]->{'function'} =	$curves[-1]->{'function'} =
&Apache::lonxml::get_all_text("/function",$$parser[-1]);	&Apache::lonxml::get_all_text("/function",$$parser[-1]);
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Curve Function');	$result .= &Apache::edit::tag_start($target,$token,'Gnuplot compatible curve function');
my $text = &Apache::lonxml::get_all_text("/function",$$parser[-1]);	my $text = &Apache::lonxml::get_all_text("/function",$$parser[-1]);
$result .= '</td></tr><tr><td colspan="3">'.	$result .= &Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
# Why do I do this?	$result.=&Apache::edit::rebuild_tag($token);
my $text=$$parser[-1]->get_text("/function");	my $text=$$parser[-1]->get_text("/function");
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
Line 595 sub start_data {	Line 784 sub start_data {
delete($curves[-1]->{'function'});	delete($curves[-1]->{'function'});
}	}
my $datatext = &Apache::lonxml::get_all_text("/data",$$parser[-1]);	my $datatext = &Apache::lonxml::get_all_text("/data",$$parser[-1]);
$datatext =~ s/\s+/ /g;	# Deal with cases where we're given an array...
	if ($datatext =~ /^\@/) {
	$datatext = &Apache::run::run('return "'.$datatext.'"',
	$safeeval,1);
	}
	$datatext =~ s/\s+/ /g;
# Need to do some error checking on the @data array -	# Need to do some error checking on the @data array -
# make sure it's all numbers and make sure each array	# make sure it's all numbers and make sure each array
# is of the same length.	# is of the same length.
my @data;	my @data;
if ($datatext =~ /,/) {	if ($datatext =~ /,/) { # comma deliminated
@data = split /,/,$datatext;	@data = split /,/,$datatext;
} else { # Assume it's space seperated.	} else { # Assume it's space seperated.
@data = split / /,$datatext;	@data = split / /,$datatext;
Line 621 sub start_data {	Line 815 sub start_data {
$data[$i] = 1.15572734979092;	$data[$i] = 1.15572734979092;
}	}
}	}
	# complain if the number of data points is not the same as
	# in previous sets of data.
	if (($curves[-1]->{'data'}) && ($#data != $#{@{$curves[-1]->{'data'}->[0]}})){
	&Apache::lonxml::warning
	('Number of data points is not consistent with previous '.
	'number of data points');
	}
push @{$curves[-1]->{'data'}},\@data;	push @{$curves[-1]->{'data'}},\@data;
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Curve Data');	$result .= &Apache::edit::tag_start($target,$token,'Comma or space deliminated curve data');
my $text = &Apache::lonxml::get_all_text("/data",$$parser[-1]);	my $text = &Apache::lonxml::get_all_text("/data",$$parser[-1]);
$result .= '</td></tr><tr><td colspan="3">'.	$result .= &Apache::edit::end_row().
	&Apache::edit::start_spanning_row().
&Apache::edit::editfield('',$text,'',60,1);	&Apache::edit::editfield('',$text,'',60,1);
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
	$result.=&Apache::edit::rebuild_tag($token);
my $text=$$parser[-1]->get_text("/data");	my $text=$$parser[-1]->get_text("/data");
$result.=&Apache::edit::modifiedfield($token);	$result.=&Apache::edit::modifiedfield($token);
}	}
Line 659 sub start_axis {	Line 862 sub start_axis {
($token,$parstack,$safeeval,keys(%axis_defaults));	($token,$parstack,$safeeval,keys(%axis_defaults));
if ($constructtag) {	if ($constructtag) {
$result = &Apache::edit::rebuild_tag($token);	$result = &Apache::edit::rebuild_tag($token);
$result.= &Apache::edit::handle_insert();
}	}
}	}
return $result;	return $result;
Line 711 sub get_attributes{	Line 913 sub get_attributes{
}	}
return ;	return ;
}	}

##------------------------------------------------------- write_gnuplot_file	##------------------------------------------------------- write_gnuplot_file
sub write_gnuplot_file {	sub write_gnuplot_file {
	my ($tmpdir,$filename)= @_;
my $gnuplot_input = '';	my $gnuplot_input = '';
my $curve;	my $curve;
# Collect all the colors	# Collect all the colors
Line 731 sub write_gnuplot_file {	Line 935 sub write_gnuplot_file {
$gnuplot_input .= $plot{'font'} . ' ';	$gnuplot_input .= $plot{'font'} . ' ';
$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' ';	$gnuplot_input .= 'size '.$plot{'width'}.','.$plot{'height'}.' ';
$gnuplot_input .= "@Colors\n";	$gnuplot_input .= "@Colors\n";
	# set output
	$gnuplot_input .= "set output\n";
# grid	# grid
$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on');	$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on');
# border	# border
$gnuplot_input .= ($plot{'border'} eq 'on'?	$gnuplot_input .= ($plot{'border'} eq 'on'?
'set border'.$/ :	'set border'.$/ :
'set noborder'.$/ ); # title, xlabel, ylabel	'set noborder'.$/ ); # title, xlabel, ylabel
$gnuplot_input .= "set output\n";	# titles
$gnuplot_input .= "set title \"$title\"\n" if (defined($title)) ;	$gnuplot_input .= "set title \"$title\"\n" if (defined($title)) ;
$gnuplot_input .= "set xlabel \"$xlabel\"\n" if (defined($xlabel));	$gnuplot_input .= "set xlabel \"$xlabel\"\n" if (defined($xlabel));
$gnuplot_input .= "set ylabel \"$ylabel\"\n" if (defined($ylabel));	$gnuplot_input .= "set ylabel \"$ylabel\"\n" if (defined($ylabel));
	# tics
	if (%xtics) {
	$gnuplot_input .= "set xtics $xtics{'location'} ";
	$gnuplot_input .= ( $xtics{'mirror'} eq 'on'?"mirror ":"nomirror ");
	$gnuplot_input .= "$xtics{'start'}, ";
	$gnuplot_input .= "$xtics{'increment'}, ";
	$gnuplot_input .= "$xtics{'end'}\n";
	}
	if (%ytics) {
	$gnuplot_input .= "set ytics $ytics{'location'} ";
	$gnuplot_input .= ( $ytics{'mirror'} eq 'on'?"mirror ":"nomirror ");
	$gnuplot_input .= "$ytics{'start'}, ";
	$gnuplot_input .= "$ytics{'increment'}, ";
	$gnuplot_input .= "$ytics{'end'}\n";
	}
	# axis
if (%axis) {	if (%axis) {
$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n";	$gnuplot_input .= "set xrange \[$axis{'xmin'}:$axis{'xmax'}\]\n";
$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n";	$gnuplot_input .= "set yrange \[$axis{'ymin'}:$axis{'ymax'}\]\n";
Line 749 sub write_gnuplot_file {	Line 971 sub write_gnuplot_file {
if (%key) {	if (%key) {
$gnuplot_input .= 'set key '.$key{'pos'}.' ';	$gnuplot_input .= 'set key '.$key{'pos'}.' ';
if ($key{'title'} ne '') {	if ($key{'title'} ne '') {
$gnuplot_input .= 'title "'.$key{'title'}.'" ';	$gnuplot_input .= 'title " '.$key{'title'}.'" ';
}	}
$gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/;	$gnuplot_input .= ($key{'box'} eq 'on' ? 'box ' : 'nobox ').$/;
} else {	} else {
Line 763 sub write_gnuplot_file {	Line 985 sub write_gnuplot_file {
}	}
# curves	# curves
$gnuplot_input .= 'plot ';	$gnuplot_input .= 'plot ';
my $datatext = '';
for (my $i = 0;$i<=$#curves;$i++) {	for (my $i = 0;$i<=$#curves;$i++) {
$curve = $curves[$i];	$curve = $curves[$i];
$gnuplot_input.= ', ' if ($i > 0);	$gnuplot_input.= ', ' if ($i > 0);
Line 773 sub write_gnuplot_file {	Line 994 sub write_gnuplot_file {
$curve->{'name'}.'" with '.	$curve->{'name'}.'" with '.
$curve->{'linestyle'};	$curve->{'linestyle'};
} elsif (exists($curve->{'data'})) {	} elsif (exists($curve->{'data'})) {
$gnuplot_input.= '\'-\' title "'.	# Store data values in $datatext
$curve->{'name'}.'" with '.	my $datatext = '';
$curve->{'linestyle'};	# get new filename
	my $datafilename = "$tmpdir/$filename.$i";
	my $fh=Apache::File->new(">$datafilename");
	# Compile data
my @Data = @{$curve->{'data'}};	my @Data = @{$curve->{'data'}};
my @Data0 = @{$Data[0]};	my @Data0 = @{$Data[0]};
for (my $i =0; $i<=$#Data0; $i++) {	for (my $i =0; $i<=$#Data0; $i++) {
Line 785 sub write_gnuplot_file {	Line 1009 sub write_gnuplot_file {
}	}
$datatext .= $/;	$datatext .= $/;
}	}
$datatext .=$/;	# write file
	print $fh $datatext;
	close ($fh);
	# generate gnuplot text
	$gnuplot_input.= '"'.$datafilename.'" title "'.
	$curve->{'name'}.'" with '.
	$curve->{'linestyle'};
}	}
}	}
$gnuplot_input .= $/.$datatext;	# Write the output to a file.
return $gnuplot_input;	my $fh=Apache::File->new(">$tmpdir$filename");
	print $fh $gnuplot_input;
	close($fh);
	# That's all folks.
	return ;
}	}

#---------------------------------------------- check_inputs	#---------------------------------------------- check_inputs
sub check_inputs {	sub check_inputs {
## Note: no inputs, no outputs - this acts only on global variables.	## Note: no inputs, no outputs - this acts only on global variables.
## Make sure we have all the input we need:	## Make sure we have all the input we need:
if (! %plot) { &set_defaults(\%plot,\%plot_defaults); }	if (! %plot) { &set_defaults(\%plot,\%gnuplot_defaults); }
if (! %key ) {} # No key for this plot, thats okay	if (! %key ) {} # No key for this plot, thats okay
if (! %axis) { &set_defaults(\%axis,\%axis_defaults); }	# if (! %axis) { &set_defaults(\%axis,\%axis_defaults); }
if (! defined($title )) {} # No title for this plot, thats okay	if (! defined($title )) {} # No title for this plot, thats okay
if (! defined($xlabel)) {} # No xlabel for this plot, thats okay	if (! defined($xlabel)) {} # No xlabel for this plot, thats okay
if (! defined($ylabel)) {} # No ylabel for this plot, thats okay	if (! defined($ylabel)) {} # No ylabel for this plot, thats okay
Line 818 sub check_inputs {	Line 1052 sub check_inputs {

#------------------------------------------------ make_edit	#------------------------------------------------ make_edit
sub edit_attributes {	sub edit_attributes {
my ($target,$token,$defaults) = @_;	my ($target,$token,$defaults,$keys) = @_;
my $result;	my ($result,@keys);
foreach my $attr (sort keys(%$defaults)) {	if ($keys && ref($keys) eq 'ARRAY') {
	@keys = @$keys;
	} else {
	@keys = sort(keys(%$defaults));
	}
	foreach my $attr (@keys) {
	# append a ' ' to the description if it doesn't have one already.
	my $description = $defaults->{$attr}->{'description'};
	$description .= ' ' if ($description !~ / $/);
if ($defaults->{$attr}->{'edit_type'} eq 'entry') {	if ($defaults->{$attr}->{'edit_type'} eq 'entry') {
$result .= &Apache::edit::text_arg(	$result .= &Apache::edit::text_arg
$defaults->{$attr}->{'description'},	($description,$attr,$token,
$attr,	$defaults->{$attr}->{'size'});
$token);
} elsif ($defaults->{$attr}->{'edit_type'} eq 'choice') {	} elsif ($defaults->{$attr}->{'edit_type'} eq 'choice') {
$result .= &Apache::edit::select_arg(	$result .= &Apache::edit::select_arg
$defaults->{$attr}->{'description'},	($description,$attr,$defaults->{$attr}->{'choices'},$token);
$attr,	} elsif ($defaults->{$attr}->{'edit_type'} eq 'onoff') {
$defaults->{$attr}->{'choices'},	$result .= &Apache::edit::select_arg
$token);	($description,$attr,['on','off'],$token);
}	}
$result .= '<br />';	$result .= '<br />';
}	}
Line 845 sub edit_attributes {	Line 1086 sub edit_attributes {
## ##	## ##
###################################################################	###################################################################

#------------------------------------------------ insert_xxxxxxx	sub insert_gnuplot {
sub insert_plot {
my $result = '';	my $result = '';
# plot attributes	# plot attributes
$result .= "<plot \n";	$result .= "<gnuplot \n";
foreach my $attr (keys(%plot_defaults)) {	foreach my $attr (keys(%gnuplot_defaults)) {
$result .= " $attr=\"$plot_defaults{$attr}->{'default'}\"\n";	$result .= " $attr=\"$gnuplot_defaults{$attr}->{'default'}\"\n";
}	}
$result .= ">\n";	$result .= ">\n";
# Add the components	# Add the components (most are commented out for simplicity)
$result .= &insert_key();	# $result .= &insert_key();
$result .= &insert_axis();	# $result .= &insert_axis();
$result .= &insert_title();	# $result .= &insert_title();
$result .= &insert_xlabel();	# $result .= &insert_xlabel();
$result .= &insert_ylabel();	# $result .= &insert_ylabel();
$result .= &insert_curve();	$result .= &insert_curve();
# close up the <plot>	# close up the <gnuplot>
$result .= "</plot>\n";	$result .= "</gnuplot>\n";
	return $result;
	}

	sub insert_tics {
	my $result;
	$result .= &insert_xtics() . &insert_ytics;
	return $result;
	}

	sub insert_xtics {
	my $result;
	$result .= "\n <xtics ";
	foreach my $attr (keys(%tic_defaults)) {
	$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" ";
	}
	$result .= "/>\n";
	return $result;
	}

	sub insert_ytics {
	my $result;
	$result .= "\n <ytics ";
	foreach my $attr (keys(%tic_defaults)) {
	$result .= "$attr=\"$tic_defaults{$attr}->{'default'}\" ";
	}
	$result .= "/>\n";
return $result;	return $result;
}	}

sub insert_key {	sub insert_key {
my $result;	my $result;
$result .= " <key \n";	$result .= "\n <key \n";
foreach my $attr (keys(%key_defaults)) {	foreach my $attr (keys(%key_defaults)) {
$result .= " $attr=\"$key_defaults{$attr}->{'default'}\"\n";	$result .= " $attr=\"$key_defaults{$attr}->{'default'}\"\n";
}	}
Line 878 sub insert_key {	Line 1144 sub insert_key {

sub insert_axis{	sub insert_axis{
my $result;	my $result;
$result .= ' <axis ';	$result .= "\n <axis ";
foreach my $attr (keys(%axis_defaults)) {	foreach my $attr (keys(%axis_defaults)) {
$result .= " $attr=\"$axis_defaults{$attr}->{'default'}\"\n";	$result .= " $attr=\"$axis_defaults{$attr}->{'default'}\"\n";
}	}
Line 886 sub insert_axis{	Line 1152 sub insert_axis{
return $result;	return $result;
}	}

sub insert_title { return " <title></title>\n"; }	sub insert_title { return "\n <title></title>\n"; }
sub insert_xlabel { return " <xlabel></xlabel>\n"; }	sub insert_xlabel { return "\n <xlabel></xlabel>\n"; }
sub insert_ylabel { return " <ylabel></ylabel>\n"; }	sub insert_ylabel { return "\n <ylabel></ylabel>\n"; }

sub insert_label {	sub insert_label {
my $result;	my $result;
$result .= ' <label ';	$result .= "\n <label ";
foreach my $attr (keys(%label_defaults)) {	foreach my $attr (keys(%label_defaults)) {
$result .= ' '.$attr.'="'.	$result .= ' '.$attr.'="'.
$label_defaults{$attr}->{'default'}."\"\n";	$label_defaults{$attr}->{'default'}."\"\n";
Line 903 sub insert_label {	Line 1169 sub insert_label {

sub insert_curve {	sub insert_curve {
my $result;	my $result;
$result .= ' <curve ';	$result .= "\n <curve ";
foreach my $attr (keys(%curve_defaults)) {	foreach my $attr (keys(%curve_defaults)) {
$result .= ' '.$attr.'="'.	$result .= ' '.$attr.'="'.
$curve_defaults{$attr}->{'default'}."\"\n";	$curve_defaults{$attr}->{'default'}."\"\n";
}	}
$result .= " ></curve>\n";	$result .= " >\n";
	$result .= &insert_data().&insert_data()."</curve>\n";
}	}

sub insert_function {	sub insert_function {
Line 924 sub insert_data {	Line 1191 sub insert_data {
}	}

##----------------------------------------------------------------------	##----------------------------------------------------------------------
	# Javascript functions to display help for tags

	sub make_javascript {
	my $helpwindowwidth = 400;
	my $helpwindowheight = 400;
	my $result = '';
	$result.=<<"ENDFUNCTION";
	<script language="JavaScript">
	function openWin(text)
	{
	newWin = open("", "new_W", "width=$helpwindowwidth,height=$helpwindowheight,resizable=1,scrollbars=1");
	newWin.document.open("text/html", "replace");
	newWin.document.writeln(text);
	newWin.document.writeln('<center><a href=\"javascript:window.close()\">close this window</a></center>');
	newWin.document.close();
	}
	</script>
	ENDFUNCTION
	return $result;
	}

	sub help_win {
	my ($helptext)=@_;
	$helptext =~ s/\n/ /g;
	$helptext =~ s/\'/\\\'/g;
	my $result = '';
	$result.=<<"ENDWIN";
	<table width="100%"><tr><td align="right">
	<a href="javascript:openWin('$helptext')">help</a>
	</td></tr></table><hr />
	ENDWIN
	return $result;
	}
	##----------------------------------------------------------------------
1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.33
changed lines
	Added in v.1.50