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) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
(...skipping 714 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
725 (if #f | 725 (if #f |
726 (begin | 726 (begin |
727 (display voice-state-vec1) | 727 (display voice-state-vec1) |
728 (display "***\n") | 728 (display "***\n") |
729 (display voice-state-vec2) | 729 (display voice-state-vec2) |
730 (display "***\n") | 730 (display "***\n") |
731 (display result) | 731 (display result) |
732 (display "***\n"))) | 732 (display "***\n"))) |
733 | 733 |
734 ;; Extract all forced combine strategies, i.e. events inserted by | 734 ;; Extract all forced combine strategies, i.e. events inserted by |
735 ;; \partcombine(Apart|Automatic|SoloI|SoloII|Chords)[Once] | 735 ;; \partCombine(Apart|Automatic|SoloI|SoloII|Chords)[Once] |
736 ;; They will in the end override the automaically determined ones. | 736 ;; They will in the end override the automaically determined ones. |
737 ;; Initial state for both voices is no override | 737 ;; Initial state for both voices is no override |
738 (analyse-forced-combine 0 #f) | 738 (analyse-forced-combine 0 #f) |
739 ;; Now go through all time steps in a loop and find a combination strategy | 739 ;; Now go through all time steps in a loop and find a combination strategy |
740 ;; based only on the events of that one moment (i.e. neglecting longer | 740 ;; based only on the events of that one moment (i.e. neglecting longer |
741 ;; periods of solo/apart, etc.) | 741 ;; periods of solo/apart, etc.) |
742 (analyse-time-step 0) | 742 (analyse-time-step 0) |
743 ;; (display result) | 743 ;; (display result) |
744 ;; Check for unisono or unisilence moments | 744 ;; Check for unisono or unisilence moments |
745 (analyse-a2 0) | 745 (analyse-a2 0) |
(...skipping 176 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
922 ;; if voice has contents, use them, otherwise check next ctx | 922 ;; if voice has contents, use them, otherwise check next ctx |
923 (cond ((null? current-tail) #f) | 923 (cond ((null? current-tail) #f) |
924 ((and (pair? (car current-tail)) | 924 ((and (pair? (car current-tail)) |
925 (pair? (cdar current-tail))) | 925 (pair? (cdar current-tail))) |
926 (set! quote-contents (cdar current-tail))) | 926 (set! quote-contents (cdar current-tail))) |
927 (else (find-non-empty (cdr current-tail)))))) | 927 (else (find-non-empty (cdr current-tail)))))) |
928 | 928 |
929 (if (not (null? quote-contents)) | 929 (if (not (null? quote-contents)) |
930 (hash-set! tab name (list->vector (reverse! quote-contents '()))) | 930 (hash-set! tab name (list->vector (reverse! quote-contents '()))) |
931 (ly:music-warning mus (ly:format (_ "quoted music `~a' is empty") name))
))) | 931 (ly:music-warning mus (ly:format (_ "quoted music `~a' is empty") name))
))) |
OLD | NEW |