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.142 and 1.152.6.1

version 1.142, 2008/05/26 10:51:42	version 1.152.6.1, 2014/07/09 15:17:32
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#




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

use strict;	use strict;
Line 57 BEGIN {	Line 60 BEGIN {
}	}


	=pod

##	##
## Description of data structures:	## Description of data structures:
##	##
Line 88 BEGIN {	Line 93 BEGIN {
## ##	## ##
###################################################################	###################################################################

	=cut

my $max_str_len = 50; # if a label, title, xlabel, or ylabel text	my $max_str_len = 50; # if a label, title, xlabel, or ylabel text
# is longer than this, it will be truncated.	# is longer than this, it will be truncated.

Line 448 my %tic_defaults =	Line 455 my %tic_defaults =
},	},
);	);

my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat');	my @axis_edit_order = ('color','xmin','xmax','ymin','ymax','xformat', 'yformat', 'xzero', 'yzero');
my %axis_defaults =	my %axis_defaults =
(	(
color => {	color => {
Line 496 my %axis_defaults =	Line 503 my %axis_defaults =
yformat => {	yformat => {
default => 'on',	default => 'on',
test => sub {$_[0]=~/^(on\|off\|\d+(f\|F\|e\|E))$/},	test => sub {$_[0]=~/^(on\|off\|\d+(f\|F\|e\|E))$/},
description => 'X-axis number formatting',	description => 'Y-axis number formatting',
edit_type => 'choice',	edit_type => 'choice',
choices => ['on', 'off', '2e', '2f'],	choices => ['on', 'off', '2e', '2f'],
},	},

	xzero => {
	default => 'off',
	test => sub {$_[0]=~/^(off\|line\|thick-line\|dotted)$/},
	description => 'Show x-zero (y=0) axis',
	edit_type => 'choice',
	choices => ['off', 'line', 'thick-line', 'dotted'],
	},

	yzero => {
	default => 'off',
	test => sub {$_[0]=~/^(off\|line\|thick-line\|dotted)$/},
	description => 'Show y-zero (x=0) axis',
	edit_type => 'choice',
	choices => ['off', 'line', 'thick-line', 'dotted'],
	},
);	);

my @curve_edit_order = ('color','name','linestyle','linewidth','linetype','pointtype','pointsize','limit');	my @curve_edit_order = ('color','name','linestyle','linewidth','linetype','pointtype','pointsize','limit');
Line 757 sub get_font {	Line 779 sub get_font {
$selected_font = $font_properties{$Apache::lonplot::plot{'fontface'}};	$selected_font = $font_properties{$Apache::lonplot::plot{'fontface'}};
}	}
if ($target eq 'tex' && defined($Apache::lonplot::plot{'texfont'})) {	if ($target eq 'tex' && defined($Apache::lonplot::plot{'texfont'})) {
	# $selected_font = $font_properties{'classic'};
$size = $Apache::lonplot::plot{'texfont'};	$size = $Apache::lonplot::plot{'texfont'};
}	}
return ($size, $selected_font);	return ($size, $selected_font);
Line 819 sub parse_label {	Line 842 sub parse_label {
return $result;	return $result;
}	}

	#
	# Note that there are severe restrictions on font selection in the
	# ps driver now. later in life Gnuplot is supposed to support
	# utf-8 fonts in the posts script driver. When this happens,
	# the tex entries with comments that include the word <FIX>
	# should be changed to print the correct glyphs rather than some
	# approximation or fallback of what is intended.

my %lookup =	my %lookup =
( # Greek alphabet:	( # Greek alphabet:
Line 888 my %lookup =	Line 918 my %lookup =
'#134' => {'tex' => '{/Text \262}', 'web' => "\x{2020}"},	'#134' => {'tex' => '{/Text \262}', 'web' => "\x{2020}"},
'#135' => {'tex' => '{/Text \263}', 'web' => "\x{2021}"},	'#135' => {'tex' => '{/Text \263}', 'web' => "\x{2021}"},
'#136' => {'tex' => '\\\\^', 'web' => '\\\\^'},	'#136' => {'tex' => '\\\\^', 'web' => '\\\\^'},
'#137' => {'tex' => '{/Text \275}', 'web' => "\x{2030}"},	'#137' => {'tex' => '%o', 'web' => "\x{2030}"}, # Per Mille <FIX>
'#138' => {'tex' => 'S', 'web' => "\x{160}"}, # no S-caron in ps fonts.	'#138' => {'tex' => 'S', 'web' => "\x{160}"}, # S-Caron <FIX>
'#139' => {'tex' => '<', 'web' => '<'},	'#139' => {'tex' => '<', 'web' => '<'},
'#140' => {'tex' => '{/Text \352}', 'web' => "\x{152}"},	'#140' => {'tex' => 'AE', 'web' => "\x{152}"}, # AE ligature <FIX>
'#145' => {'tex' => '\140', 'web' => "\x{2018}"},	'#145' => {'tex' => '\140', 'web' => "\x{2018}"},
'#146' => {'tex' => '\47', 'web' => "\x{2019}"},	'#146' => {'tex' => '\47', 'web' => "\x{2019}"},
'#147' => {'tex' => '{/Text \252}', 'web' => "\x{201c}"},	'#147' => {'tex' => '\140\140', 'web' => "\x{201c}"}, # Left " <FIX>
'#148' => {'tex' => '{/Text \315}', 'web' => '\\"'},	'#148' => {'tex' => '\47\47', 'web' => '\\"'}, # Right " <FIX>
'#149' => {'tex' => '{/Symbol \267}', 'web' => "\x{2022}"},	'#149' => {'tex' => '{/Symbol \267}', 'web' => "\x{2022}"},
'#150' => {'tex' => '{/Text \55}', 'web' => "\x{2013}"}, #Untested here en dash	'#150' => {'tex' => '{/Text \55}', 'web' => "\x{2013}"}, # en dash
'#151' => {'tex' => '{/Symbol \55}', 'web' => "\x{2014}"}, # em dash	'#151' => {'tex' => '{/Symbol \55}', 'web' => "\x{2014}"}, # em dash
'#152' => {'tex' => '~', 'web' => '~'},	'#152' => {'tex' => '\\\\~', 'web' => '\\\\~'},
'#153' => {'tex' => '{/Text \324}', 'web' => "\x{2122}"}, # trademark	'#153' => {'tex' => '{/Symbol \324}', 'web' => "\x{2122}"}, # trademark

# Accented letters, and other furreign language glyphs.	# Accented letters, and other furreign language glyphs.

'#154' => {'tex' => 's', 'web' => "\x{161}"}, # small s-caron no ps.	'#154' => {'tex' => 's', 'web' => "\x{161}"}, # small s-caron no ps.
'#155' => {'tex' => '>', 'web' => '\76'}, # >	'#155' => {'tex' => '>', 'web' => '\76'}, # >
'#156' => {'tex' => '{/Text \372}', 'web' => "\x{153}"}, # oe ligature.	'#156' => {'tex' => '{/Text \366}', 'web' => "\x{153}"}, # oe ligature.<FIX>
'#159', => {'tex' => 'Y', 'web' => "\x{178}"}, # Y-umlaut - can't print	'#159', => {'tex' => 'Y', 'web' => "\x{178}"}, # Y-umlaut - can't print <FIX>
'(nbsp\|#160)' => {'tex' => ' ', 'web' => ' '}, # non breaking space.	'(nbsp\|#160)' => {'tex' => ' ', 'web' => ' '}, # non breaking space.
'(iexcl\|#161)' => {'tex' => '{/Text \241}', 'web' => "\x{a1}"}, # inverted !	'(iexcl\|#161)' => {'tex' => '{/Text \241}', 'web' => "\x{a1}"}, # inverted !
'(cent\|#162)' => {'tex' => '{/Text \242}', 'web' => "\x{a2}"}, # Cent currency.	'(cent\|#162)' => {'tex' => '{/Text \242}', 'web' => "\x{a2}"}, # Cent currency.
'(pound\|#163)' => {'tex' => '{/Text \243}', 'web' => "\x{a3}"}, # GB Pound currency.	'(pound\|#163)' => {'tex' => '{/Text \243}', 'web' => "\x{a3}"}, # GB Pound currency.
'(curren\|#164)' => {'tex' => '{/Text \250}', 'web' => "\x{a4}"}, # Generic currency symb.	'(curren\|#164)' => {'tex' => '{/ZapfDingbats \161}','web' => "\x{a4}"}, # Generic currency symb. <FIX>
'(yen\|#165)' => {'tex' => '{/Text \245}', 'web' => "\x{a5}"}, # Yen currency.	'(yen\|#165)' => {'tex' => '{/Text \245}', 'web' => "\x{a5}"}, # Yen currency.
'(brvbar\|#166)' => {'tex' => '{/Symbol \174}', 'web' => "\x{a6}"}, # Broken vert bar no print.	'(brvbar\|#166)' => {'tex' => '{/Symbol \174}', 'web' => "\x{a6}"}, # Broken vert bar no print.
'(sect\|#167)' => {'tex' => '{\247}', 'web' => "\x{a7}"}, # Section symbol.	'(sect\|#167)' => {'tex' => '{\247}', 'web' => "\x{a7}"}, # Section symbol.
Line 921 my %lookup =	Line 951 my %lookup =
'(ordf\|#170)' => {'tex' => '{/Text \343}', 'web' => "\x{aa}"}, # Feminine ordinal.	'(ordf\|#170)' => {'tex' => '{/Text \343}', 'web' => "\x{aa}"}, # Feminine ordinal.
'(laquo\|#171)' => {'tex' => '{/Text \253}', 'web' => "\x{ab}"}, # << quotes.	'(laquo\|#171)' => {'tex' => '{/Text \253}', 'web' => "\x{ab}"}, # << quotes.
'(not\|#172)' => {'tex' => '\254', 'web' => "\x{ac}"}, # Logical not.	'(not\|#172)' => {'tex' => '\254', 'web' => "\x{ac}"}, # Logical not.
'(shy\|#173)' => {'tex' => '-', 'web' => "\x{ad}"}, # soft hyphen.	'(shy\|#173)' => {'tex' => '\255', 'web' => "\x{ad}"}, # soft hyphen.
'(reg\|#174)' => {'tex' => '{/Symbol \342}', 'web' => "\x{ae}"}, # Registered tm.	'(reg\|#174)' => {'tex' => '{/Symbol \342}', 'web' => "\x{ae}"}, # Registered tm.
'(macr\|#175)' => {'tex' => '^{-}', 'web' => "\x{af}"}, # 'naked' macron (overbar).	'(macr\|#175)' => {'tex' => '^{\255}', 'web' => "\x{af}"}, # 'naked' macron (overbar).
'(deg\|#176)' => {'tex' => '{/Text \312}', 'web' => "\x{b0}"}, # Degree symbo..	'(deg\|#176)' => {'tex' => '{/Text \260}', 'web' => "\x{b0}"}, # Degree symbo..`
'(plusmn\|#177)' => {'tex' => '{/Symbol \261}', 'web' => "\x{b1}"}, # +/- symbol.	'(plusmn\|#177)' => {'tex' => '{/Symbol \261}', 'web' => "\x{b1}"}, # +/- symbol.
'(sup2\|#178)' => {'tex' => '^2', 'web' => "\x{b2}"}, # Superscript 2.	'(sup2\|#178)' => {'tex' => '^2', 'web' => "\x{b2}"}, # Superscript 2.
'(sup3\|#179)' => {'tex' => '^3', 'web' => "\x{b3}"}, # Superscript 3.	'(sup3\|#179)' => {'tex' => '^3', 'web' => "\x{b3}"}, # Superscript 3.
'(acute\|#180)' => {'tex' => '{/Text \302}', 'web' => "\x{b4}"}, # 'naked' acute accent.	'(acute\|#180)' => {'tex' => '{/Text \222}', 'web' => "\x{b4}"}, # 'naked' acute accent.
'(micro\|#181)' => {'tex' => '{/Symbol \155}', 'web' => "\x{b5}"}, # Micro (small mu).	'(micro\|#181)' => {'tex' => '{/Symbol \155}', 'web' => "\x{b5}"}, # Micro (small mu).
'(para\|#182)' => {'tex' => '{/Text \266}', 'web' => "\x{b6}"}, # Paragraph symbol.	'(para\|#182)' => {'tex' => '{/Text \266}', 'web' => "\x{b6}"}, # Paragraph symbol.
'(middot\|#183)' => {'tex' => '^.', 'web' => "\x{b7}"}, # middle dot (maybe text 267 is better)?	'(middot\|#183)' => {'tex' => '\267', 'web' => "\x{b7}"}, # middle dot
'(cedil\|#184)' => {'tex' => '\233', 'web' => "\x{b8}"}, # 'naked' cedilla.	'(cedil\|#184)' => {'tex' => '\233', 'web' => "\x{b8}"}, # 'naked' cedilla.
'(sup1\|#185)' => {'tex' => '^1', 'web' => "\x{b9}"}, # superscript 1.	'(sup1\|#185)' => {'tex' => '^1', 'web' => "\x{b9}"}, # superscript 1.
'(ordm\|#186)' => {'tex' => '\353', 'web' => "\x{ba}"}, # masculine ordinal.	'(ordm\|#186)' => {'tex' => '{\260}', 'web' => "\x{ba}"}, # masculine ordinal.
'(raquo\|#187)', => {'tex' => '\273', 'web' => "\x{bb}"}, # Right angle quotes.	'(raquo\|#187)', => {'tex' => '\273', 'web' => "\x{bb}"}, # Right angle quotes.
'(frac14\|#188)' => {'tex' => '\274', 'web' => "\x{bc}"}, # 1/4.	'(frac14\|#188)' => {'tex' => '\274', 'web' => "\x{bc}"}, # 1/4.
'(frac12\|#189)' => {'tex' => '\275', 'web' => "\x{bd}"}, # 1/2.	'(frac12\|#189)' => {'tex' => '\275', 'web' => "\x{bd}"}, # 1/2.
Line 992 my %lookup =	Line 1022 my %lookup =
'(ntilde\|#241)' => {'tex' => '\361', 'web' => "\x{f1}"}, # n tilde.	'(ntilde\|#241)' => {'tex' => '\361', 'web' => "\x{f1}"}, # n tilde.
'(ograve\|#242)' => {'tex' => '\362', 'web' => "\x{f2}"}, # o grave.	'(ograve\|#242)' => {'tex' => '\362', 'web' => "\x{f2}"}, # o grave.
'(oacute\|#243)' => {'tex' => '\363', 'web' => "\x{f3}"}, # o acute.	'(oacute\|#243)' => {'tex' => '\363', 'web' => "\x{f3}"}, # o acute.
'(ocirc'\|#244)' => {'tex' => '\364', 'web' => "\x{f4}"}, # o circumflex.	'(ocirc\|#244)' => {'tex' => '\364', 'web' => "\x{f4}"}, # o circumflex.
'(otilde\|#245)' => {'tex' => '\365', 'web' => "\x{f5}"}, # o tilde.	'(otilde\|#245)' => {'tex' => '\365', 'web' => "\x{f5}"}, # o tilde.
'(ouml\|#246)' => {'tex' => '\366', 'web' => "\x{f6}"}, # o umlaut.	'(ouml\|#246)' => {'tex' => '\366', 'web' => "\x{f6}"}, # o umlaut.
'(divide\|#247)' => {'tex' => '\367', 'web' => "\x{f7}"}, # division symbol	'(divide\|#247)' => {'tex' => '\367', 'web' => "\x{f7}"}, # division symbol
Line 1007 my %lookup =	Line 1037 my %lookup =

# Latin extended A entities:	# Latin extended A entities:

'(OElig\|#338)' => {'tex' => '{/Text \352}', 'web' => "\x{152}"}, # OE ligature.	'(OElig\|#338)' => {'tex' => '{/Text \326}', 'web' => "\x{152}"}, # OE ligature.
'(oelig\|#339)' => {'tex' => '{/Text \372}', 'web' => "\x{153}"}, # oe ligature.	'(oelig\|#339)' => {'tex' => '{/Text \366}', 'web' => "\x{153}"}, # oe ligature.
'(Scaron\|#352)' => {'tex' => 'S', 'web' => "\x{160}"}, # S caron no printable.	'(Scaron\|#352)' => {'tex' => 'S', 'web' => "\x{160}"}, # S caron no printable.
'(scaron\|#353)' => {'tex' => 's', 'web' => "\x{161}"}, # s caron no printable.	'(scaron\|#353)' => {'tex' => 's', 'web' => "\x{161}"}, # s caron no printable.
'(Yuml\|#376)' => {'tex' => 'Y', 'web' => "\x{178}"}, # Y umlaut - no printable.	'(Yuml\|#376)' => {'tex' => 'Y', 'web' => "\x{178}"}, # Y umlaut - no printable.

# Latin extended B.	# Latin extended B.

'(fnof\|#402)' => {'tex' =>'{/Symbol 246}', 'web' => "\x{192}"}, # f with little hook.	'(fnof\|#402)' => {'tex' =>'{/Symbol \246}', 'web' => "\x{192}"}, # f with little hook.

# Standalone accents:	# Standalone accents:

Line 1030 my %lookup =	Line 1060 my %lookup =
'(ensp\|#8194)' => {'tex' => ' ', 'web' => "\x{2002}"}, # en space.	'(ensp\|#8194)' => {'tex' => ' ', 'web' => "\x{2002}"}, # en space.
'(emsp\|#8195)' => {'tex' => ' ', 'web' => "\x{2003}"}, # em space.	'(emsp\|#8195)' => {'tex' => ' ', 'web' => "\x{2003}"}, # em space.
'(thinsp\|#8201)' => {'tex' => ' ', 'web' => "\x{2009}"}, # thin space.	'(thinsp\|#8201)' => {'tex' => ' ', 'web' => "\x{2009}"}, # thin space.
'(zwnj\|#8204)' => {'tex' => '', 'web' => "\x{200c}"}, # Zero width non joiner.	'(zwnj\|#8204)' => {'tex' => ' ', 'web' => "\x{200c}"}, # Zero width non joiner.
'(zwj\|#8205)' => {'tex' => '', 'web' => "\x{200d}"}, # Zero width joiner.	'(zwj\|#8205)' => {'tex' => ' ', 'web' => "\x{200d}"}, # Zero width joiner.
'(lrm\|#8206)' => {'tex' => '', 'web' => "\x{200e}"}, # Left to right mark	'(lrm\|#8206)' => {'tex' => ' ', 'web' => "\x{200e}"}, # Left to right mark
'(rlm\|#8207)' => {'tex' => '', 'web' => "\x{200f}"}, # right to left mark.	'(rlm\|#8207)' => {'tex' => ' ', 'web' => "\x{200f}"}, # right to left mark.
'(ndash\|#8211)' => {'tex' => '{/Text \55}', 'web' => "\x{2013}"}, # en dash.	'(ndash\|#8211)' => {'tex' => '{/Text \55}', 'web' => "\x{2013}"}, # en dash.
'(mdash\|#8212)' => {'tex' => '{/Symbol \55}', 'web' => "\x{2014}"}, # em dash.	'(mdash\|#8212)' => {'tex' => '{/Symbol \55}', 'web' => "\x{2014}"}, # em dash.
'(lsquo\|#8216)' => {'tex' => '{/Text \140}', 'web' => "\x{2018}"}, # Left single quote.	'(lsquo\|#8216)' => {'tex' => '{/Text \140}', 'web' => "\x{2018}"}, # Left single quote.
'(rsquo\|#8217)' => {'tex' => '{/Symbol \242}', 'web' => "\x{2019}"}, # Right single quote.	'(rsquo\|#8217)' => {'tex' => '\47', 'web' => "\x{2019}"}, # Right single quote.
'(sbquo\|#8218)' => {'tex' => ',', 'web' => "\x{201a}"}, # Single low-9 quote.	'(sbquo\|#8218)' => {'tex' => '\54', 'web' => "\x{201a}"}, # Single low-9 quote.
'(ldquo\|#8220)' => {'tex' => '{/Text \252}', 'web' => "\x{201c}"}, # Left double quote.	'(ldquo\|#8220)' => {'tex' => '\42', 'web' => "\x{201c}"}, # Left double quote.
'(rdquo\|#8221)' => {'tex' => '{/Text \272}', 'web' => "\x{201d}"}, # Right double quote.	'(rdquo\|#8221)' => {'tex' => '\42', 'web' => "\x{201d}"}, # Right double quote.
'(bdquo\|#8222)' => {'tex' => '{/Text \271}', 'web' => "\x{201e}"}, # Double low-9 quote.	'(bdquo\|#8222)' => {'tex' => ',', 'web' => "\x{201e}"}, # Double low-9 quote.
'(dagger\|#8224)' => {'tex' => '{/Text \262}', 'web' => "\x{2020}"}, # Is this a dagger I see before me now?	'(dagger\|#8224)' => {'tex' => '+', 'web' => "\x{2020}"}, # Is this a dagger I see before me now?
'(Dagger\|#8225)' => {'tex' => '{/Text \263}', 'web' => "\x{2021}"}, # it's handle pointing towards my heart?	'(Dagger\|#8225)' => {'tex' => '\261', 'web' => "\x{2021}"}, # it's handle pointing towards my heart?
'(bull\|#8226)' => {'tex' => '\267', 'web' => "\x{2022}"}, # Bullet.	'(bull\|#8226)' => {'tex' => '\267', 'web' => "\x{2022}"}, # Bullet.
'(hellep\|#8230)' => {'tex' => '{/Text \274}', 'web' => "\x{2026}"}, # Ellipses.	'(hellep\|#8230)' => {'tex' => '{/Symbol \274}', 'web' => "\x{2026}"}, # Ellipses.
'(permil\|#8240)' => {'tex' => '{/Text \275}', 'web' => "\x{2031}"}, # Per mille.	'(permil\|#8240)' => {'tex' => '%_o', 'web' => "\x{2031}"}, # Per mille.
'(prime\|#8242)' => {'tex' => '\264', 'web' => "\x{2032}"}, # Prime.	'(prime\|#8242)' => {'tex' => '\264', 'web' => "\x{2032}"}, # Prime.
'(Prime\|#8243)' => {'tex' => '{/Symbol \262}', 'web' => "\x{2033}"}, # double prime.	'(Prime\|#8243)' => {'tex' => '{/Symbol \262}', 'web' => "\x{2033}"}, # double prime.
'(lsaquo\|#8249)' => {'tex' => '{/Text \254}', 'web' => "\x{2039}"}, # < quote.	'(lsaquo\|#8249)' => {'tex' => '<', 'web' => "\x{2039}"}, # < quote.
'(rsaquo\|#8250)' => {'tex' => '{/Text \255}', 'web' => "\x{2040}"}, # > quote.	'(rsaquo\|#8250)' => {'tex' => '\74', 'web' => "\x{203a}"}, # > quote.
'(oline\|#8254)' => {'tex' => '{/Symbol \140}', 'web' => "\x{203e}"}, # Overline.	'(oline\|#8254)' => {'tex' => '{/Symbol \140}', 'web' => "\x{203e}"}, # Overline.
'(frasl\|#8260)' => {'tex' => '/', 'web' => "\x{2044}"}, # Fraction slash.	'(frasl\|#8260)' => {'tex' => '/', 'web' => "\x{2044}"}, # Fraction slash.
'(euro\|#8364)' => {'tex' => '{/Symbol \240}', 'web' => "\x{20a0}"}, # Euro currency.	'(euro\|#8364)' => {'tex' => '{/Symbol \240}', 'web' => "\x{20ac}"}, # Euro currency.

# Letter like symbols.	# Letter like symbols.

Line 1084 my %lookup =	Line 1114 my %lookup =
'(empty\|#8709)' => {'tex' => '{/Symbol \306}', 'web' => "\x{2205}"}, # Null set.	'(empty\|#8709)' => {'tex' => '{/Symbol \306}', 'web' => "\x{2205}"}, # Null set.
'(nabla\|#8711)' => {'tex' => '{/Symbol \321}', 'web' => "\x{2207}"}, # Gradient e.g.	'(nabla\|#8711)' => {'tex' => '{/Symbol \321}', 'web' => "\x{2207}"}, # Gradient e.g.
'(isin\|#8712)' => {'tex' => '{/Symbol \316}', 'web' => "\x{2208}"}, # Element of the set.	'(isin\|#8712)' => {'tex' => '{/Symbol \316}', 'web' => "\x{2208}"}, # Element of the set.
	'(notin\|#8713)' => {'tex' => '{/Symbol \317}', 'web' => "\x{2209}"}, # Not an element of
'(ni\|#8715)' => {'tex' => '{/Symbol \47}', 'web' => "\x{220b}"}, # Contains as a member	'(ni\|#8715)' => {'tex' => '{/Symbol \47}', 'web' => "\x{220b}"}, # Contains as a member
'(prod\|#8719)' => {'tex' => '{/Symbol \325}', 'web' => "\x{220f}"}, # Product	'(prod\|#8719)' => {'tex' => '{/Symbol \325}', 'web' => "\x{220f}"}, # Product
'(sum\|#8721)' => {'tex' => '{/Symbol \345}', 'web' => "\x{2211}"}, # Sum of.	'(sum\|#8721)' => {'tex' => '{/Symbol \345}', 'web' => "\x{2211}"}, # Sum of.
'(minus\|#8722)' => {'tex' => '-', 'web' => "\x{2212}"}, # - sign.	'(minus\|#8722)' => {'tex' => '{/Symbol \55}', 'web' => "\x{2212}"}, # - sign.
'(lowast\|#8727)' => {'tex' => '', 'web' => "\x{2217}"}, #	'(lowast\|#8727)' => {'tex' => '', 'web' => "\x{2217}"}, #
'(radic\|#8730)' => {'tex' => '{/Symbol \326}', 'web' => "\x{221a}"}, # Square root.	'(radic\|#8730)' => {'tex' => '{/Symbol \326}', 'web' => "\x{221a}"}, # Square root.
'(prop\|#8733)' => {'tex' => '{/Symbol \265}', 'web' => "\x{221d}"}, # Proportional to.	'(prop\|#8733)' => {'tex' => '{/Symbol \265}', 'web' => "\x{221d}"}, # Proportional to.
Line 1098 my %lookup =	Line 1129 my %lookup =
'(cap\|#8745)' => {'tex' => '{/Symbol \307}', 'web' => "\x{2229}"}, # Set intersection.	'(cap\|#8745)' => {'tex' => '{/Symbol \307}', 'web' => "\x{2229}"}, # Set intersection.
'(cup\|#8746)' => {'tex' => '{/Symbol \310}', 'web' => "\x{222a}"}, # Set union.	'(cup\|#8746)' => {'tex' => '{/Symbol \310}', 'web' => "\x{222a}"}, # Set union.
'(int\|8747)' => {'tex' => '{/Symbol \362}', 'web' => "\x{222b}"}, # Integral.	'(int\|8747)' => {'tex' => '{/Symbol \362}', 'web' => "\x{222b}"}, # Integral.
'(there4\|#8756)' => {'tex' => '{/Symbol \134}', 'web' => "\x{2234}"}, # Therefore triple dots.
'(sim\|#8764)' => {'tex' => '~', 'web' => "\x{223c}"}, # Simlar to.	# Some gnuplot guru will have to explain to me why the next three
'(cong\|#8773)' => {'tex' => '{/Symbol \100}', 'web' => "\x{2245}"}, # Congruent to/with.	# require the extra slashes... else they print very funkily.
'(asymp\|#8776)' => {'tex' => '{/Symbol \278}', 'web' => "\x{2248}"}, # Asymptotic to.
	'(there4\|#8756)' => {'tex' => '{/Symbol \\\134}', 'web' => "\x{2234}"}, # Therefore triple dots.
	'(sim\|#8764)' => {'tex' => '\\\176', 'web' => "\x{223c}"}, # Simlar to.
	'(cong\|#8773)' => {'tex' => '{/Symbol \\\100}','web' => "\x{2245}"}, # Congruent to/with.

	'(asymp\|#8776)' => {'tex' => '{/Symbol \273}', 'web' => "\x{2248}"}, # Asymptotic to.
'(ne\|#8800)' => {'tex' => '{/Symbol \271}', 'web' => "\x{2260}"}, # not equal to.	'(ne\|#8800)' => {'tex' => '{/Symbol \271}', 'web' => "\x{2260}"}, # not equal to.
'(equiv\|#8801)' => {'tex' => '{/Symbol \272}', 'web' => "\x{2261}"}, # Equivalent to.	'(equiv\|#8801)' => {'tex' => '{/Symbol \272}', 'web' => "\x{2261}"}, # Equivalent to.
'(le\|8804)' => {'tex' => '{/Symbol \243}', 'web' => "\x{2264}"}, # Less than or equal to.	'(le\|8804)' => {'tex' => '{/Symbol \243}', 'web' => "\x{2264}"}, # Less than or equal to.
Line 1122 my %lookup =	Line 1158 my %lookup =
'(rceil\|8969)' => {'tex' => '{/Symbol \371}', 'web' => "\x{2309}"}, # Right ceiling.	'(rceil\|8969)' => {'tex' => '{/Symbol \371}', 'web' => "\x{2309}"}, # Right ceiling.
'(lfloor\|8970)' => {'tex' => '{/Symbol \353}', 'web' => "\x{230a}"}, # Left floor.	'(lfloor\|8970)' => {'tex' => '{/Symbol \353}', 'web' => "\x{230a}"}, # Left floor.
'(rfloor\|8971)' => {'tex' => '{/Symbol \373}', 'web' => "\x{230b}"}, # Right floor.	'(rfloor\|8971)' => {'tex' => '{/Symbol \373}', 'web' => "\x{230b}"}, # Right floor.
'(lang\|9001)' => {'tex' => '{/Symbol \341}', 'web' => "\x{2329}"}, # Left angle bracket.
'(rang\|9002)' => {'tex' => '{/Symbol \361}', 'web' => "\x{232a}"}, # Right angle bracket.	# The gnuplot png font evidently does not have the big angle brackets at
	# positions 0x2329, 0x232a so use ordinary brackets.

	'(lang\|9001)' => {'tex' => '{/Symbol \341}', 'web' => '<'}, # Left angle bracket.
	'(rang\|9002)' => {'tex' => '{/Symbol \361}', 'web' => '>'}, # Right angle bracket.

# Gemoetric shapes.	# Gemoetric shapes.

Line 1344 sub start_function {	Line 1384 sub start_function {
my $function = &Apache::lonxml::get_all_text("/function",$parser,	my $function = &Apache::lonxml::get_all_text("/function",$parser,
$style);	$style);
$function = &Apache::run::evaluate($function,$safeeval,$$parstack[-1]);	$function = &Apache::run::evaluate($function,$safeeval,$$parstack[-1]);
	$function=~s/\^/\\/gs;
$curves[-1]->{'function'} = $function;	$curves[-1]->{'function'} = $function;
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .= &Apache::edit::tag_start($target,$token,'Gnuplot compatible curve function');	$result .= &Apache::edit::tag_start($target,$token,'Gnuplot compatible curve function');
Line 1414 sub start_data {	Line 1455 sub start_data {
}	}
# complain if the number of data points is not the same as	# complain if the number of data points is not the same as
# in previous sets of data.	# in previous sets of data.
if (($curves[-1]->{'data'}) && ($#data != $#{@{$curves[-1]->{'data'}->[0]}})){	if (($curves[-1]->{'data'}) && ($#data != $#{$curves[-1]->{'data'}->[0]})){
&Apache::lonxml::warning	&Apache::lonxml::warning
('Number of data points is not consistent with previous '.	('Number of data points is not consistent with previous '.
'number of data points');	'number of data points');
Line 1570 sub write_gnuplot_file {	Line 1611 sub write_gnuplot_file {
$gnuplot_input .= $fontsize;	$gnuplot_input .= $fontsize;
$gnuplot_input .= "\nset output \"/home/httpd/perl/tmp/".	$gnuplot_input .= "\nset output \"/home/httpd/perl/tmp/".
&unescape($filename).".eps\"\n";	&unescape($filename).".eps\"\n";
	$gnuplot_input .= "set encoding iso_8859_1\n"; # Get access to extended font.

}	}
# cartesian or polar plot?	# cartesian or polar plot?
if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') {	if (lc($Apache::lonplot::plot{'plottype'}) eq 'polar') {
Line 1638 sub write_gnuplot_file {	Line 1681 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 $offset;
my $extra_space_y = ($ytics{'location'} eq 'axis') ? ' -0.5, 0 ' : '';	if ($version >= 4.4) {
	$offset = 'offset ';
	}
	my $extra_space_x = ($xtics{'location'} eq 'axis') ? ' '.$offset.'0, -0.5 ' : '';
	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)) ;
Line 1656 sub write_gnuplot_file {	Line 1703 sub write_gnuplot_file {
$gnuplot_input .= ( $xtics{'mirror'} eq 'on'?"mirror ":"nomirror ");	$gnuplot_input .= ( $xtics{'mirror'} eq 'on'?"mirror ":"nomirror ");
$gnuplot_input .= "$xtics{'start'}, ";	$gnuplot_input .= "$xtics{'start'}, ";
$gnuplot_input .= "$xtics{'increment'}, ";	$gnuplot_input .= "$xtics{'increment'}, ";
$gnuplot_input .= "$xtics{'end'}\n";	$gnuplot_input .= "$xtics{'end'} ";
	if ($target eq 'tex') {
	$gnuplot_input .= 'font "Helvetica,22"'; # Needed in iso 8859-1 enc.
	}
	$gnuplot_input .= "\n";
if ($xtics{'minorfreq'} != 0) {	if ($xtics{'minorfreq'} != 0) {
$gnuplot_input .= "set mxtics ".$xtics{'minorfreq'}."\n";	$gnuplot_input .= "set mxtics ".$xtics{'minorfreq'}."\n";
}	}
	} else {
	if ($target eq 'tex') {
	$gnuplot_input .= 'set xtics font "Helvetica,22"'."\n"; # needed in iso 8859-1 enc
	}
}	}
if (%ytics) {	if (%ytics) {
$gnuplot_input .= "set ytics $ytics{'location'} ";	$gnuplot_input .= "set ytics $ytics{'location'} ";
$gnuplot_input .= ( $ytics{'mirror'} eq 'on'?"mirror ":"nomirror ");	$gnuplot_input .= ( $ytics{'mirror'} eq 'on'?"mirror ":"nomirror ");
$gnuplot_input .= "$ytics{'start'}, ";	$gnuplot_input .= "$ytics{'start'}, ";
$gnuplot_input .= "$ytics{'increment'}, ";	$gnuplot_input .= "$ytics{'increment'}, ";
$gnuplot_input .= "$ytics{'end'}\n";	$gnuplot_input .= "$ytics{'end'} ";
	if ($target eq 'tex') {
	$gnuplot_input .= 'font "Helvetica,22"'; # Needed in iso-8859-1 encoding.
	}
	$gnuplot_input .= "\n";
if ($ytics{'minorfreq'} != 0) {	if ($ytics{'minorfreq'} != 0) {
$gnuplot_input .= "set mytics ".$ytics{'minorfreq'}."\n";	$gnuplot_input .= "set mytics ".$ytics{'minorfreq'}."\n";
}	}
	} else {
	if ($target eq 'tex') {
	$gnuplot_input .= 'set ytics font "Helvetica,22"'."\n"; # Needed for iso 8859-1 enc.
	}
}	}
# axis	# axis
if (%axis) {	if (%axis) {
Line 1691 sub write_gnuplot_file {	Line 1754 sub write_gnuplot_file {
}	}
$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";
	if ($axis{'xzero'} ne 'off') {
	$gnuplot_input .= "set xzeroaxis ";
	if ($axis{'xzero'} eq 'line' \|\| $axis{'xzero'} eq 'thick-line') {
	$gnuplot_input .= "lt -1 ";
	if ($axis{'xzero'} eq 'thick-line') {
	$gnuplot_input .= "lw 3 ";
	}
	}
	$gnuplot_input .= "\n";
	}
	if ($axis{'yzero'} ne 'off') {
	$gnuplot_input .= "set yzeroaxis ";
	if ($axis{'yzero'} eq 'line' \|\| $axis{'yzero'} eq 'thick-line') {
	$gnuplot_input .= "lt -1 ";
	if ($axis{'yzero'} eq 'thick-line') {
	$gnuplot_input .= "lw 3 ";
	}
	}
	$gnuplot_input .= "\n";
	}
}	}
# Key	# Key
if (%key) {	if (%key) {
Line 1979 sub insert_data {	Line 2062 sub insert_data {
__END__	__END__


	=head1 NAME

	Apache::lonplot.pm

	=head1 SYNOPSIS

	XML-based plotter of graphs

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.


	=head1 SUBROUTINES (parsing and edit rendering)

	=over

	=item start_gnuplot()

	=item end_gnuplot()

	=item start_xtics()

	=item end_xtics()

	=item start_ytics()

	=item end_ytics()

	=item get_font()

	=item start_key()

	=item end_key()

	=item parse_label()

	=item replace_entities()

	=item start_title()

	=item end_title()

	=item start_xlabel()

	=item end_xlabel()

	=item start_ylabel()

	=item end_label()

	=item start_curve()

	=item end_curve()

	=item start_function()

	=item end_function()

	=item start_data()

	=item end_data()

	=item start_axis()

	=item end_axis

	=back

	=head1 SUBROUTINES (Utility)

	=over

	=item set_defaults()

	=item get_attributes()

	=item write_gnuplot_file()

	=item check_inputs()

	=item edit_attributes()

	=back

	=head1 SUBROUTINES (Insertion functions for editing plots)

	=over

	=item insert_gnuplot()

	=item insert_tics()

	=item insert_xtics()

	=item insert_key()

	=item insert_axis()

	=item insert_title()

	=item insert_xlabel()

	=item insert_ylabel()

	=item insert_label()

	=item insert_curve()

	=item insert_function()

	=item insert_data()

	=back

	=cut

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

Removed from v.1.142
changed lines
	Added in v.1.152.6.1