Lose author libs

ology · Aug 28, 2024 · e87f8e7 · e87f8e7
1 parent c03cb44
commit e87f8e7
Show file tree

Hide file tree

Showing 77 changed files with 1 addition and 78 deletions.
diff --git a/ai-genetic-pro b/ai-genetic-pro
@@ -6,7 +6,6 @@ use warnings;
 # These pitches are then fed into contrapuntal transformations
 # and the results are appended to this "melody."
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use AI::Genetic::Pro ();
 use Data::Dumper::Compact qw(ddc);

diff --git a/all-modes b/all-modes
@@ -5,7 +5,6 @@ use warnings;
 # Print out each chromatic note and its modes.
 # 12 notes x 7 modes = 84
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(midi_format);
 use Music::Scales qw(get_scale_notes);
 

diff --git a/analyze-low-level b/analyze-low-level
@@ -6,7 +6,6 @@ use GD::Chart::Radial;
 use Math::Utils qw(uniform_01scaling);
 use Mojo::File;
 use Statistics::Basic qw(mean);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(WebService-AcousticBrainz);
 use WebService::AcousticBrainz;
 use WebService::MusicBrainz;
 

diff --git a/analyze-recordings b/analyze-recordings
@@ -9,7 +9,6 @@ use File::Slurper qw(read_lines write_binary);
 use List::Util qw(max);
 use Math::Utils qw(uniform_01scaling);
 use Statistics::Basic qw(mean);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(WebService-AcousticBrainz); # Local author libs
 use WebService::AcousticBrainz;
 use WebService::MusicBrainz;
 

diff --git a/bach-choral-network b/bach-choral-network
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-BachChoralHarmony);
 use Music::BachChoralHarmony;
 use List::Util qw( any );
 use Graph::Easy;

diff --git a/barycenter b/barycenter
@@ -4,7 +4,6 @@ use warnings;
 
 use AI::Genetic;
 use List::Util qw/ uniq /;
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Interval-Barycentric);
 use MIDI::Util qw(setup_score set_chan_patch); # https://metacpan.org/release/MIDI-Util
 use Music::Interval::Barycentric; # https://metacpan.org/release/Music-Interval-Barycentric
 use Music::Chord::Namer 'chordname';

diff --git a/barycenter3 b/barycenter3
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-Duration-Partition Music-Interval-Barycentric Music-ToRoman);
 
 use AI::Genetic;
 use List::Util qw/ uniq /;

diff --git a/barycenter4 b/barycenter4
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Duration-Partition Music-Interval-Barycentric);
 
 use AI::Genetic;
 use List::Util qw/ uniq /;

diff --git a/base-fibo2 b/base-fibo2
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Math::BaseConvert;
 use Math::Fibonacci 'series';

diff --git a/blue-gene b/blue-gene
@@ -4,7 +4,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use List::Util qw(any);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar MIDI-Drummer-Tiny MIDI-Util Music-Duration Music-Duration-Partition);
 use Music::Bassline::Generator;
 use MIDI::Chord::Guitar;
 use MIDI::Drummer::Tiny;

diff --git a/blue-monk b/blue-monk
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Chord-Guitar MIDI-Praxis-Variation MIDI-Drummer-Tiny MIDI-Util Music-Duration);
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;
 use MIDI::Praxis::Variation qw(tie_durations);

diff --git a/blues-progressions b/blues-progressions
@@ -8,7 +8,6 @@ use warnings;
 
 # My write-up is: https://ology.github.io/2022/11/25/twelve-bar-jazz-practice/
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Cadence Music-MelodicDevice-Transposition); # local author libs
 
 use Data::Dumper::Compact qw(ddc);
 use Getopt::Long qw(GetOptions);

diff --git a/buzz b/buzz
@@ -4,7 +4,6 @@ use warnings;
 
 # https://www.youtube.com/watch?v=_WviF3f1VLM
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Chord-Progression Music-Duration-Partition);
 use MIDI::Util qw(setup_score set_chan_patch midi_format);
 use Music::Chord::Progression ();
 use Music::Duration::Partition ();

diff --git a/cadences b/cadences
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-ToRoman);
 use Music::Cadence; # https://metacpan.org/release/Music-Cadence
 use MIDI::Util qw(midi_format setup_score); # https://metacpan.org/release/MIDI-Util
 use Music::Chord::Note;

