| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Music/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Music/test |
my $q = Music::Partitur->new();
sub ten {
my $q = shift;
my $text = shift;
return($q->transpose($text));
};
$q->add(<<'TEXT_ENDE');
S: [K:bass] [K:treble] [GGQ:M=1/4] e g h f |
w: Dies ist ein Test.
A: [GGQ:M=1/4] @ten(d e f g) |
w: abc
1,2,3,4,5: "senza sordino" [GGQ:M=1/4] z4 |
-: [GGQ:M=1/4] z4 |
%
%
S: e e f/ g2/ |
A: vla:: y -:: y y :: |
-: |
TEXT_ENDE
$q->voice("Sax","copy:C","transpose:C-D");