15 my (@arg) = split /\s+/, $_;
20 elsif($arg[0] eq 'bpm')
24 elsif($arg[0] eq 'pattern')
28 elsif($arg[0] eq 'range')
30 my ($begin, $end) = ($arg[1], $arg[2]);
31 my $n = $end - $begin;
34 my $char = substr $pattern, ($_ % length $pattern), 1;
35 push @script, [$char, $time, 1], [$char, $time + $dt * (1 - $staccato), 0]
42 for(sort { $a->[0] cmp $b->[0] or $a->[1] <=> $b->[1] } @script)
44 printf "%s %f %d\n", @$_;
50 pattern aaa_____aaa_____
52 pattern aaa_b__caaa_bccc
54 pattern aaa_b__caaa_b__c
56 pattern aaa_b__caaa_b_bb
58 pattern abc_c_c_c_c_c_c_
60 pattern aaa_b__caaa_bccc
62 pattern aaa_b__caaa_b__c
64 pattern aaa_b__caaa_b_bb
66 pattern aaa_b__caaa_b__c
68 pattern aaa_b__caaa_b_bb
70 pattern aaa_b__caaa_b__c
72 pattern aaa_b__caaa_b_bb
74 pattern aaa_b__caaa_b__c
76 pattern a_______________