diff --git a/chord-melody b/chord-melody
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-Chord-Progression Music-Duration-Partition Music-MelodicDevice-Inversion Music-MelodicDevice-Ornamentation Music-ToRoman);
 use MIDI::Util qw(midi_format setup_score set_chan_patch);
 use Music::Cadence ();
 use Music::Chord::Progression ();

diff --git a/chord-mutate b/chord-mutate
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::ScaleNote;
 

diff --git a/chordal b/chordal
@@ -5,7 +5,6 @@ use warnings;
 use v5.24.0;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw(transposition);
 use MIDI::Util qw(set_chan_patch);

diff --git a/collision b/collision
@@ -5,7 +5,6 @@ use warnings;
 # Attempt to simulate a wind-chime
 
 use Collision::2D qw(hash2circle dynamic_collision);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 
 my $max = shift || 32;  # Number of times to detect collisions

diff --git a/coltrane b/coltrane
@@ -7,7 +7,6 @@ use strict;
 use warnings;
 
 use List::SomeUtils qw(first_index);
-#use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration-Partition Music-ScaleNote);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch);
 use Music::Duration::Partition;

diff --git a/coltrane-and-company b/coltrane-and-company
@@ -7,7 +7,6 @@ use strict;
 use warnings;
 
 use List::SomeUtils qw(first_index);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar MIDI-Drummer-Tiny Music-Duration-Partition Music-ScaleNote);
 use Music::Bassline::Generator;
 use MIDI::Chord::Guitar;
 use MIDI::Drummer::Tiny;

diff --git a/combi-duras.pl b/combi-duras.pl
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use Algorithm::Combinatorics qw(variations_with_repetition);
 use Getopt::Long qw(GetOptions);

diff --git a/cryptomorphic b/cryptomorphic
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Prefer my local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny; # https://metacpan.org/pod/MIDI::Drummer::Tiny

diff --git a/dice-game b/dice-game
@@ -13,7 +13,6 @@ use warnings;
 #   $ timidity dice-game.mid
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Cadence Music-ToRoman); # Local author libs
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::Cadence ();
 

diff --git a/drum-circle b/drum-circle
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # For local development:
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration Music-Duration-Partition);
 
 use Data::Dumper::Compact qw(ddc);
 use Getopt::Long qw(GetOptions);

diff --git a/duration-selection b/duration-selection
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(set_chan_patch);
 use Music::Duration::Partition;

diff --git a/euclidean-beats b/euclidean-beats
@@ -7,7 +7,6 @@ use warnings;
 
 use Data::Dumper::Compact qw(ddc);
 use Math::Prime::Util::PrimeIterator ();
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-CreatingRhythms); # local author libs
 use MIDI::Drummer::Tiny ();
 use Music::CreatingRhythms ();
 

diff --git a/event-horizon b/event-horizon
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote);
 use MIDI::Util qw(setup_score set_chan_patch);
 use Music::ScaleNote;
 use Music::Chord::Namer qw/ chordname /;

diff --git a/evolver.pl b/evolver.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use if $ENV{USER} eq 'gene', lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use Algorithm::Combinatorics qw(permutations);
 use Data::Dumper::Compact qw(ddc);

diff --git a/figured-syncopation b/figured-syncopation
@@ -16,7 +16,6 @@ use strict;
 use warnings;
 
 # use my local author libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-CreatingRhythms Music-Duration Music-Duration-Partition);
 
 use Getopt::Long qw(GetOptions);
 use Data::Dumper::Compact qw(ddc);

diff --git a/five-four-durations b/five-four-durations
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation 'diminution';
 use MIDI::Util qw(set_chan_patch);

diff --git a/five-parsecs b/five-parsecs
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util);
 use MIDI::Drummer::Tiny;
 use MIDI::Util qw(setup_score set_chan_patch);
 

diff --git a/follow b/follow
@@ -8,7 +8,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch); # https://metacpan.org/pod/MIDI::Util
 use Music::Scales;
 

diff --git a/fragments b/fragments
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny Music-Duration-Partition MIDI-Util);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny;

diff --git a/fulfilled b/fulfilled
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use Data::Dumper::Compact 'ddc';
 use MIDI::Drummer::Tiny;

