From: fred Date: Sun, 24 Mar 2002 19:43:31 +0000 (+0000) Subject: lilypond-0.0.64 X-Git-Tag: release/1.5.59~4718 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f861c97ceb53f952ad35395d0fbb0e182e62ba09;p=lilypond.git lilypond-0.0.64 --- diff --git a/lily/lookup.cc b/lily/lookup.cc index 08591cfe7c..12684d539d 100644 --- a/lily/lookup.cc +++ b/lily/lookup.cc @@ -232,3 +232,26 @@ Lookup::stem(Real y1,Real y2) const s.tex = substitute_args(src,a); return s; } + +Symbol +Lookup::vbrace(Real &y) const +{ + if (y < 2* 20 PT) { + warning ( "piano brace too small (" + print_dimen(y)+ ")"); + y = 2*20 PT; + } + if (y > 67 * 2 PT) { + warning ( "piano brace too big (" + print_dimen(y)+ ")"); + y = 67 *2 PT; + } + + int idx = (y/2.0 - 20 ) + 148; + + Symbol s = (*symtables_)("param")->lookup("brace"); + + Array a; + a.push(idx); + s.tex = substitute_args(s.tex,a); + s.dim.y = Interval(0,y); + return s; +}