loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.166, 2012/09/10 09:51:15	version 1.168, 2012/11/20 15:11:05
Line 132 my $real_test =	Line 132 my $real_test =
sub {$_[0]=~s/\s+//g;$_[0]=~/^[+-]?\d\.?\d([eE][+-]\d+)?$/};	sub {$_[0]=~s/\s+//g;$_[0]=~/^[+-]?\d\.?\d([eE][+-]\d+)?$/};
my $pos_real_test =	my $pos_real_test =
sub {$_[0]=~s/\s+//g;$_[0]=~/^[+]?\d\.?\d([eE][+-]\d+)?$/};	sub {$_[0]=~s/\s+//g;$_[0]=~/^[+]?\d\.?\d([eE][+-]\d+)?$/};
my $color_test = sub {$_[0]=~s/\s+//g;$_[0]=~/^x[\da-fA-F]{6}$/};	my $color_test;
	if ($version < 4.6) {
	$color_test = sub {$_[0]=~s/\s+//g;$_[0]=~s/^\#/x/;$_[0]=~/^x[\da-fA-F]{6}$/};
	} else {
	$color_test = sub {$_[0]=~s/\s+//g;$_[0]=~s/^x/#/;$_[0]=~/^\#[\da-fA-F]{6}$/};
	}
my $onoff_test = sub {$_[0]=~/^(on\|off)$/};	my $onoff_test = sub {$_[0]=~/^(on\|off)$/};
my $key_pos_test = sub {$_[0]=~/^(top\|bottom\|right\|left\|outside\|below\| )+$/};	my $key_pos_test = sub {$_[0]=~/^(top\|bottom\|right\|left\|outside\|below\| )+$/};
my $sml_test = sub {$_[0]=~/^(\d+\|small\|medium\|large)$/};	my $sml_test = sub {$_[0]=~/^(\d+\|small\|medium\|large)$/};
Line 1759 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;
#	#