Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (16 sloc) 0.503 kB
use v6;
use ABC::Pitched;
class ABC::GraceNotes does ABC::Pitched {
has $.acciaccatura;
has @.notes;
method new($acciaccatura, @notes) {
die "GraceNotes must have at least one note" if +@notes == 0;
self.bless(:$acciaccatura, :@notes);
}
method Str() {
'{' ~ ($.acciaccatura ?? '/' !! '') ~ @.notes.join('') ~ '}';
}
method transpose($pitch-changer) {
ABC::GraceNotes.new($.acciaccatura, @.notes>>.transpose($pitch-changer));
}
}
Jump to Line
Something went wrong with that request. Please try again.