| OLD | NEW |
|---|
| 1 %%%% -*- Mode: Scheme -*- | 1 %%%% -*- Mode: Scheme -*- |
| 2 | 2 |
| 3 %%%% This file is part of LilyPond, the GNU music typesetter. | 3 %%%% This file is part of LilyPond, the GNU music typesetter. |
| 4 %%%% | 4 %%%% |
| 5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
| 6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> | 6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> |
| 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 49 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 60 afterGrace = | 60 afterGrace = |
| 61 #(define-music-function (fraction main grace) ((fraction?) ly:music? ly:music?) | 61 #(define-music-function (fraction main grace) ((fraction?) ly:music? ly:music?) |
| 62 (_i "Create @var{grace} note(s) after a @var{main} music expression. | 62 (_i "Create @var{grace} note(s) after a @var{main} music expression. |
| 63 | 63 |
| 64 The musical position of the grace expression is after a | 64 The musical position of the grace expression is after a |
| 65 given fraction of the main note's duration has passed. If | 65 given fraction of the main note's duration has passed. If |
| 66 @var{fraction} is not specified as first argument, it is taken from | 66 @var{fraction} is not specified as first argument, it is taken from |
| 67 @code{afterGraceFraction} which has a default value of @code{3/4}.") | 67 @code{afterGraceFraction} which has a default value of @code{3/4}.") |
| 68 (let ((main-length (ly:music-length main)) | 68 (let ((main-length (ly:music-length main)) |
| 69 (fraction (or fraction (ly:parser-lookup 'afterGraceFraction)))) | 69 (fraction (or fraction (ly:parser-lookup 'afterGraceFraction)))) |
| 70 (make-simultaneous-music | 70 (descend-to-context |
| 71 (list | 71 (make-simultaneous-music |
| 72 main | 72 (list |
| 73 (make-sequential-music | 73 main |
| 74 (list | 74 (make-sequential-music |
| 75 | 75 (list |
| 76 (make-music 'SkipMusic | 76 (make-music 'SkipMusic |
| 77 'duration (ly:make-duration | 77 'duration (ly:make-duration |
| 78 0 0 | 78 0 0 |
| 79 (* (ly:moment-main main-length) | 79 (* (ly:moment-main main-length) |
| 80 (/ (car fraction) (cdr fraction))))) | 80 (/ (car fraction) (cdr fraction))))) |
| 81 (make-music 'GraceMusic | 81 (make-music 'GraceMusic |
| 82 'element grace))))))) | 82 'element grace))))) |
| 83 'Bottom))) |
| 83 | 84 |
| 84 | 85 |
| 85 %% music identifiers not allowed at top-level, | 86 %% music identifiers not allowed at top-level, |
| 86 %% so this is a music-function instead. | 87 %% so this is a music-function instead. |
| 87 allowPageTurn = | 88 allowPageTurn = |
| 88 #(define-music-function () () | 89 #(define-music-function () () |
| 89 (_i "Allow a page turn. May be used at toplevel (ie between scores or | 90 (_i "Allow a page turn. May be used at toplevel (ie between scores or |
| 90 markups), or inside a score.") | 91 markups), or inside a score.") |
| 91 (make-music 'EventChord | 92 (make-music 'EventChord |
| 92 'page-marker #t | 93 'page-marker #t |
| (...skipping 1907 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 2000 Use this if you want to have a scheme expression evaluated | 2001 Use this if you want to have a scheme expression evaluated |
| 2001 because of its side-effects, but its value ignored.")) | 2002 because of its side-effects, but its value ignored.")) |
| 2002 | 2003 |
| 2003 withMusicProperty = | 2004 withMusicProperty = |
| 2004 #(define-music-function (sym val music) | 2005 #(define-music-function (sym val music) |
| 2005 (symbol? scheme? ly:music?) | 2006 (symbol? scheme? ly:music?) |
| 2006 (_i "Set @var{sym} to @var{val} in @var{music}.") | 2007 (_i "Set @var{sym} to @var{val} in @var{music}.") |
| 2007 | 2008 |
| 2008 (set! (ly:music-property music sym) val) | 2009 (set! (ly:music-property music sym) val) |
| 2009 music) | 2010 music) |
| OLD | NEW |
|---|
