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

NAME

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

VERSION

version 0.0604

SYNOPSIS

use Music::Percussion::Tabla ();

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

for (1 .. $t->bars) {
  $t->strike('ta', $t->eighth);
  $t->strike('ta', $t->eighth);
  $t->strike('dha');
  $t->strike('ge');
  $t->rest($t->quarter);
}

$t->teentaal($t->eighth)  for 1 .. $t->bars;
$t->keherawa($t->eighth)  for 1 .. $t->bars;
$t->jhaptaal($t->eighth)  for 1 .. $t->bars;
$t->dadra($t->eighth)     for 1 .. $t->bars;
$t->rupaktaal($t->eighth) for 1 .. $t->bars;

$t->play_with_timidity;
# OR:
$t->write; # save the score as a MIDI file
$t->timidity_cfg('/Users/you/timidity.cfg');
# then run timidity with that config and 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 Description
...
 1  60  ringing mid
 2  61  muted low
 3  62  slap
 4  63  ringing mid slap
 5  64  low knock
 6  65  muted ringing low
 7  66  lower
 8  67  low-up
 9  68  muted slap
10  69  ringing low
11  70  flam slap
12  71  loud tap
13  72  lowest mute
14  73  ringing low
15  74  muted low
16  75  loud tap double
17  76  high-low
18  77  high slap
19  78  tap
20  79  high knock
21  80  short low-up
22  81  mid tap
23  82  muted tap
24  83  mid
25  84  muted
26  85  loud mid double
27  86  slightly more muted
28  87  low mid
29  88  ringing mid
...

To play patches by number (e.g. for unknown bols), do this to add the 84th MIDInum entry score:

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

To play patches simultaneously, that would be:

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

ATTRIBUTES

soundfont

$soundfont = $tabla->soundfont;

The file location, where the tabla soundfont resides.

Default: dist_dir()/Tabla.sf2

patches

$patches = $tabla->patches;

Each bol can be 1 or more patch numbers.

Default single strike bol patches:

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

Default double strike bols:

dha:  ge ta
dhin: ge tin
dhit: ge ti
dhun: ge tun

METHODS

new

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

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

strike

$tabla->strike($bol);
$tabla->strike($bol, $duration);

This method handles two types of strikes: single and double.

A named bol can have one or more patches associated with it. For single strikes, the method will play one of the bol patches at random.

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

(If specific patches are desired, use the note method, as shown above.)

1. Single strike bols:

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

2. Double strike bols:

dha, dhin, dhit, dhun

For a double strike, play both the baya and daya drums for the given bol and duration.

Each of the individual bol patches, comprising the double-strike, are chosen at random, as with the single-strike.

thekas

Traditional "groove patterns":

teentaal([$duration])
keherawa([$duration])
jhaptaal([$duration])
dadra([$duration])
rupaktaal([$duration])

SEE ALSO

The t/01-methods.t and eg/* programs in this distribution.

Moo

File::ShareDir

List::Util

https://gleitz.github.io/midi-js-soundfonts/Tabla/Tabla.sf2 (4.1MB)

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.boggs@gmail.com>

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)