[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: sprechstimme
From: |
D Josiah Boothby |
Subject: |
Re: sprechstimme |
Date: |
Tue, 12 Apr 2005 12:23:57 -0700 (PDT) |
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