Your first Perl script

[oldtechaa]

This is the original script. I'm sorry you may not be able to hear the output of sound-related scripts, but this one isn't very pleasant anyway.

Code: Select all

use strict;
use warnings;
use MIDI;

#foreach (@MIDI::Event::All_events) {
#	print "$_\n";
#}

my $organ_track = MIDI::Track->new();
$organ_track->events(
	['patch_change',    0, 0,  19],
	['patch_change',    0, 1, 124],
	[     'note_on',    0, 0,  50, 64],
	[     'note_on',    0, 1,  50, 96],
	[    'note_off',   96, 0,  50, 64],
	[     'note_on',   96, 0,  49, 64],
	[    'note_off',   96, 1,  50, 96],
	[     'note_on',   96, 1,  49, 90],
	[    'note_off',  192, 0,  48, 64],
	[     'note_on',  192, 0,  49, 64],
	[    'note_off',  192, 1,  48, 90],
	[     'note_on',  192, 1,  49, 90],
	[    'note_off',  288, 0,  48, 64],
	[     'note_on',  288, 0,  49, 64],
	[    'note_off',  288, 1,  48, 90],
	[     'note_on',  288, 1,  49, 90],
	[    'note_off',  384, 0,  48, 64],
	[     'note_on',  384, 0,  49, 64],
	[    'note_off',  384, 1,  48, 90],
	[     'note_on',  384, 1,  49, 90],
	[    'note_off',  480, 0,  48, 64],
	[     'note_on',  480, 0,  49, 64],
	[    'note_off',  480, 1,  48, 90],
	[     'note_on',  480, 1,  49, 90],
	[    'note_off',  576, 0,  48, 64],
	[     'note_on',  576, 0,  49, 64],
	[    'note_off',  576, 1,  48, 90],
	[     'note_on',  576, 1,  49, 90],
	[    'note_off',  672, 0,  48, 64],
	[     'note_on',  672, 0,  49, 64],
	[    'note_off',  672, 1,  48, 90],
	[     'note_on',  672, 1,  49, 90],
	[    'note_off',  768, 0,  48, 64],
	[     'note_on',  768, 0,  49, 64],
	[    'note_off',  768, 1,  48, 90],
	[     'note_on',  768, 1,  49, 90],
	[    'note_off',  864, 0,  48, 64],
	[     'note_on',  864, 0,  49, 64],
	[    'note_off',  864, 1,  48, 90],
	[     'note_on',  864, 1,  49, 90],
	[    'note_off',  960, 0,  48, 64],
	[     'note_on',  960, 0,  49, 64],
	[    'note_off',  960, 1,  48, 90],
	[     'note_on',  960, 1,  49, 90],
	[    'note_off', 1056, 0,  48, 64],
	[    'note_off', 1056, 1,  48, 90]
);

my $opus = MIDI::Opus->new();
$opus->format(0);
$opus->ticks(1056);
$opus->tracks($organ_track);

# {'format' => 0, 'ticks' => 100, 'tracks' => [$organ_track]});

$opus->write_to_file("test.mid");

And this is the start of my MIDI sequencer software; pretty much the same thing, just made nicer. (This code is released under the Perl license. Just had to throw that in there for if/when I release it.)

Code: Select all

#!/usr/bin/perl

# I don't know if this is a legally binding copyright, but
# Copyright 2016 oldtechaa (Easily found on the Internet.)
# This software is redistributable as long as it is not modified for inclusion or copied verbatim into non-free software as defined by the FSF and DFSG.

use strict;
use warnings;

use MIDI;

# writes the MIDI output to a file based on the list of events and the filename
sub midiWrite {
	my $midiEventsRef = shift;
	my $midiTicks = shift;
	my $midiFile = shift;
	
	my $midiTrack = MIDI::Track->new({'events' => $midiEventsRef});
	my $midiPiece = MIDI::Opus->new({'format' => 0, 'ticks' => $midiTicks, 'tracks' => [$midiTrack]});
	$midiPiece->write_to_file($midiFile);
};

my $events = [
	['patch_change',    0, 0,  19],
	['patch_change',    0, 1, 124],
	[     'note_on',    0, 0,  50, 64],
	[     'note_on',    0, 1,  50, 96],
	[    'note_off',   96, 0,  50, 64],
	[     'note_on',   96, 0,  49, 64],
	[    'note_off',   96, 1,  50, 96],
	[     'note_on',   96, 1,  49, 90],
	[    'note_off',  192, 0,  48, 64],
	[     'note_on',  192, 0,  49, 64],
	[    'note_off',  192, 1,  48, 90],
	[     'note_on',  192, 1,  49, 90],
	[    'note_off',  288, 0,  48, 64],
	[     'note_on',  288, 0,  49, 64],
	[    'note_off',  288, 1,  48, 90],
	[     'note_on',  288, 1,  49, 90],
	[    'note_off',  384, 0,  48, 64],
	[     'note_on',  384, 0,  49, 64],
	[    'note_off',  384, 1,  48, 90],
	[     'note_on',  384, 1,  49, 90],
	[    'note_off',  480, 0,  48, 64],
	[     'note_on',  480, 0,  49, 64],
	[    'note_off',  480, 1,  48, 90],
	[     'note_on',  480, 1,  49, 90],
	[    'note_off',  576, 0,  48, 64],
	[     'note_on',  576, 0,  49, 64],
	[    'note_off',  576, 1,  48, 90],
	[     'note_on',  576, 1,  49, 90],
	[    'note_off',  672, 0,  48, 64],
	[     'note_on',  672, 0,  49, 64],
	[    'note_off',  672, 1,  48, 90],
	[     'note_on',  672, 1,  49, 90],
	[    'note_off',  768, 0,  48, 64],
	[     'note_on',  768, 0,  49, 64],
	[    'note_off',  768, 1,  48, 90],
	[     'note_on',  768, 1,  49, 90],
	[    'note_off',  864, 0,  48, 64],
	[     'note_on',  864, 0,  49, 64],
	[    'note_off',  864, 1,  48, 90],
	[     'note_on',  864, 1,  49, 90],
	[    'note_off',  960, 0,  48, 64],
	[     'note_on',  960, 0,  49, 64],
	[    'note_off',  960, 1,  48, 90],
	[     'note_on',  960, 1,  49, 90],
	[    'note_off', 1056, 0,  48, 64],
	[    'note_off', 1056, 1,  48, 90]
];

midiWrite($events, 1056,"Milestone1Test.mid");

Both of these will require the installation of libmidi-perl.

Edit: I changed the license. I still have to decide on the eventual license for the software, so I changed this second script to redistributable for use in free software as defined by either the FSF or DFSG.

[GarryRicketson]

Thanks for sharing these, they seem to work ok, my kid confirmed , on the sound,
but he said it was "chido" (cool) .

[oldtechaa]

The link in my signature is the Git repository for my MIDI sequencer, if you ever want to keep up with it and see how my learning is progressing.

[GarryRicketson]

Ok, thanks, I had noticed that,thanks.