X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-entry.scm;h=06cc077ce4a1395e206f664c3d3406ea48d9f94e;hb=ec241bf612276d397b8874d7abab1b8ef8fea705;hp=c1238b78da80f771fd78a38041326c5948f92c2f;hpb=eebafce7c459edf00becf210acc06ce36eb80462;p=lilypond.git diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm index c1238b78da..06cc077ce4 100644 --- a/scm/chord-entry.scm +++ b/scm/chord-entry.scm @@ -16,13 +16,12 @@ ;;;; along with LilyPond. If not, see . (define-public (construct-chord-elements root duration modifications) - " Build a chord on root using modifiers in MODIFICATIONS. NoteEvents -have duration DURATION. + "Build a chord on root using modifiers in @var{modifications}. +@code{NoteEvents} have duration @var{duration}. -Notes: natural 11 is left from chord if not explicitly specified. +Notes: Natural 11 is left from chord if not explicitly specified. -Entry point for the parser. -" +Entry point for the parser." (let* ((flat-mods (flatten-list modifications)) (base-chord (stack-thirds (ly:make-pitch 0 4 0) the-canonical-chord)) (complete-chord '())