loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.174, 2014/05/27 12:31:03	version 1.175, 2014/06/19 17:23:50
Line 78 BEGIN {	Line 78 BEGIN {
## align	## align
##	##
## @labels: $labels[$i] = \%label	## @labels: $labels[$i] = \%label
## %label: text, xpos, ypos, justify	## %label: text, xpos, ypos, justify, rotate, zlayer
##	##
## @curves: $curves[$i] = \%curve	## @curves: $curves[$i] = \%curve
## %curve: name, linestyle, ( function \| data )	## %curve: name, linestyle, ( function \| data )
Line 421 my %label_defaults =	Line 421 my %label_defaults =
description => 'Rotation of label (degrees)',	description => 'Rotation of label (degrees)',
edit_type => 'entry',	edit_type => 'entry',
size => '10',	size => '10',
}	},
	zlayer => {
	default => '',
	test => sub {$_[0]=~/^(front\|back)$/},
	description => 'Z position of label',
	edit_type => 'choice',
	choices => ['front','back'],
	},
);	);

my @tic_edit_order = ('location','mirror','start','increment','end',	my @tic_edit_order = ('location','mirror','start','increment','end',
Line 1967 sub write_gnuplot_file {	Line 1974 sub write_gnuplot_file {
$gnuplot_input .= ' '.$label->{'justify'};	$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"';
	}
	if (($label->{'zlayer'} eq 'front') \|\| ($label->{'zlayer'} eq 'back')) {
	$gnuplot_input .= ' '.$label->{'zlayer'};
}	}
$gnuplot_input .= $/;	$gnuplot_input .= $/;
}	}