- DOUT << "\n" << to_str (w) << "\n";
- a.dim_.x () = Interval (0, w);
- a.font_ = font_;
- return a;
-}
-
-
-Atom
-Lookup::time_signature (Array<int> a) const
-{
- Atom s ((*symtables_p_) ("param")->lookup ("time_signature"));
- s.lambda_ = gh_list (ly_symbol (s.str_),
- gh_int2scm (a[0]),
- gh_int2scm (a[1]),
- SCM_UNDEFINED);
- return s;
-}
-
-Atom
-Lookup::vbrace (Real &y) const
-{
- Atom a;
- a.lambda_ = gh_list (ly_symbol ("pianobrace"),
- gh_double2scm (y),
- SCM_UNDEFINED
- );
- a.dim_[Y_AXIS] = Interval (-y/2,y/2);
- a.font_ = font_;
- return a;
-}
-
-Atom
-Lookup::hairpin (Real width, bool decresc, bool continued) const
-{
- Atom a;
- Real height = paper_l_->staffheight_f () / 6;
-
- String hairpin = String (decresc ? "de" : "") + "crescendo\n";
- a.lambda_ = gh_list (ly_symbol (hairpin),
- gh_double2scm (width),
- gh_double2scm (height),
- gh_double2scm (continued ? height/2 : 0.0),
- SCM_UNDEFINED);
- a.dim_.x () = Interval (0, width);
- a.dim_.y () = Interval (-2*height, 2*height);
- a.font_ = font_;
- return a;
-}
-
-Atom
-Lookup::plet (Real dy , Real dx, Direction dir) const
-{
- Atom a;
- a.lambda_ = gh_list(ly_symbol ("tuplet"),
- gh_double2scm (dx),
- gh_double2scm (dy),
- gh_int2scm (dir));
- return a;
-}
-
-
-Atom
-Lookup::slur (Array<Offset> controls) const
-{
- assert (controls.size () == 8);
- Real dx = controls[3].x () - controls[0].x ();
- Real dy = controls[3].y () - controls[0].y ();
- Atom a;
-
- SCM scontrols [8];
- int indices[] = {5,6,7,4,1,2,3,0};
-
- for (int i= 0; i < 8; i++)
- scontrols[i] = offset2scm (controls[indices[i]]);
-
-
- a.lambda_ =gh_list (ly_symbol ("slur"),
- ly_quote_scm (array_to_list (scontrols, 8)),
- SCM_UNDEFINED);
-
- a.dim_[X_AXIS] = Interval (0, dx);
- a.dim_[Y_AXIS] = Interval (0 <? dy, 0 >? dy);
- a.font_ = font_;
- return a;
-}
-
-Atom
-Lookup::vbracket (Real &y) const
-{
- Atom a;
- Real min_y = paper_l_->staffheight_f ();
- if (y < min_y)