LEFT | RIGHT |
(no file at all) | |
1 #(set-global-staff-size 16) | 1 #(set-global-staff-size 16) |
2 | 2 |
3 #(begin | 3 #(begin |
4 | 4 |
5 ;; some helper functions | 5 ;; some helper functions |
6 | 6 |
7 (use-modules (ice-9 regex)) | 7 (use-modules (ice-9 regex)) |
8 | 8 |
9 (define glyph-list | 9 (define glyph-list |
10 (delete ".notdef" | 10 (delete ".notdef" |
(...skipping 58 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
69 (define timesig (get-group glyph-list "^timesig\\.")) | 69 (define timesig (get-group glyph-list "^timesig\\.")) |
70 (define accidentals (get-group glyph-list "^accidentals\\.")) | 70 (define accidentals (get-group glyph-list "^accidentals\\.")) |
71 (define rests (get-group glyph-list "^rests\\.")) | 71 (define rests (get-group glyph-list "^rests\\.")) |
72 (define flags (get-group glyph-list "^flags\\.")) | 72 (define flags (get-group glyph-list "^flags\\.")) |
73 (define dots (get-group glyph-list "^dots\\.")) | 73 (define dots (get-group glyph-list "^dots\\.")) |
74 (define scripts (get-group glyph-list "^scripts\\.")) | 74 (define scripts (get-group glyph-list "^scripts\\.")) |
75 (define arrowheads (get-group glyph-list "^arrowheads\\.")) | 75 (define arrowheads (get-group glyph-list "^arrowheads\\.")) |
76 (define brackettips (get-group glyph-list "^brackettips\\.")) | 76 (define brackettips (get-group glyph-list "^brackettips\\.")) |
77 (define pedal (get-group glyph-list "^pedal\\.")) | 77 (define pedal (get-group glyph-list "^pedal\\.")) |
78 (define accordion (get-group glyph-list "^accordion\\.")) | 78 (define accordion (get-group glyph-list "^accordion\\.")) |
| 79 (define ties (get-group glyph-list "^ties\\.")) |
79 | 80 |
80 ;; remove all remaining groups from the glyph-list | 81 ;; remove all remaining groups from the glyph-list |
81 (for-each | 82 (for-each |
82 (lambda (x) (set! glyph-list (delete x glyph-list))) | 83 (lambda (x) (set! glyph-list (delete x glyph-list))) |
83 (append numbers | 84 (append numbers |
84 dynamics | 85 dynamics |
85 default-noteheads | 86 default-noteheads |
86 special-noteheads | 87 special-noteheads |
87 shape-note-noteheads | 88 shape-note-noteheads |
88 clefs | 89 clefs |
89 timesig | 90 timesig |
90 accidentals | 91 accidentals |
91 rests | 92 rests |
92 flags | 93 flags |
93 dots | 94 dots |
94 scripts | 95 scripts |
95 arrowheads | 96 arrowheads |
96 brackettips | 97 brackettips |
97 pedal | 98 pedal |
98 accordion)) | 99 accordion |
| 100 ties)) |
99 | 101 |
100 ;;;;;;;;; | 102 ;;;;;;;;; |
101 | 103 |
102 ;; require all glyphs to appear here | 104 ;; require all glyphs to appear here |
103 (if (pair? glyph-list) ; glyph-list should be empty by now | 105 (if (pair? glyph-list) ; glyph-list should be empty by now |
104 (ly:error | 106 (ly:error |
105 (_ "Unlisted glyphs in Documentation/included/font-table.ly: ~A") | 107 (_ "Unlisted glyphs in Documentation/included/font-table.ly: ~A") |
106 glyph-list)) | 108 glyph-list)) |
107 | 109 |
108 ) % end of (begin ...) | 110 ) % end of (begin ...) |
(...skipping 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
154 (define (doc-chars-aux names acc) | 156 (define (doc-chars-aux names acc) |
155 (let* ((n (min-length names 2)) | 157 (let* ((n (min-length names 2)) |
156 (head (take names n)) | 158 (head (take names n)) |
157 (tail (drop names n))) | 159 (tail (drop names n))) |
158 (if (null? head) | 160 (if (null? head) |
159 (reverse! acc) | 161 (reverse! acc) |
160 (doc-chars-aux tail | 162 (doc-chars-aux tail |
161 (cons (make-line-markup (map make-doc-char-markup head)
) | 163 (cons (make-line-markup (map make-doc-char-markup head)
) |
162 acc))))) | 164 acc))))) |
163 (interpret-markup-list layout props (doc-chars-aux names (list)))) | 165 (interpret-markup-list layout props (doc-chars-aux names (list)))) |
LEFT | RIGHT |