ology

Tick 0
Tick 1
Can't use an undefined value as a subroutine reference at /Users/gene/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/IO/Async/Channel.pm line 533.
	(in cleanup) Can't call method "ok" on an undefined value at /Users/gene/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/MIDI/RtMidi/FFI/Device.pm line 203 during global destruction.

shell returned 255

ology

# ...

sub score_send ($score) {
    $loop->add(
        IO::Async::Timer::Countdown->new(
            delay     => 0,
            on_expire => sub { $score->play }
        )->start
    );
}

ology

gene@zappa:~/sandbox/Music master> PERL_FUTURE_DEBUG=1 perl rtmidi-callback.pl
Future::IO::_DefaultImpl::F=HASH(0x14db18dd8) was constructed at rtmidi-callback.pl line 349 and was lost near /Users/gene/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/IO/Async/Internals/TimeQueue.pm line 157 before it was ready.

ology

sub score ($dt, $event) {
    my ($ev, $chan, $note, $vel) = $event->@*;
    if ($ev eq 'control_change' && $note == 26 && $vel == 127) { # record
        $recording = 1;
        log_it(recording => 'on');
    }
    elsif ($ev eq 'control_change' && $note == 25 && $vel == 127) { # play
        log_it(playing => 'on');
        if (!$playing && @$events) {
warn __PACKAGE__,' L',__LINE__,' ',,"HELLO?\n";

ology

    elsif ($ev eq 'control_change' && $note == 25 && $vel == 127) { # play
        log_it(recording => 'off');
        $recording = 0;
        if (!$playing && @$events) {
            log_it(playing => 'on');
            $playing = 1;
            my $part = sub {
                my (%args) = @_;
                my $t = $args{bpm} / 60; # beats per second
                for my $i (0 .. $args{events}->$#*) {

ology

#!/usr/bin/env perl

# fluidsynth -a coreaudio -m coremidi -g 2.0 ~/Music/FluidR3_GM.sf2
# PERL_FUTURE_DEBUG=1 perl rtmidi-dual.pl

use v5.36;

use MIDI::RtController ();

my $input_name_1 = shift || 'joystick'; # midi controller device

ology

C:\Users\diamo\Documents\Music-Code>perl list_devices.pl
Use of uninitialized value $path in -d at C:/Strawberry/perl/vendor/lib/FFI/CheckLib.pm line 252.

MidiInWinMM::initialize: no MIDI input devices currently available.


MidiInWinMM::initialize: no MIDI input devices currently available.

Input devices: