package SVG::TT::Graph::BarLine;

use strict;
use Carp;
use SVG::TT::Graph;
use base qw(SVG::TT::Graph);
use vars qw($VERSION $TEMPLATE_FH);
$VERSION = $SVG::TT::Graph::VERSION;
$TEMPLATE_FH = \*DATA;

=head1 NAME

SVG::TT::Graph::BarLine - Create presentation quality SVG bar-line graphs easily

=head1 SYNOPSIS

  use SVG::TT::Graph::BarLine;

  my @fields = qw(Jan Feb Mar);
  my @data_sales_02 = qw(12 45 21);
  my @data_sales_03 = (24, 55, 61);

  my $graph = SVG::TT::Graph::BarLine->new({
    'height' => '500',
    'width'  => '300',
    'fields' => \@fields,
  });

  $graph->add_data({
    'data'  => \@data_sales_02,
    'title' => 'Sales 2002',
  });

  $graph->add_data({
    'data'  => \@data_sales_03,
    'title' => 'Sales 2003',
  });

  print "Content-type: image/svg+xml\n\n";
  print $graph->burn();

=head1 DESCRIPTION

This object aims to allow you to easily create high quality
SVG bar graphs. You can either use the default style sheet
or supply your own. Either way there are many options which can
be configured to give you control over how the graph is
generated - with or without a key, data elements at each point,
title, subtitle etc.

=head1 METHODS

=head2 new()

  use SVG::TT::Graph::BarLine;

  # Field names along the X axis
  my @fields = qw(Jan Feb Mar);

  my $graph = SVG::TT::Graph::BarLine->new({
    # Required
    'fields'                           => \@fields,

    # Optional - defaults shown
    'height'                           => '500',
    'width'                            => '300',

    'show_data_values'                 => 1,

    'scale_divisions'                  => '',
    'min_scale_value'                  => '0',
    'bar_gap'                          => 1,

    'show_x_labels'                    => 1,
    'stagger_x_labels'                 => 0,
    'rotate_x_labels'                  => 0,
    'show_y_labels'                    => 1,
    'scale_integers'                   => 0,
    'show_secondary_y_labels'          => 1,
    'y_label_formatter'                => sub { return @_ },
    'x_label_formatter'                => sub { return @_ },

    'show_path_title'		       => 0,
    'show_title_fields'		       => 0,

    'show_x_title'                     => 0,
    'x_title'                          => 'X Field names',

    'show_y_title'                     => 0,
    'show_secondary_y_title'           => 0,
    'y_title_text_direction'           => 'bt',
    'secondary_y_title_text_direction' => 'bt',
    'y_title'                          => 'Y Scale',
    'secondary_y_title'                => 'Y Scale 2',

    'show_graph_title'                 => 0,
    'graph_title'                      => 'Graph Title',
    'show_graph_subtitle'              => 0,
    'graph_subtitle'                   => 'Graph Sub Title',

    'key'                              => 0,
    'key_position'                     => 'right',

    # Stylesheet defaults
    'style_sheet'                      => '/includes/graph.css', # internal stylesheet
    'random_colors'                    => 0,
  });

The constructor takes a hash reference, fields (the names for each
field on the X axis) MUST be set, all other values are defaulted to those
shown above - with the exception of style_sheet which defaults
to using the internal style sheet.

=head2 add_data()

  my @data_sales_02 = qw(12 45 21);

  $graph->add_data({
    'data' => \@data_sales_02,
    'title' => 'Sales 2002',
  });

This method allows you to add data to the graph object.
It can be called several times to add more data sets in,
but the likelihood is you should be using SVG::TT::Graph::Line
as it won't look great!

=head2 clear_data()

  my $graph->clear_data();

This method removes all data from the object so that you can
reuse it to create a new graph but with the same config options.

=head2 burn()

  print $graph->burn();

This method processes the template with the data and
config which has been set and returns the resulting SVG.

This method will croak unless at least one data set has
been added to the graph object.

=head2 config methods

  my $value = $graph->method();
  my $confirmed_new_value = $graph->method($value);

The following is a list of the methods which are available
to change the config of the graph object after it has been
created.

=over 4

=item height()

Set the height of the graph box, this is the total height
of the SVG box created - not the graph it self which auto
scales to fix the space.

=item width()

