2013/10/3 Thomas Morley <thomasmorle...@gmail.com>: > Hi Jim, > > 2013/10/3 Jim Long <lilyp...@umpquanet.com>: >> There is a known issue that prevents \improvisationOn from working >> with LilyJAZZ and \jazzOn. >> > > Never heard of it. > >> a) Is that issue terribly gnarly, or is there a likelihood that >> the two modes might be made compatible sometime soon? It does >> seem a tad ironic. >> >> b) How can I work around the problem in a piece which starts in >> improv. mode? The closest attempt I have made so far is >> attached, which involves specifying simultaneous music with >> non-jazz mode to produce the improv slashes, and a simultaneous >> jazz mode spacer rest to render the clef/key/time signature using >> the LilyJAZZ glyphs. My first guess was to scale the spacer rest >> to 0, but that defeats the jazz glyphs, and gives me Lily's >> standard clef, etc. >> >> If anyone can offer an improved workaround, I'd be very grateful. >> >> Regards, >> >> Jim > > Will try to have a look soon. > > Cheers, > Harm
Hi Jim, you could try to replace #(define (jazz-notehead grob) ...) in LilyJAZZ.ily with the the definition below. #(define (jazz-notehead grob) "stencil: jazz noteheads" (let* ((log (ly:grob-property grob 'duration-log)) (style (ly:grob-property grob 'style)) (n-c (ly:grob-parent grob Y)) (stem (ly:grob-object n-c 'stem)) (stem-dir (ly:grob-property stem 'direction)) (note-head-glyph (format #f "noteheads.s~a~ajazz" (cond ((<= log 0) 0) ((<= log 1) 1) (else 2)) (if (not (null? style)) style "")))) (set! (ly:grob-property grob 'stem-attachment) (if (eq? style 'slash) (if (= stem-dir -1) (if (<= log 1) '(1.28 . 0.95) '(1.12 . 0.725)) (if (<= log 1) '(1.6 . 0.9) '(1.227 . 0.72))) '(1.0 . 0.35))) (grob-interpret-markup grob (markup #:jazzglyph note-head-glyph)))) %%%%%%%%%%%%%%%%%%% % EXAMPLE %%%%%%%%%%%%%%%%%%% \new Voice \with { \consists "Pitch_squash_engraver" } \relative c' { \jazzOn \override Staff.NoteHead #'stencil = #jazz-notehead e8 e g a a16( bes) a8 g \improvisationOn e8 ~ e2 ~ e8 f4 f8 ~ f1 ~ f2 \improvisationOff a16( bes) a8 g e \jazzOff } I'm not absolutely sure about the values for 'stem-attachment, though. At least I feel quite convinced about the output from the example. Note: only a few styles are supported by LilyJAZZ.ily so far: The default, 'slash and 'cross. HTH, Harm _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user