ology

unit Shopping;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
  FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.VCLUI.Wait,

ology

# ...

sub clock_it ($self, $device, $dt, $event) {
    return 0 if $self->running;

    $self->running(1);

    $self->rtc->send_it(['start']);

    $self->rtc->loop->add(

ology

program PascalsTriangle;

uses crt;

var
  triangle: array[1..20, 1..20] of integer;
  i, j, n: integer;

begin
  clrscr;

ology

program SortStrings;

uses SysUtils;

var
  unsorted: array of string;
  sorted: array of string;
  i, j: Integer;
  temp: string;

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:

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

    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

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

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_send ($score) {
    $loop->add(
        IO::Async::Timer::Countdown->new(
            delay     => 0,
            on_expire => sub { $score->play }
        )->start
    );
}