| Current Path : /var/www/web-klick.de/dsh/90_akt/jazzmesse/ |
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/90_akt/jazzmesse/kkk.part |
@INC = ("/xxusr/local/bin/appserv","/akt/appserv",@main::INC);
eval("use Music::Partitur"); print $@;
my $par = Music::Partitur->fehler(shift,"jazzmesse");
#********************************************************************
# --- KYRIE
my $kyrie = Music::Partitur->new();
$kyrie->add(<<'TEXT_ENDE',1);
MACRO tm x;y;z;w
x// y7/ w3
ORCAM
S: [K:treble] [K:Cm] [GGM:4/4] [TQ:D.E-^C] C [TP:D.C] D E [TQ:xxx] F G A B c | &tm(a;b;c;d) |
A: [K:C] [TP:C.^C-C] C D E | F F [TP:xxx] |
TEXT_ENDE
my ($r,$r1) = $kyrie->extract("A",1,2);
print join(" ",@$r) . "\n" . $r1 . "\n";
#print $kyrie->transpose_source("S","kkk.part");
#print $kyrie->transpose_zeile(<<'TEXT_ENDE',"C.^C.C.C") . "\n";
# C D E | F F |
#TEXT_ENDE