LEFT | RIGHT |
(no file at all) | |
1 ;;; define-music-display-methods.scm -- data for displaying music | 1 ;;; define-music-display-methods.scm -- data for displaying music |
2 ;;; expressions using LilyPond notation. | 2 ;;; expressions using LilyPond notation. |
3 ;;; | 3 ;;; |
4 ;;; Copyright (C) 2005--2011 Nicolas Sceaux <nicolas.sceaux@free.fr> | 4 ;;; Copyright (C) 2005--2011 Nicolas Sceaux <nicolas.sceaux@free.fr> |
5 ;;; | 5 ;;; |
6 | 6 |
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
8 ;;; | 8 ;;; |
9 ;;; Display method implementation | 9 ;;; Display method implementation |
10 ;;; | 10 ;;; |
(...skipping 882 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
893 (define-display-method TimeSignatureMusic (expr parser) | 893 (define-display-method TimeSignatureMusic (expr parser) |
894 (let* ((num (ly:music-property expr 'numerator)) | 894 (let* ((num (ly:music-property expr 'numerator)) |
895 (den (ly:music-property expr 'denominator)) | 895 (den (ly:music-property expr 'denominator)) |
896 (structure (ly:music-property expr 'beat-structure))) | 896 (structure (ly:music-property expr 'beat-structure))) |
897 (if (null? structure) | 897 (if (null? structure) |
898 (format #f | 898 (format #f |
899 "\\time ~a/~a~a" | 899 "\\time ~a/~a~a" |
900 num den | 900 num den |
901 (new-line->lily-string)) | 901 (new-line->lily-string)) |
902 (format #f | 902 (format #f |
903 "#(set-time-signature ~a ~a '~a)~a" | 903 "$(set-time-signature ~a ~a '~a)~a" |
904 num den structure | 904 num den structure |
905 (new-line->lily-string))))) | 905 (new-line->lily-string))))) |
906 | 906 |
907 ;;; \melisma and \melismaEnd | 907 ;;; \melisma and \melismaEnd |
908 (define-extra-display-method ContextSpeccedMusic (expr parser) | 908 (define-extra-display-method ContextSpeccedMusic (expr parser) |
909 "If expr is a melisma, return \"\\melisma\", otherwise, return #f." | 909 "If expr is a melisma, return \"\\melisma\", otherwise, return #f." |
910 (with-music-match (expr (music 'ContextSpeccedMusic | 910 (with-music-match (expr (music 'ContextSpeccedMusic |
911 element (music 'PropertySet | 911 element (music 'PropertySet |
912 value #t | 912 value #t |
913 symbol 'melismaBusy))) | 913 symbol 'melismaBusy))) |
(...skipping 233 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1147 (format #f "~a~a \\addlyrics ~a" | 1147 (format #f "~a~a \\addlyrics ~a" |
1148 (music->lily-string ?note-sequence parser) | 1148 (music->lily-string ?note-sequence parser) |
1149 (new-line->lily-string) | 1149 (new-line->lily-string) |
1150 (parameterize ((*explicit-mode* #f)) | 1150 (parameterize ((*explicit-mode* #f)) |
1151 (music->lily-string ?lyric-sequence parser))) | 1151 (music->lily-string ?lyric-sequence parser))) |
1152 #f))) | 1152 #f))) |
1153 | 1153 |
1154 ;; Silence internal event sent at end of each lyrics block | 1154 ;; Silence internal event sent at end of each lyrics block |
1155 (define-display-method CompletizeExtenderEvent (expr parser) | 1155 (define-display-method CompletizeExtenderEvent (expr parser) |
1156 "") | 1156 "") |
LEFT | RIGHT |