Set the width of the graph box, this is the total width
of the SVG box created - not the graph it self which auto
scales to fix the space.

=item compress()

Whether or not to compress the content of the SVG file (Compress::Zlib required).

=item tidy()

Whether or not to tidy the content of the SVG file (XML::Tidy required).

=item style_sheet()
=item style_sheet()

Set the path to an external stylesheet, set to '' if
you want to revert back to using the defaut internal version.

The default stylesheet handles up to 12 data sets. All data series over
the 12th will have no style and be in black. If you have over 12 data
sets you can assign them all random colors (see the random_color()
method) or create your own stylesheet and add the additional settings
for the extra data sets.

To create an external stylesheet create a graph using the
default internal version and copy the stylesheet section to
an external file and edit from there.

=item random_colors()

Use random colors in the internal stylesheet

=item show_data_values()

Show the value of each element of data on the graph

=item bar_gap()

Whether to have a gap between the bars or not, default
is '1', set to '0' if you don't want gaps.

=item show_x_labels()

Whether to show labels on the X axis or not, defaults
to 1, set to '0' if you want to turn them off.

=item stagger_x_labels()

This puts the labels at alternative levels so if they
are long field names they will not overlap so easily.
Default it '0', to turn on set to '1'.

=item rotate_x_labels()

This turns the X axis labels by 90 degrees.
Default it '0', to turn on set to '1'.

=item show_y_labels()

Whether to show labels on the Y axis or not, defaults
to 1, set to '0' if you want to turn them off.

=item scale_integers()

Ensures only whole numbers are used as the scale divisions.
Default it '0', to turn on set to '1'. This has no effect if
scale divisions are less than 1.

=item show_secondary_y_labels()

Whether to show labels on the right hand side Y axis or not, defaults
to 1, set to '0' if you want to turn them off.

=item min_scale_value()

The point at which the Y axis starts, defaults to '0',
if set to '' it will default to the minimum data value.

=item scale_divisions()

This defines the gap between markers on the Y axis,
default is a 10th of the max_value, e.g. you will have
10 markers on the Y axis. NOTE: do not set this too
low - you are limited to 999 markers, after that the
graph won't generate.

=item show_x_title()

Whether to show the title under the X axis labels,
default is 0, set to '1' to show.

=item x_title()

What the title under X axis should be, e.g. 'Months'.

=item show_y_title()

Whether to show the title on the left hand side Y axis,
default is 0, set to '1' to show.

=item show_secondary_y_title()

Whether to show the title on the right hand side Y axis,
default is 0, set to '1' to show.

=item y_title_text_direction()

Aligns writing mode for Y axis label. Defaults to 'bt' (Bottom to Top).
Change to 'tb' (Top to Bottom) to reverse.

=item secondary_y_title_text_direction()

Aligns writing mode for right hand Y axis label. Defaults to 'bt' (Bottom to Top).
Change to 'tb' (Top to Bottom) to reverse.

=item y_title()

What the title under Y axis should be, e.g. 'Sales in thousands'.

=item secondary_y_title()

What the title on the right hand side Y axis should be, e.g. 'Number of deals'.

=item show_graph_title()

Whether to show a title on the graph, defaults
to 0, set to '1' to show.

=item graph_title()

What the title on the graph should be.

=item show_graph_subtitle()

Whether to show a subtitle on the graph, defaults
to 0, set to '1' to show.

=item graph_subtitle()

What the subtitle on the graph should be.

=item key()

Whether to show a key, defaults to 0, set to
'1' if you want to show it.

=item key_position()

Where the key should be positioned, defaults to
'right', set to 'bottom' if you want to move it.

=item x_label_formatter ()

A callback subroutine which will format a label on the x axis.  For example:

    $graph->x_label_formatter( sub { return '$' . $_[0] } );

=item y_label_formatter()

A callback subroutine which will format a label on the y axis.  For example:

    $graph->y_label_formatter( sub { return '$' . $_[0] } );

=item show_path_title()

Whether to add the title attribute to the data path tags,
which will show "tooltips" when hovering over the bar area.

=item show_title_fields()

Whether to show field values as title elements in path tag,
defaults to 0, set to '1' to turn on. Suggest on single
add_data graphs, for overlapping graphs leave off to see
the title value used in the add_data call.

=back

=head1 EXAMPLES

