<?php
/**
 * Copyright (C) 2019-2022 Graham Breach
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */
/**
 * For more information, please contact <graham@goat1000.com>
 */

namespace Goat1000\SVGGraph;

trait StackedGroupedBarTrait {

  use GroupedBarTrait;

  // stores the actual group starts
  protected $groups = [];

  // stores the group each dataset is within
  protected $dataset_groups = [];

  protected function drawBars()
  {
    $this->barSetup();
    $group_count = count($this->groups);
    $bar_count = count($this->multi_graph);

    $bars = '';
    $legend_entries = [];
    $datasets = $this->multi_graph->getEnabledDatasets();
    foreach($this->multi_graph as $bnum => $itemlist) {
      $item = $itemlist[0];
      $k = $item->key;
      $bar_pos = $this->gridPosition($item, $bnum);

      if($bar_pos !== null) {

        for($l = 0; $l < $group_count; ++$l) {
          $start_bar = $this->groups[$l];
          $end_bar = isset($this->groups[$l + 1]) ? $this->groups[$l + 1] : $bar_count;
          $ypos = $yneg = 0;

          // stack the bars in order they must be drawn
          $stack = [];
          for($j = $start_bar; $j < $end_bar; ++$j) {
            if(!in_array($j, $datasets))
              continue;
            $item = $itemlist[$j];
            if($item->value !== null) {
              if($item->value < 0) {
                array_unshift($stack, [$j, $yneg]);
                $yneg += $item->value;
                continue;
              }
              $stack[] = [$j, $ypos];
              $ypos += $item->value;
            }
          }

          $stack_last = count($stack) - 1;
          $top_dataset = 0;
          foreach($stack as $b => $stack_bar) {
            list($j, $start) = $stack_bar;
            $item = $itemlist[$j];
            $top = ($b == $stack_last);
            if($top)
              $top_dataset = $j;
            $this->setBarVisibility($j, $item, $top);
            $bars .= $this->drawBar($item, $bnum, $start, null, $j, ['top' => $top]);
            $legend_entries[$j][$bnum] = $item;
          }
          $this->barTotals($item, $bnum, $ypos, $yneg, $top_dataset);
        }
      }
    }

    foreach($legend_entries as $j => $dataset)
      foreach($dataset as $bnum => $item)
        $this->setBarLegendEntry($j, $bnum, $item);

    return $bars;
  }

  /**
   * Sets up bar details
   */
  protected function barSetup()
  {
    parent::barSetup();
    $group_count = count($this->groups);
    $chunk_count = count($this->multi_graph);
    list($group_width, $bspace, $group_unit_width) =
      $this->barPosition($this->getOption('bar_width'),
        $this->getOption('bar_width_min'),
        $this->x_axes[$this->main_x_axis]->unit(), $group_count,
        $this->getOption('bar_space'), $this->getOption('group_space'));
    $this->group_bar_spacing = $group_unit_width;
    $this->setBarWidth($group_width, $bspace);
  }

  /**
   * Fills in the x and width of bar
   */
  protected function barX($item, $index, &$bar, $axis, $dataset)
  {
    $bar_x = $this->gridPosition($item, $index);
    if($bar_x === null)
      return null;

    $group = $this->dataset_groups[$dataset];
    $bar['x'] = $bar_x + $this->calculated_bar_space +
        ($group * $this->group_bar_spacing);
    $bar['width'] = $this->calculated_bar_width;
    return $bar_x;
  }

  /**
   * Check that the required options are set and match the data
   */
  protected function checkValues()
  {
    parent::checkValues();
    $stack_group = $this->getOption('stack_group');
    if(empty($stack_group))
      throw new \Exception('stack_group not set');

    // make sure the group details are stored in an array
    if(!is_array($stack_group))
      $stack_group = [$stack_group];

    // make the list of groups
    $datasets = count($this->multi_graph);
    $groups = [0]; // first starts at 0, obviously
    $dataset_groups = array_fill(0, $datasets, 0);

    $last_start = 0;
    foreach($stack_group as $key => $group_start) {
      if($group_start <= $last_start)
        throw new \Exception('Invalid stack_group option');
      if($group_start < $datasets)
        $groups[] = $group_start;
      $last_start = $group_start;
      for($d = $group_start; $d < $datasets; ++$d) {
        $dataset_groups[$d] = $key + 1;
      }
    }

    // without this check there will be an invalid axis error
    if(count($groups) == 1)
      throw new \Exception('Too few datasets for grouping');

    // check disabled datasets
    $datasets = $this->multi_graph->getEnabledDatasets();
    $cleaned_dg = [];
    foreach($dataset_groups as $d => $g) {
      if(in_array($d, $datasets))
        $cleaned_dg[$d] = $g;
    }

    // check for unused groups
    $u = array_unique($cleaned_dg);
    if(count($u) < count($groups))
      throw new \Exception('Disabled datasets prevent grouping');

    $this->groups = $groups;
    $this->dataset_groups = $cleaned_dg;
  }

  /**
   * Returns the maximum (stacked) value
   */
  public function getMaxValue()
  {
    $max = null;
    $values = &$this->multi_graph->getValues();
    $datasets = $this->multi_graph->getEnabledDatasets();

    // find the max for each group from the MultiGraph's structured data
    for($i = 0; $i < count($this->groups); ++$i) {
      $start = $this->groups[$i];
      $end = isset($this->groups[$i + 1]) ? $this->groups[$i + 1] - 1 :
        count($this->multi_graph) - 1;

      $stack = [];
      for($j = $start; $j <= $end; ++$j)
        if(in_array($j, $datasets))
          $stack[] = $j;

      list($junk, $group_max) = $values->getMinMaxSumValuesFor($stack);

      if($max === null || $group_max > $max)
        $max = $group_max;
    }
    return $max;
  }

  /**
   * Returns the minimum (stacked) value
   */
  public function getMinValue()
  {
    $min = null;
    $values = &$this->multi_graph->getValues();
    $datasets = $this->multi_graph->getEnabledDatasets();

    // find the min for each group from the MultiGraph's structured data
    for($i = 0; $i < count($this->groups); ++$i) {
      $start = $this->groups[$i];
      $end = isset($this->groups[$i + 1]) ? $this->groups[$i + 1] - 1 :
        count($this->multi_graph) - 1;

      $stack = [];
      for($j = $start; $j <= $end; ++$j)
        if(in_array($j, $datasets))
          $stack[] = $j;

      list($group_min) = $values->getMinMaxSumValuesFor($stack);

      if($min === null || $group_min < $min)
        $min = $group_min;
    }
    return $min;
  }

  /**
   * Returns the order that the bar datasets appear in
   */
  public function getLegendOrder()
  {
    $groups = [];
    foreach($this->dataset_groups as $d => $g)
      $groups[$g][] = $d;

    // order is down stack, then left to right in groups
    $order = [];
    foreach($groups as $g => $d)
      foreach(array_reverse($d) as $e)
        $order[] = $e;
    return $order;
  }
}