loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.133, 2007/12/14 06:34:59	version 1.134, 2008/01/20 02:47:06
Line 385 my %label_defaults =	Line 385 my %label_defaults =
description => 'justification of the label text on the plot',	description => 'justification of the label text on the plot',
edit_type => 'choice',	edit_type => 'choice',
choices => ['left','right','center']	choices => ['left','right','center']
	},
	rotate => {
	default => 0,
	test => $real_test,
	description => 'Rotation of label (degrees)',
	edit_type => 'entry',
	size => '10',
}	}
);	);

Line 1418 sub write_gnuplot_file {	Line 1425 sub write_gnuplot_file {
my $label;	my $label;
foreach $label (@labels) {	foreach $label (@labels) {
$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.	$gnuplot_input .= 'set label "'.$label->{'text'}.'" at '.
$label->{'xpos'}.','.$label->{'ypos'}.' '.$label->{'justify'};	$label->{'xpos'}.','.$label->{'ypos'};
	if ($label->{'rotate'} ne '') {
	$gnuplot_input .= ' rotate by '.$label->{'rotate'};
	}
	$gnuplot_input .= ' '.$label->{'justify'};

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