sub cfgprint
{
- my ($self, $name, $options, $max, $title, $legend, $iname, $oname) = @_;
+ my ($self, $name, $options, $max, $title, $legend, $iname, $oname, $yticsfactor) = @_;
my $opt = join ', ', @$options, qw(withzeroes growright nopercent integer);
+ $yticsfactor ||= 1;
$self->{mc}->print(<<"EOF");
Title[$name]: $title
Options[$name]: $opt
YLegend[$name]: $legend
-YTicsFactor[$name]: 1
+YTicsFactor[$name]: $yticsfactor
ShortLegend[$name]: \
Legend1[$name]:Maximum No of $iname
Legend2[$name]:Maximum No of $oname