/ 
Music-Percussion-Tabla-0.0301
River stage zero No dependents
/ Music::Percussion::Tabla

NAME

Music::Percussion::Tabla - Play the tabla!

VERSION

version 0.0301

SYNOPSIS

use Music::Percussion::Tabla ();

my $t = Music::Percussion::Tabla->new;

$t->timidity_cfg('/tmp/timidity.cfg'); # optional

say $t->soundfont;

for my $i (1 .. 3) {
  $t->ta($t->eighth);
  $t->ta($t->eighth);
  $t->tun;
  $t->ge;
  $t->rest($t->quarter);
}

$t->play_with_timidity;
# OR:
$t->write; # save the score as a MIDI file

DESCRIPTION

Music::Percussion::Tabla provides named associations between tabla drum sounds and the included soundfont file (which is 4.1MB).

Here are my "non-tabla player" descriptions of the sounds:

 # MIDI Bol  - Description
...
 1 60   tin  - ringing mid
 2 61   ti   - muted low
 3 62   ?    - slap
 4 63   tin  - ringing mid slap
 5 64   ke   - low knock
 6 65   ge   - muted ringing low
 7 66   ge   - lower
 8 67   dhun - low-up
 9 68   ti   - muted slap
10 69   ?    - ringing low
11 70   ti   - flam slap
12 71   ta   - loud tap
13 72   ti   - lowest mute
14 73   tun  - ringing low
15 74   ?    - muted low
16 75   ta   - loud tap double
17 76   ge   - high-low
18 77   ke   - high slap
19 78   na   - tap
20 79   ?    - high knock
21 80   dhun - short low-up
22 81   na   - mid tap
23 82   ti   - muted tap
24 83   tin  - mid
25 84   ?    - muted
26 85   ta   - loud mid double
27 86   ti   - slightly more muted
28 87   tin  - low mid
29 88   ta   - ringing mid
...

To play patches by number, do this to add to the 84th MIDInum entry score:

$tabla->note($tabla->eighth, 84);

To play patches simultaneously, that would be:

$tabla->note($tabla->eighth, 79, 84);

ATTRIBUTES

soundfont

$soundfont = $tabla->soundfont;

The file location, where the tabla soundfont resides.

Default: dist_dir()/Tabla.sf2

METHODS

new

$tabla = Music::Percussion::Tabla->new(%args);

Create a new Music::Percussion::Tabla object. This uses the constructor attributes of MIDI::Drummer::Tiny.

dhun, ge, ke, na, ta, ti, tin, tun

$tabla->dhun; # & etc methods
$tabla->dhun($duration);
$tabla->dhun($duration, $index);

Where the duration is a note length like $tabla->eighth (or 'en' in MIDI-Perl notation).

Each bol can be 1 or more patch numbers. For bols with more than one patch possibility, calling that method with either no index or an index of -1 will play one of the patches at random. You can of course, also call the method with a known patch index to get only that patch.

Default patches:

dhun: 67 80
ge:   65 66 76
ke:   64 77 79
na:   78 81
ta:   71 75 85 88
ti:   61 68 70 72 82 86
tin:  60 63 83 87
tun:  73

SEE ALSO

Moo

File::ShareDir

https://gleitz.github.io/midi-js-soundfonts/Tabla/Tabla.sf2

https://www.wikihow.com/Play-Tabla

https://www.taalgyan.com/theory/basic-bols-on-tabla/

https://kksongs.org/tabla/chapter02.html & https://kksongs.org/tabla/chapter03.html

AUTHOR

Gene Boggs <gene@cpan.org>

COPYRIGHT AND LICENSE

This software is Copyright (c) 2023-2025 by Gene Boggs.

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)