For examples look at the project home page
http://leo.cuckoo.org/projects/SVG-TT-Graph/

=head1 EXPORT

None by default.

=head1 SEE ALSO

L<SVG::TT::Graph>,
L<SVG::TT::Graph::Line>,
L<SVG::TT::Graph::Bar>,
L<SVG::TT::Graph::BarHorizontal>,
L<SVG::TT::Graph::Pie>,
L<SVG::TT::Graph::TimeSeries>,
L<SVG::TT::Graph::XY>,
L<Compress::Zlib>,
L<XML::Tidy>

=cut

sub _init {
  my $self = shift;
  croak "fields was not supplied or is empty"
  unless defined $self->{'config'}->{fields}
    && ref($self->{'config'}->{fields}) eq 'ARRAY'
    && scalar(@{$self->{'config'}->{fields}}) > 0;
}

sub _set_defaults {
  my $self = shift;

  my %default = (
    'width'                            => '500',
    'height'                           => '300',

    'style_sheet'                      => '',
    'random_colors'                    => 0,

    'show_data_values'                 => 1,

    'min_scale_value'                  => '0',
    'scale_divisions'                  => '',
    'bar_gap'                          => 1,

    'show_x_labels'                    => 1,
    'rotate_x_labels'                  => 0,
    'stagger_x_labels'                 => 0,
    'show_y_labels'                    => 1,
    'scale_integers'                   => 0,
    'show_secondary_y_labels'          => 1,
    'x_label_formatter'                => sub { return @_ },
    'y_label_formatter'                => sub { return @_ },

    'show_path_title'		       => 0,
    'show_title_fields'		       => 0,

    'show_x_title'                     => 0,
    'x_title'                          => 'X Field names',

    'show_y_title'                     => 0,
    'show_secondary_y_title'           => 0,
    'y_title_text_direction'           => 'bt',
    'secondary_y_title_text_direction' => 'bt',
    'y_title'                          => 'Y Scale',
    'secondary_y_title'                => 'Y Scale 2',

    'show_graph_title'                 => 0,
    'graph_title'                      => 'Graph Title',
    'show_graph_subtitle'              => 0,
    'graph_subtitle'                   => 'Graph Sub Title',
    'key'                              => 0,
    'key_position'                     => 'right', # bottom or right
  );

  while( my ($key,$value) = each %default ) {
    $self->{config}->{$key} = $value;
  }
}

1;
__DATA__
<?xml version="1.0"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN"
  "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
[% stylesheet = 'included' %]

[% IF config.style_sheet && config.style_sheet != '' %]
  <?xml-stylesheet href="[% config.style_sheet %]" type="text/css"?>
[% ELSE %]
  [% stylesheet = 'excluded' %]
[% END %]

<svg width="[% config.width %]" height="[% config.height %]" viewBox="0 0 [% config.width %] [% config.height %]" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<!-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\  -->
<!-- Created with SVG::TT::Graph   -->
<!-- Stephen Morgan / Leo Lapworth -->
<!-- ////////////////////////////  -->

