OLD | NEW |
1 \version "2.14.0" | 1 \version "2.15.18" |
2 \include "example-header.ily" | 2 \include "example-header.ily" |
3 | 3 |
4 \paper { | 4 \paper { |
5 % line-width=158\mm % produces 624 pixels | 5 % line-width=158\mm % produces 624 pixels |
6 line-width = 143\mm % reserve 15mm for incipit | 6 line-width = 143\mm % reserve 15mm for incipit |
7 } | 7 } |
8 | 8 |
9 % Aucun ont trouvé, from Montpellier Codex | 9 % Aucun ont trouvé, from Montpellier Codex |
10 % | 10 % |
11 % Put brackets in where the original has ligatures, using | 11 % Put brackets in where the original has ligatures, using |
(...skipping 117 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
129 \override HorizontalBracket #'bracket-flare = #'(0 . 0) | 129 \override HorizontalBracket #'bracket-flare = #'(0 . 0) |
130 } | 130 } |
131 | 131 |
132 %%%%%%%%% MACRO FOR MAKING SLASHES THROUGH STEMS %%%%%%%%%% | 132 %%%%%%%%% MACRO FOR MAKING SLASHES THROUGH STEMS %%%%%%%%%% |
133 MakeSlash = #(define-music-function (parser location angle len-left len-right | 133 MakeSlash = #(define-music-function (parser location angle len-left len-right |
134 thick y-factor offset) | 134 thick y-factor offset) |
135 (number? number? number? number? number? | 135 (number? number? number? number? number? |
136 pair?) | 136 pair?) |
137 #{ | 137 #{ |
138 \once \override Voice.Stem #'text = \markup { | 138 \once \override Voice.Stem #'text = \markup { |
139 \postscript #(let ((x-off (car $offset)) | 139 \postscript #(let ((x-off (car offset)) |
140 (y-off (cdr $offset))) | 140 (y-off (cdr offset))) |
141 (string-append | 141 (string-append |
142 (ly:number->string (car $offset)) " " (ly:number->string (cdr $offset)) " | 142 (ly:number->string (car offset)) " " (ly:number->string (cdr offset)) " |
143 translate " | 143 translate " |
144 (ly:number->string $angle) " rotate " | 144 (ly:number->string angle) " rotate " |
145 (ly:number->string (- x-off)) " " | 145 (ly:number->string (- x-off)) " " |
146 (ly:number->string (- y-off)) " translate 0 setlinewidth " | 146 (ly:number->string (- y-off)) " translate 0 setlinewidth " |
147 (ly:number->string (- x-off $len-left)) " " (ly:number->string (+ y-off | 147 (ly:number->string (- x-off len-left)) " " (ly:number->string (+ y-off |
148 $thick)) " moveto " | 148 thick)) " moveto " |
149 (ly:number->string (- x-off $len-left)) " " (ly:number->string y-off) | 149 (ly:number->string (- x-off len-left)) " " (ly:number->string y-off) |
150 " " (ly:number->string $thick) " | 150 " " (ly:number->string thick) " |
151 90 270 arc " | 151 90 270 arc " |
152 (ly:number->string (+ x-off $len-right)) " " (ly:number->string y-off) | 152 (ly:number->string (+ x-off len-right)) " " (ly:number->string y-off) |
153 " " (ly:number->string $thick) " | 153 " " (ly:number->string thick) " |
154 270 90 arc " | 154 270 90 arc " |
155 " gsave fill grestore stroke")) } | 155 " gsave fill grestore stroke")) } |
156 | 156 |
157 \once \override Voice.Stem #'stencil = #(lambda (grob) | 157 \once \override Voice.Stem #'stencil = #(lambda (grob) |
158 (let* ((sten1 (ly:stem::print grob)) | 158 (let* ((sten1 (ly:stem::print grob)) |
159 (sten2 (ly:text-interface::print grob)) | 159 (sten2 (ly:text-interface::print grob)) |
160 (extent1 (ly:stencil-extent sten1 Y)) | 160 (extent1 (ly:stencil-extent sten1 Y)) |
161 (extent2 (ly:stencil-extent sten2 Y))) | 161 (extent2 (ly:stencil-extent sten2 Y))) |
162 (ly:stencil-add | 162 (ly:stencil-add |
163 sten1 | 163 sten1 |
164 (ly:stencil-translate sten2 | 164 (ly:stencil-translate sten2 |
165 (cons 0 (+ (* $y-factor (cdr extent1)) | 165 (cons 0 (+ (* y-factor (cdr extent1)) |
166 (* (- 1 $y-factor) (car extent1)))))))) | 166 (* (- 1 y-factor) (car extent1)))))))) |
167 #}) | 167 #}) |
168 | 168 |
169 | 169 |
170 slash = { \MakeSlash #20 #1.0 #1.1 #0.05 #0.75 #'(0 . -.5) } | 170 slash = { \MakeSlash #20 #1.0 #1.1 #0.05 #0.75 #'(0 . -.5) } |
171 | 171 |
172 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% | 172 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
173 | 173 |
174 triplumWords = \lyricmode { | 174 triplumWords = \lyricmode { |
175 Au -- cun ont trou -- ve chant par u -- sa -- ge, | 175 Au -- cun ont trou -- ve chant par u -- sa -- ge, |
176 mes a moi en doune o -- choi -- son __ | 176 mes a moi en doune o -- choi -- son __ |
(...skipping 71 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
248 %\midi {} | 248 %\midi {} |
249 \layout { | 249 \layout { |
250 %\context { | 250 %\context { |
251 % \Staff \consists "Horizontal_bracket_engraver" | 251 % \Staff \consists "Horizontal_bracket_engraver" |
252 %} | 252 %} |
253 \context { | 253 \context { |
254 \Voice \consists "Horizontal_bracket_engraver" | 254 \Voice \consists "Horizontal_bracket_engraver" |
255 } | 255 } |
256 } | 256 } |
257 } | 257 } |
OLD | NEW |