Re: sprechstimme

[D Josiah Boothby]

Using 2.4.2 (lilypond-snapshot on debian), I get the following backtrace:

$ lilypond-snapshot sprechstimme.ly
GNU LilyPond 2.4.2
Processing `sprechstimme.ly'
Parsing...
Interpreting music... [3]
Preprocessing graphical objects...
Calculating line breaks...
Backtrace:
In unknown file:
   ?:  0* [lilypond-main ("sprechstimme.ly")]
In /usr/share/lilypond-snapshot/2.4.2/scm/lily.scm:
 337:  1* (let* ((failed #) (handler #)) (for-each (lambda # #) files) 
...)
 339:  2* [for-each #<procedure #f (f)> ("sprechstimme.ly")]
In /usr/share/guile/1.6/srfi/srfi-1.scm:
 663:  3  (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
    ...
 667:  4  (begin (f (car l)) (lp (cdr l)))
 668:  5* [#<procedure #f (f)> "sprechstimme.ly"]
In /usr/share/lilypond-snapshot/2.4.2/scm/lily.scm:
 341:  6  [catch ly-file-failed #<procedure #f ()> #<procedure #f (key 
arg)>]
In unknown file:
   ?:  7* [#<procedure #f ()>]
In /usr/share/lilypond-snapshot/2.4.2/scm/lily.scm:
 341:  8* [ly:parse-file "sprechstimme.ly"]
In /usr/share/lilypond-snapshot/2.4.2/ly/init.ly:
   7:  9* (if (pair? toplevel-scores) (ly:parser-print-book parser #))
   8: 10  [ly:parser-print-book #<my_lily_parser  > #<Book>]
In unknown file:
   ?: 11* [System_start_delimiter::after_line_breaking #<Grob 
SystemStartBar >]
   ?: 12* [Align_interface::alignment_callback #<Grob VerticalAxisGroup > 
1]
   ?: 13* [Axis_group_interface::group_extent_callback #<Grob 
VerticalAxisGroup > 1]
   ?: 14* [Axis_group_interface::group_extent_callback #<Grob NoteColumn > 
1]
   ?: 15* [Stem::height #<Grob Stem > 1]
   ?: 16* [cross-stencil #<Grob Stem >]
In sprechstimme.ly:
   3: 17* (let* ((fn #) (cross #) (s #) ...) (set! s (ly:stencil-add s #)) 
...)
   4: 18* (ly:font-get-glyph fn "noteheads.s2cross")

sprechstimme.ly:4:20: In expression (ly:font-get-glyph fn 
"noteheads.s2cross"):
sprechstimme.ly:4:20: Unbound variable: ly:font-get-glyph


On Tue, 12 Apr 2005, Jonatan Liljedahl wrote:

> On Mon, 11 Apr 2005 11:54:57 -0700 (PDT)
> D Josiah Boothby <address@hidden> wrote:
>
> > I searched the lilypond-user and lilypond-devel archives and wasn't
> > able
> >  to find anything regarding sprechstimme, though I seem to recall that
> >
> >  there was a thread a couple months ago asking about it.
> >
> >  Is it supported in Lilypond? If not, has anyone found a way to insert
> >  the little "x" onto the halfway point of a stem?
>
> Try this, it works here.
>
> %% based on the code in regression/stencil-hacking.ly
> #(define (cross-callback callback)
>   (define (cross-stencil grob)
>     (let* ((fn (ly:get-default-font grob))
>             (cross (ly:font-get-glyph fn "noteheads.s2cross"))
>             (s (callback grob))
>             (sx (ly:stencil-extent s 0))
>             (sy (ly:stencil-extent s 1))
>             (cx (ly:stencil-extent cross 0))
>             (xadj (/ (- (cdr cx) (car cx)) 2))
>             (midy (+ (car sy) (/ (- (cdr sy) (car sy)) 2))))
>        (set! s (ly:stencil-add s
>            (ly:stencil-translate cross (cons (- xadj) midy))))
>       (ly:make-stencil (ly:stencil-expr s) sx sy)))
>   cross-stencil)
>
> stemCross = \once \override Stem  #'print-function
>    = #(cross-callback Stem::print)
> stemCrossStart = \override Stem  #'print-function
>    = #(cross-callback Stem::print)
> stemCrossStop = \revert Stem #'print-function
>
> %%%% EXAMPLE %%%%
>
> \layout { raggedright = ##t }
> \relative c' {
>    c4 \stemCrossStart e g bes \stemCrossStop
>    a8 \stemCross gis8 a2.
> }
>
> /Jonatan    -=( http://kymatica.com )=-
>
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/lilypond-user