use strict;
use warnings;

use Acme::Noisemaker qw| :all |;

my %args = (
  len => 128,
);

for my $type ( qw| white square gel sgel pgel rgel stars | ) {
  make(type => $type, %args);
}

for my $type ( qw| perlin ridged block | ) {
  for my $stype ( qw| white square gel sgel stars | ) {
    make(type => $type, stype => $stype, %args);
  }
}

my @types = @Acme::Noisemaker::NOISE_TYPES;

for my $lbase ( @types ) {
  next if $lbase eq 'complex';

  for my $ltype ( @types ) {
    next if $ltype eq 'complex';

    for my $stype ( qw| white square gel sgel stars | ) {
      make(
        type => 'complex',
        lbase => $lbase,
        ltype => $ltype,
        stype => $stype,
        %args
      );
    }
  }
}

