OLD | NEW |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 1998--2014 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--2014 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> | 4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> |
5 ;;;; Neil Puttock <n.puttock@gmail.com> | 5 ;;;; Neil Puttock <n.puttock@gmail.com> |
6 ;;;; Carl Sorensen <c_sorensen@byu.edu> | 6 ;;;; Carl Sorensen <c_sorensen@byu.edu> |
7 ;;;; | 7 ;;;; |
8 ;;;; LilyPond is free software: you can redistribute it and/or modify | 8 ;;;; LilyPond is free software: you can redistribute it and/or modify |
9 ;;;; it under the terms of the GNU General Public License as published by | 9 ;;;; it under the terms of the GNU General Public License as published by |
10 ;;;; the Free Software Foundation, either version 3 of the License, or | 10 ;;;; the Free Software Foundation, either version 3 of the License, or |
(...skipping 108 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
119 context 'timeSignatureFraction fraction) | 119 context 'timeSignatureFraction fraction) |
120 (ly:context-set-property! | 120 (ly:context-set-property! |
121 context 'baseMoment (ly:make-moment my-base-length)) | 121 context 'baseMoment (ly:make-moment my-base-length)) |
122 (ly:context-set-property! | 122 (ly:context-set-property! |
123 context 'beatStructure my-beat-structure) | 123 context 'beatStructure my-beat-structure) |
124 (ly:context-set-property! | 124 (ly:context-set-property! |
125 context 'beamExceptions beaming-exception) | 125 context 'beamExceptions beaming-exception) |
126 (ly:context-set-property! | 126 (ly:context-set-property! |
127 context 'measureLength new-measure-length)))) | 127 context 'measureLength new-measure-length)))) |
128 'Timing) | 128 'Timing) |
129 'Score)))) | 129 'Score) |
| 130 (make-music 'TimeSignatureEvent music)))) |
OLD | NEW |