base-fibo2

#!/usr/bin/env perl

# https://www.youtube.com/watch?v=azyCk4jWhLg <- Audio rendering

use strict;
use warnings;

use MIDI::Util qw(setup_score);
use Math::BaseConvert;
use Math::Fibonacci 'series';

my $limit  = shift || 16;  # Number of Fibonaccis to use
my @scale  = @ARGV ? @ARGV : qw( C4 Ds4 F4 G4 As4 C5 ); # Notes to choose from
my $modulo = @scale;  # Size of the scale being used
my $notes  = join '|', @scale;  # "OR regular expression" of alternating notes

Math::BaseConvert::dig( \@scale ); # Set the base digits to the scale notes

my @series = series($limit);  # Get the Fibonacci numbers

my $score = setup_score( patch => 42 );

# For each Fibonacci number...
for my $n ( @series ) {
    my $x = cnv( $n, 10, $modulo );  # Base-convert it to a note string
    my @phrase = $x =~ /($notes)/g;  # Separate the note string into an array

    # Output the progress:
    printf "%d => %s (%d)\n", $n, join( ' ', @phrase ), scalar(@phrase);

    for my $i ( @phrase ) {
        $score->n('qn', $i);  # Add each note of the phrase to the MIDI score
    }
}

$score->write_score( $0 . '.mid' );