package Slic3r::GUI::ColorScheme;
use strict;
use warnings;

use Exporter;
our @ISA = 'Exporter';
our @EXPORT = qw(@SELECTED_COLOR @b);

our (@SELECTED_COLOR);

our @COLOR_MAGENTA = [0.82745,0.21176,0.50980]; # This is an array, yes?!
our $COLORMAGENTA  = [0.82745,0.21176,0.50980]; # only for testing

sub getMODColorScheme {
    print "-----> getColorScheme from MODULE\n";
    print "from dollar: @{ $COLORMAGENTA } \n"; #  0.82745 0.21176 0.5098
    print "from at    : @COLOR_MAGENTA \n";     #  ARRAY(0x59d88f8) -> this needs to be 0.82745 0.21176 0.5098
    
    if ($Slic3r::GUI::Settings->{_}{colorschema_solarized}) {
        print "Using S O L A R I Z E  from Slic3r::GUI::ColorScheme\n";
        @SELECTED_COLOR = @COLOR_MAGENTA;
    } else {
        @SELECTED_COLOR = [0,1,0];
    }
}

1;