package BD2;

use warnings;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use GD::Graph::bars;
require Exporter;

@ISA = qw(Exporter);
@EXPORT=qw(generate);
@EXPORT_OK = qw();
$VERSION = '1.00';

sub new
{
  #"ObjektName" übernehemen
  my $proto = shift;
  my $class = $proto;

  # Übergebene Argumente
  # hier nicht in Gebrauch
  my %args = @_;

  # Speicher für Variablen
  my $self  = {};

  # Objekt anmelden
  bless ($self, $class);

  ###### Art des Graphen #####
  $self->{graph} = new GD::Graph::bars(400, 400);
  
  ###### Attribute des Graphen #####
  $self->{graph}->set(
    x_label => 'Gel-Nr.',
    y_label => 'Intensität',
    title => 'Dot-Analyse',
    y_max_value => 16,
    y_tick_number => 8,
    y_label_skip => 2,
    bar_spacing => 1
  );

  ###### Datensatz ####
  $self->{data}=[];

  # Objekt zurückliefern
  return $self;
}

###### Werte ######
sub generate
{
  # $self ist der Variablenspeicher
  my ($self,@werte)=@_;
  for my $i (0..5)
  {
    $$self->{data}[0][$i]=$werte[0][$i];
    $$self->{data}[1][$i]=$werte[1][$i+6];
    $$self->{data}[2][$i]=$werte[2][$i+12];
  }
  return $self->{graph}->plot($self->{data})->png();
}

1;