[% IF stylesheet == 'excluded' %]
<!-- include default stylesheet if none specified -->
<defs>
<style type="text/css">
<![CDATA[
/* Copy from here for external style sheet */
.svgBackground{
  fill:#ffffff;
}
.graphBackground{
  fill:#f0f0f0;
}

/* graphs titles */
.mainTitle{
  text-anchor: middle;
  fill: #000000;
  font-size: 14px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}
.subTitle{
  text-anchor: middle;
  fill: #999999;
  font-size: 12px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.axis{
  stroke: #000000;
  stroke-width: 1px;
}

.guideLines{
  stroke: #666666;
  stroke-width: 1px;
  stroke-dasharray: 5 5;
}

.xAxisLabels{
  text-anchor: middle;
  fill: #000000;
  font-size: 12px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.yAxisLabels{
  text-anchor: end;
  fill: #000000;
  font-size: 12px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.xAxisTitle{
  text-anchor: middle;
  fill: #ff0000;
  font-size: 14px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.yAxisTitle{
  fill: #ff0000;
  text-anchor: middle;
  font-size: 14px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.dataPointLabel{
  fill: #000000;
  text-anchor:middle;
  font-size: 10px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}

.staggerGuideLine{
  fill: none;
  stroke: #000000;
  stroke-width: 0.5px;
}

[% FOREACH dataset = data %]
  [% color = '' %]
  [% IF config.random_colors %]
    [% color = random_color() %]
  [% ELSE %]
    [% color = predefined_color(loop.count) %]
  [% END %]

  .line[% loop.count %]{
    fill: none;
    stroke: [% color %];
    stroke-width: 1px;
  }

  .key[% loop.count %],.fill[% loop.count %]{
    fill: [% color %];
    fill-opacity: 0.5;
    stroke: none;
    stroke-width: 0.5px;
  }

  [% LAST IF (config.random_colors == 0 && loop.count == 12) %]
[% END %]

.keyText{
  fill: #000000;
  text-anchor:start;
  font-size: 10px;
  font-family: "Arial", sans-serif;
  font-weight: normal;
}
/* End copy for external style sheet */
]]>
</style>
</defs>
[% END %]
<!-- svg bg -->
<rect x="0" y="0" width="[% config.width %]" height="[% config.height %]" class="svgBackground"/>

<!-- ///////////////// CALCULATE GRAPH AREA AND BOUNDARIES //////////////// -->
<!-- get dimensions of actual graph area (NOT SVG area) -->
[% w = config.width %]
[% h = config.height %]

<!-- set start/default coords of graph -->
[% x = 0 %]
[% y = 0 %]

[% char_width = 9 %]
[% half_char_height = 2.5 %]
[% title_height = 25 %]

<!-- calc min and max values for the first dataset (ie bar graph) -->
[% min_value = 99999999999 %]
[% max_value = 0 %]
[% secondary_max_value = 0 %]
[% secondary_max_y_label_length = 0 %]
[% secondary_max_y_label_size = 0 %]
[% max_key_size = 0 %]
[% max_x_label_size = 0 %]
<!-- find largest labels values in turn -->
[% FOREACH field = config.fields %]
  [% IF max_x_label_size < field.length %]
    [% max_x_label_size = field.length %]
  [% END %]

  [% IF min_value > data.0.data.$field && data.0.data.$field != '' %]
    [% min_value = data.0.data.$field %]
  [% END %]

  [% IF max_value < data.0.data.$field && data.0.data.$field != '' %]
    [% max_value = data.0.data.$field %]
  [% END %]

  [% IF secondary_max_value < data.1.data.$field && data.1.data.$field != '' %]
    [% secondary_max_value = data.1.data.$field %]
  [% END %]
  [% IF secondary_max_y_label_size < data.1.data.$field.length %]
    [% secondary_max_y_label_size = data.1.data.$field.length %]
  [% END %]
  [% IF max_key_size < data.0.title.length %]
    [% max_key_size = data.0.title.length %]
  [% END %]
[% END %]


[% secondary_max_y_label_length = secondary_max_y_label_size * char_width %]


<!-- CALC HEIGHT AND Y COORD DIMENSIONS -->
<!-- reduce height of graph area if there is labelling on x axis -->
[% IF config.show_x_labels %][% h = h - 20 %][% END %]

  <!-- reduce height if x labels are rotated -->
  [% max_x_label_length = 0 %]
  [% IF config.rotate_x_labels %]
    [% max_x_label_length = max_x_label_size * char_width %]
    [% h = h - max_x_label_length %]
  [% END %]

  <!-- stagger x labels if overlapping occurs -->
  [% stagger = 0 %]
  [% IF config.stagger_x_labels %]
    [% stagger = 17 %]
    [% h = h - stagger %]
  [% END %]

  [% IF config.show_x_title %][% h = h - title_height - stagger %][% END %]

  <!-- pad top of graph if y axis has data labels so labels do not get chopped off -->
  [% IF config.show_y_labels %][% h = h - 10 %][% y = y + 10 %][% END %]

  <!-- reduce height if graph has title or subtitle -->
  [% IF config.show_graph_title %][% h = h - title_height %][% y = y + title_height %][% END %]
  [% IF config.show_graph_subtitle %][% h = h - 10 %][% y = y + 10 %][% END %]

<!-- reduce graph dimensions if there is a KEY -->
  [% key_box_size = 12 %]

  [% IF config.key && config.key_position == 'right' %]
    [% IF config.show_secondary_y_title %]
      [% w = w - (max_key_size * (char_width - 1)) - (key_box_size * 3 ) %]
    [% ELSE %]
      [% w = w - (max_key_size * (char_width - 1)) - (key_box_size * 3 ) - title_height %]
    [% END %]
  [% ELSIF config.key && config.key_position == 'bottom' %]
    [% IF data.size < 4 %]
      [% h = h - ((data.size + 1) * (key_box_size + key_padding))%]
    [% ELSE %]
      [% h = h - (4 * (key_box_size + key_padding))%]
    [% END %]
  [% END %]

  <!-- find start value for scale on y axis -->
  [% IF config.min_scale_value || config.min_scale_value == '0' %]
    [% min_scale_value = config.min_scale_value %]
  [% ELSE %]
    <!-- setting lowest value to be min_value as no min_scale_value defined -->
    [% min_scale_value = min_value %]
  [% END %]

  <!-- base line -->
  [% base_line = h + y %]

  <!-- how much padding between largest bar and top of graph -->
  [% IF (max_value - min_scale_value) == 0 %]
    [% top_pad = 10 %]
  [% ELSE %]
    [% top_pad = (max_value - min_scale_value) / 20 %]
  [% END %]

  <!-- how much padding between largest bar and top of graph for secondary y axis -->
  [% IF (secondary_max_value - min_scale_value) == 0 %]
    [% secondary_top_pad = 10 %]
  [% ELSE %]
    [% secondary_top_pad = (secondary_max_value - min_scale_value) / 20 %]
  [% END %]

  [% scale_range = (max_value + top_pad) - min_scale_value %]
  [% secondary_scale_range = (secondary_max_value + secondary_top_pad) - min_scale_value %]

  <!-- default to 10 scale_divisions if none have been set -->
  [% IF config.scale_divisions %]
    [% scale_division = config.scale_divisions %]
  [% ELSE %]
    [% scale_division = scale_range / 10 FILTER format('%2.01f') %]
  [% END %]

  <!-- default to 10 scale_divisions if none have been set for secondary y axis -->
  [% IF config.scale_divisions %]
    [% secondary_scale_division = config.scale_divisions %]
  [% ELSE %]
    [% secondary_scale_division = secondary_scale_range / 10 FILTER format('%2.01f') %]
  [% END %]

  [% IF config.scale_integers %]
    [% IF scale_division < 1 %]
      [% scale_division = 1 %]
    [% ELSIF scale_division.match('.') %]
      [% scale_division = scale_division FILTER format('%2.0f') %]
    [% END %]
  [% END %]

<!-- JUMP THE GUN AND CALC BAR WIDTHS AS THESE ARE USED FOR PADDING IF LARGE X LABELS ARE USED -->
<!-- get number of data points on x scale -->
[% dx = config.fields.size %]
[% IF dx == 0 %]
  [% dx = 1 %]
[% END %]

[% secondary_title_padding = 0 %]
[% IF config.show_secondary_y_labels %]
  [% w = w - secondary_max_y_label_length - title_height %]
  [% secondary_title_padding = secondary_title_padding + secondary_max_y_label_length + 10 %]
[% END %]

[% IF config.show_secondary_y_title %]
  [% w = w - title_height - char_width %]
  [% secondary_title_padding = secondary_title_padding + title_height %]
[% END %]


<!-- get distribution width on x axis -->
[% data_widths_x = w / dx %]
[% dw = data_widths_x FILTER format('%2.02f') %]


<!-- CALC WIDTH AND X COORD DIMENSIONS -->
<!-- reduce width of graph area if there is large labelling on x axis -->
[% half_label_width = (config.fields.0.length / 2) * char_width %]

[% space_b4_y_axis = 0 %]
[% IF half_label_width > (dw / 2) %]
  <!-- calc difference and pad accordingly -->
  [% space_b4_y_axis = half_label_width - (dw / 2) %]
  <!-- only need to pad the left side if a key is present -->
  [% IF config.key && config.key_position == 'right' %]
    [% w = w - space_b4_y_axis %]
  [% ELSE %]
    <!-- pad both sides -->
    [% w = w - (space_b4_y_axis * 2) %]
  [% END %]
  [% x = x + space_b4_y_axis %]
[% END %]

<!-- find the string length of max value -->
[% max_value_length = max_value.length %]

<!-- label width in pixels -->
[% max_value_length_px = max_value_length * char_width %]
<!-- If the y labels are shown but the size of the x labels are small, pad for y labels -->

[% IF config.show_y_labels && space_b4_y_axis < max_value_length_px %]
  <!-- allow slightly more padding if small labels -->
  [% IF max_value_length < 2 %]
    [% w = w - (max_value_length * (char_width * 2)) %]
    [% x = x + (max_value_length * (char_width * 2)) %]
  [% ELSE %]
    [% w = w - max_value_length_px %]
    [% x = x + max_value_length_px %]
  [% END %]
[% END %]

[% IF config.show_y_title && space_b4_y_axis < max_value_length_px %]
  [% w = w - title_height %]
  [% x = x + title_height %]
[% END %]


<!-- //////////////////////////////  BUILD GRAPH AREA ////////////////////////////// -->
<!-- graph bg -->
<rect x="[% x %]" y="[% y %]" width="[% w %]" height="[% h %]" class="graphBackground"/>

<!-- axis -->
<path d="M[% x %] [% y %] v[% h %]" class="axis" id="xAxis"/>
<path d="M[% x %] [% base_line %] h[% w %]" class="axis" id="yAxis"/>

<path d="M[% x + w %] [% y %] v[% h %]" class="axis" id="yAxis2"/>
<!-- //////////////////////////////  AXIS DISTRIBUTIONS //////////////////////////// -->
<!-- get number of data points on x scale -->
[% dx = config.fields.size %]
[% IF dx == 0 %]
  [% dx = 1 %]
[% END %]
<!-- get distribution width on x axis -->
[% data_widths_x = w / dx %]

<!-- decimal point control removed due to exaggerated error when large groups of data used -->
[%# dw = data_widths_x.match('(\d+[\.\d\d])').0 %]

[% dw = data_widths_x %]
[% IF config.bar_gap %]
  [% bar_gap = 10 %]
  [% IF dw < bar_gap %]
    [% bar_gap = dw / 2 %]
  [% END %]
[% ELSE %]
  [% bar_gap = 0 %]
[% END %]

[% i = dw %]
[% count = 0 %]
[% stagger_count = 0 %]

<!-- x axis labels -->
[% IF config.show_x_labels %]
  [% FOREACH field = config.fields %]
    [% field_txt = config.x_label_formatter(field) %]
    [% IF count == 0 %]
      <text x="[% x + (dw / 2) - (bar_gap / 2) %]" y="[% base_line + 15 %]" [% IF config.rotate_x_labels %]transform="rotate(90 [% x + (dw / 2) - (bar_gap / 2) - half_char_height %] [% base_line + 15 %])" style="text-anchor: start" [% END %]class="xAxisLabels">[% field %]</text>
      [% i = i - dw %]
    [% ELSE %]
      [% IF stagger_count == 2 %]
        <text x="[% x + i + (dw / 2) - (bar_gap / 2) %]" y="[% base_line + 15 %]" [% IF config.rotate_x_labels %]transform="rotate(90 [% x + i + (dw / 2) - (bar_gap / 2) - half_char_height %] [% base_line + 15 %])" style="text-anchor: start" [% END %]class="xAxisLabels">[% field_txt %]</text>
        [% stagger_count = 0 %]
      [% ELSE %]
        <text x="[% x + i + (dw / 2) - (bar_gap / 2) %]" y="[% base_line + 15 + stagger %]" [% IF config.rotate_x_labels %]transform="rotate(90 [% x + i + (dw / 2) - (bar_gap / 2) - half_char_height %] [% base_line + 15 + stagger %])" style="text-anchor: start" [% END %]class="xAxisLabels">[% field_txt %]</text>
        <path d="M[% x + i + (dw / 2) - (bar_gap / 2) %] [% base_line %] v[% stagger %]" class="staggerGuideLine" />
      [% END %]
    [% END %]
    [% i = i + dw %]
    [% count = count + 1 %]
    [% stagger_count = stagger_count + 1 %]
  [% END %]
[% END %]


<!-- distribute Y scale -->
[% dy = scale_range / scale_division %]
[% IF dy == 0 %]
  [% dy = 1 %]
[% END %]
<!-- ensure y_data_points butt up to edge of graph -->
[% y_marker_height = h / dy %]
[% dy = y_marker_height.match('(\d+[\.\d\d])').0 %]
[% count = 0 %]
[% y_value = min_scale_value %]
[% IF config.show_y_labels %]
  [% WHILE (dy * count) < h %]
    [% y_value_txt = config.y_label_formatter(y_value) %]
    [% IF count == 0 %]
      <!-- no stroke for first line -->
      <text x="[% x - 5 %]" y="[% base_line - (dy * count) %]" class="yAxisLabels">[% y_value_txt %]</text>
    [% ELSE %]
      <text x="[% x - 5 %]" y="[% base_line - (dy * count) %]" class="yAxisLabels">[% y_value_txt %]</text>
      <path d="M[% x %] [% base_line - (dy * count) %] h[% w %]" class="guideLines"/>
    [% END %]
    [% y_value = y_value + scale_division %]
    [% count = count + 1 %]
  [% END %]
[% END %]


<!-- distribute secondary Y scale -->

<!-- ensure y_data_points butt up to edge of graph -->
[% secondary_y_marker_height = h / dy %]

[% s_count = 0 %]
[% secondary_y_value = min_scale_value %]
[% IF config.show_secondary_y_labels %]
  [% WHILE (dy * s_count) < h %]
    <text x="[% x + w + 5 %]" y="[% base_line - (dy * s_count) %]" class="yAxisLabels" style="text-anchor: start">[% secondary_y_value %]</text>

    [% secondary_y_value = secondary_y_value + secondary_scale_division %]
    [% s_count = s_count + 1 %]
  [% END %]
[% END %]


<!-- //////////////////////////////  AXIS TITLES ////////////////////////////// -->

<!-- x axis title -->
[% IF config.show_x_title %]
  [% IF !config.show_x_labels %]
    [% y_xtitle = 15 %]
  [% ELSE %]
    [% y_xtitle = 35 %]
  [% END %]
  <text x="[% (w / 2) + x %]" y="[% h + y + y_xtitle + stagger + max_x_label_length %]" class="xAxisTitle">[% config.x_title %]</text>
[% END %]

<!-- y axis title -->
[% IF config.show_y_title %]
  [% IF config.y_title_text_direction == 'tb' %]
    <text x="11" y="[% (h / 2) + y %]" class="yAxisTitle" style="writing-mode:tb;">[% config.y_title %]</text>
  [% ELSE %]
    <text class="yAxisTitle" transform="translate(15,[% (h / 2) + y %]) rotate(270)">[% config.y_title %]</text>
  [% END %]
[% END %]

<!-- secondary y axis title -->
[% IF config.show_secondary_y_title %]
  [% IF config.secondary_y_title_text_direction == 'tb' %]
    <text x="[% x + w + secondary_title_padding %]" y="[% (h / 2) + y %]" class="yAxisTitle" style="writing-mode:tb;">[% config.secondary_y_title %]</text>
  [% ELSE %]
    <text class="yAxisTitle" transform="translate([% x + w + secondary_title_padding %],[% (h / 2) + y %]) rotate(270)">[% config.secondary_y_title %]</text>
  [% END %]
[% END %]


<!-- //////////////////////////////  SHOW DATA ////////////////////////////// -->
[% bar_width = dw - bar_gap %]

[% divider = dy / scale_division %]
[% secondary_divider = dy / secondary_scale_division %]

[% xcount = 0 %]
[% line = data.size %]

<!-- Draw BAR CHART -->
[% FOREACH field = config.fields %]
  [% dcount = 1 %]
    [% IF config.show_path_title %]
      [% IF config.show_title_fields %]
	<path d="M[% x + (dw * xcount) %] [% base_line %] V[% base_line - (data.0.data.$field * divider) %] h[% bar_width %] V[% base_line %] Z" class="fill[% dcount %]"><title>[% data.0.data.$field %] - [% field %]</title></path>
      [% ELSE %]
	<path d="M[% x + (dw * xcount) %] [% base_line %] V[% base_line - (data.0.data.$field * divider) %] h[% bar_width %] V[% base_line %] Z" class="fill[% dcount %]"><title>[% data.0.data.$field %] - [% data.0.title %]</title></path>
      [% END %]
    [% ELSE %]
      <path d="M[% x + (dw * xcount) %] [% base_line %] V[% base_line - (data.0.data.$field * divider) %] h[% bar_width %] V[% base_line %] Z" class="fill[% dcount %]"/>
    [% END %]

  [% IF config.show_data_values %]
    <text x="[% (dw * xcount) + x + (dw / 2) - (bar_gap / 2) %]" y="[% base_line - (data.0.data.$field * divider) - 6 %]" class="dataPointLabel">[% data.0.data.$field %]</text>
  [% END %]
  [% dcount = dcount + 1 %]
  [% xcount = xcount + 1 %]
[% END %]

<!-- Draw Line graph -->
<path d="M
[% xcount = 0 %]
[% FOREACH field = config.fields %]
  [% IF xcount == 1 %] L [% END %]
    [% (dw * xcount) + x + (bar_width / 2) %] [% base_line - (data.1.data.$field * secondary_divider) %]
    [% xcount = xcount + 1 %]
  [% END %]" class="line[% line %]"/>

  [% xcount = 0 %]
  [% FOREACH field = config.fields %]
    [% IF config.show_data_points %]
      <!-- datapoint shown -->
      <circle cx="[% (dw * xcount) + x + (bar_width / 2) %]" cy="[% base_line - (data.1.data.$field * secondary_divider) %]" r="2.5" class="dataPoint[% line %]"/>
    [% END %]

    [% IF config.show_data_values %]
      <!-- datavalue shown -->
      <text x="[% (dw * xcount) + x + (bar_width / 2) %]" y="[% base_line - (data.1.data.$field * secondary_divider) - 6 %]" class="dataPointLabel">[% data.1.data.$field %]</text>
    [% END %]
  [% xcount = xcount + 1 %]
[% END %]


<!-- //////////////////////////////// KEY ///////////////////////////////// -->
[% key_count = 1 %]
[% key_padding = 5 %]
[% IF config.key && config.key_position == 'right' %]
  [% FOREACH dataset = data %]
    <rect x="[% x + w + 20 + secondary_max_y_label_length + title_height %]" y="[% y + (key_box_size * key_count) + (key_count * key_padding) %]" width="[% key_box_size %]" height="[% key_box_size %]" class="key[% key_count %]"/>
    <text x="[% x + w + 20 + key_box_size + key_padding + secondary_max_y_label_length + title_height %]" y="[% y + (key_box_size * key_count) + (key_count * key_padding) + key_box_size %]" class="keyText">[% dataset.title %]</text>
    [% key_count = key_count + 1 %]
  [% END %]
[% ELSIF config.key && config.key_position == 'bottom' %]
  <!-- calc y position of start of key -->
  [% y_key = base_line %]
  [% IF config.show_x_title %][% y_key = y_key + title_height %][% END %]
  [% IF config.rotate_x_labels && config.show_x_labels %]
    [% y_key = y_key + max_x_label_length %]
  [% ELSIF config.show_x_labels && stagger < 1 %]
    [% y_key = y_key + 20 %]
  [% END %]

  [% y_key_start = y_key %]
  [% x_key = x %]
  [% FOREACH dataset = data %]
    [% IF key_count == 4 || key_count == 7 || key_count == 10 %]
      <!-- wrap key every 3 entries -->
      [% x_key = x_key + 200 %]
      [% y_key = y_key - (key_box_size * 4) - 2 %]
    [% END %]
    <rect x="[% x_key %]" y="[% y_key + (key_box_size * key_count) + (key_count * key_padding) + stagger %]" width="[% key_box_size %]" height="[% key_box_size %]" class="key[% key_count %]"/>
    <text x="[% x_key + key_box_size + key_padding %]" y="[% y_key + (key_box_size * key_count) + (key_count * key_padding) + key_box_size + stagger %]" class="keyText">[% dataset.title %]</text>
    [% key_count = key_count + 1 %]
  [% END %]

[% END %]

<!-- //////////////////////////////// MAIN TITLES ////////////////////////// -->

<!-- main graph title -->
[% IF config.show_graph_title %]
  <text x="[% config.width / 2 %]" y="15" class="mainTitle">[% config.graph_title %]</text>
[% END %]

<!-- graph sub title -->
[% IF config.show_graph_subtitle %]
  [% IF config.show_graph_title %]
    [% y_subtitle = 30 %]
  [% ELSE %]
    [% y_subtitle = 15 %]
  [% END %]
  <text x="[% config.width / 2 %]" y="[% y_subtitle %]" class="subTitle">[% config.graph_subtitle %]</text>
[% END %]
</svg>