diff --git a/game-of-life-cluster b/game-of-life-cluster
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score); # https://metacpan.org/release/MIDI-Util
 
 use Game::Life;

diff --git a/gravity-well b/gravity-well
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 # Prefer my local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Cadence Music-ToRoman);
 
 use MIDI::Util qw(setup_score set_chan_patch);
 use MIDI::Drummer::Tiny;

diff --git a/guidonian b/guidonian
@@ -7,7 +7,6 @@ use warnings;
 use Getopt::Long;
 use Music::Guidonian;
 use Music::Scales qw(get_scale_nums);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score);
 use Mojo::File;
 

diff --git a/in-c b/in-c
@@ -7,7 +7,6 @@ use warnings;
 # Writeup: https://techn.ology.net/terry-rileys-in-c-in-perl/
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch);
 
 my @patches = @ARGV ? @ARGV : qw( 0 8 42 69 );

diff --git a/in-c-randomized b/in-c-randomized
@@ -7,7 +7,6 @@ use warnings;
 # Writeup: https://techn.ology.net/terry-rileys-in-c-in-perl/
 ##
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 use MIDI::Util qw(setup_score set_chan_patch);
 use List::Util qw(shuffle);
 

diff --git a/jingle-bells.pl b/jingle-bells.pl
@@ -5,8 +5,7 @@
 use strict;
 use warnings;
 
-#use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-MelodicDevice-Ornamentation); # local author libraries
-use MIDI::Util qw(setup_score midi_format);
+#use MIDI::Util qw(setup_score midi_format);
 use Music::MelodicDevice::Ornamentation ();
 
 # The number of notes before resetting the note counter

diff --git a/lindenmayer-midi b/lindenmayer-midi
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ScaleNote); # local author libraries
 
 use Getopt::Long qw(GetOptions);
 use MIDI::Util qw(setup_score set_chan_patch);

diff --git a/micro-themed b/micro-themed
@@ -5,7 +5,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition Music-MelodicDevice-Inversion Music-MelodicDevice-Transposition);
 use Data::Dumper::Compact qw(ddc);
 use MIDI::Util qw(setup_score set_chan_patch midi_format);
 use Music::MelodicDevice::Inversion ();

diff --git a/modal-chords b/modal-chords
@@ -5,7 +5,6 @@ use warnings;
 # Play the chords of the given scale mode.
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-ToRoman);
 use MIDI::Util qw(setup_score midi_format);
 use Music::Chord::Note ();
 use Music::Scales qw(get_scale_notes);

diff --git a/mode-pivot b/mode-pivot
@@ -3,7 +3,6 @@ use strict;
 use warnings;
 
 use Data::Dumper::Compact qw(ddc);
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util Music-Chord-Progression Music-ModalFunction);
 use MIDI::Util qw(setup_score midi_format);
 use Music::Chord::Progression ();
 use Music::ModalFunction ();

diff --git a/mohawk b/mohawk
@@ -6,7 +6,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(Music-Bassline-Generator MIDI-Chord-Guitar Music-Duration MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util); # local author libs
 use Music::Bassline::Generator;
 use MIDI::Drummer::Tiny;
 use MIDI::Chord::Guitar;

diff --git a/oddness b/oddness
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Util Music-Duration-Partition);
 
 use List::Util qw/ shuffle /;
 use MIDI::Drummer::Tiny;

diff --git a/oeis-midi b/oeis-midi
@@ -13,7 +13,6 @@ use strict;
 use warnings;
 
 # Use local libraries
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Util);
 
 use MIDI::Util qw(setup_score);
 use Music::Scales qw(get_scale_MIDI);

diff --git a/phrase-context b/phrase-context
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw/diminution transposition/;
 use MIDI::Util qw(set_chan_patch);

diff --git a/polygenic b/polygenic
@@ -5,7 +5,6 @@ use warnings;
 use v5.24.0;
 
 use Data::Dumper::Compact 'ddc';
-use if $ENV{USER} eq "gene", lib => map { "$ENV{HOME}/sandbox/$_/lib" } qw(MIDI-Drummer-Tiny MIDI-Praxis-Variation MIDI-Util Music-Duration-Partition);
 use MIDI::Drummer::Tiny;
 use MIDI::Praxis::Variation qw(diminution);
 use MIDI::Util qw(set_chan_patch);