loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.167, 2012/10/07 15:04:44	version 1.169, 2012/12/05 01:04:03
Line 1764 sub generate_tics {	Line 1764 sub generate_tics {
sub write_gnuplot_file {	sub write_gnuplot_file {
my ($tmpdir,$filename,$target)= @_;	my ($tmpdir,$filename,$target)= @_;
my ($fontsize, $font_properties) = &get_font($target);	my ($fontsize, $font_properties) = &get_font($target);
&Apache::lonnet::logthis("Fontsize: $fontsize");
my $gnuplot_input = '';	my $gnuplot_input = '';
my $curve;	my $curve;
#	#
Line 1889 sub write_gnuplot_file {	Line 1888 sub write_gnuplot_file {
$gnuplot_input .= "set samples $Apache::lonplot::plot{'samples'}\n";	$gnuplot_input .= "set samples $Apache::lonplot::plot{'samples'}\n";
# title, xlabel, ylabel	# title, xlabel, ylabel
# titles	# titles
my $extra_space_x = ($xtics{'location'} eq 'axis') ? ' 0, -0.5 ' : '';	my $extra_space_x = ($xtics{'location'} eq 'axis') ? ' offset 0, -0.5 ' : '';
my $extra_space_y = ($ytics{'location'} eq 'axis') ? ' -0.5, 0 ' : '';	my $extra_space_y = ($ytics{'location'} eq 'axis') ? ' offset -0.5, 0 ' : '';

if ($target eq 'tex') {	if ($target eq 'tex') {
$gnuplot_input .= "set title \"$title\" font \"".$font_properties->{'printname'}.",".$fontsize."pt\"\n" if (defined($title)) ;	$gnuplot_input .= "set title \"$title\" font \"".$font_properties->{'printname'}.",".$fontsize."pt\"\n" if (defined($title)) ;