X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-name.scm;h=7c3822304af473f2a907a12bae4d89bf4ac36a55;hb=b7a0cffbf9d1069860368f289a5b50e9d1d90ba8;hp=c941d50bda8d2acd3cf032ad397c8d728c441c6a;hpb=278b8a09987a041907f1393127b61056a2a69572;p=lilypond.git diff --git a/scm/chord-name.scm b/scm/chord-name.scm index c941d50bda..7c3822304a 100644 --- a/scm/chord-name.scm +++ b/scm/chord-name.scm @@ -1,9 +1,20 @@ -;;;; chord-name.scm -- chord name utility functions +;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; source file of the GNU LilyPond music typesetter -;;;; -;;;; (c) 2000--2006 Jan Nieuwenhuizen +;;;; Copyright (C) 2000--2009 Jan Nieuwenhuizen ;;;; Han-Wen Nienhuys +;;;; +;;;; LilyPond is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation, either version 3 of the License, or +;;;; (at your option) any later version. +;;;; +;;;; LilyPond is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with LilyPond. If not, see . (define (natural-chord-alteration p) "Return the natural alteration for step P." @@ -15,6 +26,7 @@ ;; TODO: make into markup. ;; (define-public (alteration->text-accidental-markup alteration) + (make-smaller-markup (make-raise-markup (if (= alteration FLAT)