]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lookup.cc
release: 1.5.36
[lilypond.git] / lily / lookup.cc
index 8be036fa7805a66e99fe1f24b4a1fea3f09c343f..2d832c965b9cdf6694fdb905e4ee07e7d30250b8 100644 (file)
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
   Jan Nieuwenhuizen <janneke@gnu.org>
 
 #include <math.h>
 #include <ctype.h>
 
-#include "lookup.hh"
-#include "debug.hh"
+#include "warn.hh"
 #include "dimensions.hh"
 #include "bezier.hh"
-#include "paper-def.hh"
 #include "string-convert.hh"
 #include "file-path.hh"
 #include "main.hh"
 #include "lily-guile.hh"
-#include "all-font-metrics.hh"
-#include "afm.hh"
-#include "scope.hh"
 #include "molecule.hh"
-
-#include "lily-guile.hh"
-
-
-Lookup::Lookup ()
-{
-  afm_l_ = 0;  
-}
-
-Lookup::Lookup (Lookup const& s)
-{
-  font_name_ = s.font_name_;
-  afm_l_ = 0;  
-}
-
-
-
-
-Molecule
-Lookup::afm_find (String s, bool warn) const
-{
-  if (!afm_l_)      
-    {
-      Lookup * me = (Lookup*)(this);
-      me->afm_l_ = all_fonts_global_p->find_afm (font_name_);
-      if (!me->afm_l_)
-       {
-         warning (_f ("can't find font: `%s'", font_name_));
-         warning (_f ("(search path: `%s')", global_path.str ().ch_C()));
-         error (_ ("Aborting"));
-       }
-    }
-  AFM_CharMetricInfo const *cm = afm_l_->find_char_metric (s, warn);
-
-  if (!cm)
-    {
-      Molecule m;
-      m.set_empty (false);
-      return m;
-    }
-  
-  SCM at =  (gh_list (ly_symbol2scm ("char"),
-                   gh_int2scm (cm->code),
-                   SCM_UNDEFINED));
-
-  at= fontify_atom (afm_l_,at);
-  return Molecule ( afm_bbox_to_box (cm->charBBox), at);
-}
-
-  
-
+#include "lookup.hh"
+#include "font-metric.hh"
 
 Molecule 
 Lookup::beam (Real slope, Real width, Real thick) 
@@ -87,11 +33,11 @@ Lookup::beam (Real slope, Real width, Real thick)
 
   
 
-  Box bInterval (0, width),
+  Box b (Interval (0, width),
         Interval (min_y, max_y));
 
   
-  SCM at = gh_list (ly_symbol2scm ("beam"),
+  SCM at = scm_list_n (ly_symbol2scm ("beam"),
                    gh_double2scm (width),
                    gh_double2scm (slope),
                    gh_double2scm (thick),
@@ -100,7 +46,6 @@ Lookup::beam (Real slope, Real width, Real thick)
 }
 
 
-
 Molecule
 Lookup::dashed_slur (Bezier b, Real thick, Real dash)
 {
@@ -111,41 +56,37 @@ Lookup::dashed_slur (Bezier b, Real thick, Real dash)
       l = gh_cons (ly_offset2scm (b.control_[i]), l);
     }
 
-  SCM at = (gh_list (ly_symbol2scm ("dashed-slur"),
+  SCM at = (scm_list_n (ly_symbol2scm ("dashed-slur"),
                               gh_double2scm (thick), 
                               gh_double2scm (dash),
                               ly_quote_scm (l),
                               SCM_UNDEFINED));
 
-  Box box (Interval(0,0),Interval( 0,0));
+  Box box (Interval (0,0),Interval (0,0));
   return   Molecule (box, at);
 }
 
-
-
-
 Molecule
 Lookup::blank (Box b) 
 {
-  Molecule m;
-  m.dim_ = b;
-  return m;
+  return Molecule (b, SCM_EOL);
 }
 
 
 Molecule
-Lookup::filledbox (Box b 
+Lookup::filledbox (Box b) 
 {
-  SCM  at  = (gh_list (ly_symbol2scm ("filledbox"),
+  SCM  at  = (scm_list_n (ly_symbol2scm ("filledbox"),
                     gh_double2scm (-b[X_AXIS][LEFT]),
                     gh_double2scm (b[X_AXIS][RIGHT]),                 
                     gh_double2scm (-b[Y_AXIS][DOWN]),
                     gh_double2scm (b[Y_AXIS][UP]),                    
                     SCM_UNDEFINED));
 
-  return Molecule ( b,at);
+  return Molecule (b,at);
 }
 
+
 Molecule
 Lookup::frame (Box b, Real thick)
 {
@@ -163,7 +104,6 @@ Lookup::frame (Box b, Real thick)
          edges[o][DOWN] = b[o][DOWN] - thick/2;
          edges[o][UP] = b[o][UP] + thick/2;      
          
-         
          m.add_molecule (filledbox (edges));
        }
       while (flip (&d) != LEFT);
@@ -173,149 +113,6 @@ Lookup::frame (Box b, Real thick)
 }
 
 
-/*
-   TODO: THIS IS UGLY.
-   Since the user has direct access to TeX marcos,
-   that currently provide the  only way to do
-   font selection, accents etc,
-   we try some halfbaked attempt to detect this TeX trickery.
- */
-String
-sanitise_TeX_string (String text)
-{
-  int brace_count =0;
-  for (int i= 0; i < text.length_i (); i++)
-    {
-      if (text[i] == '\\')
-       continue;
-      
-      if (text[i] == '{')
-       brace_count ++;
-      else if (text[i] == '}')
-       brace_count --;
-    }
-  
-  if(brace_count)
-    {
-      warning (_f ("Non-matching braces in text `%s', adding braces", text.ch_C()));
-
-      if (brace_count < 0)
-       {
-         text = to_str ('{', -brace_count) + text;
-       }
-      else 
-       {
-         text = text + to_str ('}', brace_count);
-       }
-    }
-    
-  return text;
-}
-
-/**
-   TODO!
- */
-String
-sanitise_PS_string (String t)
-{
-  return t;
-}
-
-/**
-
-*/
-Molecule
-Lookup::text (String style, String text, Paper_def *paper_l) 
-{
-  if (style.empty_b ())
-    style = "roman";
-  
-  int font_mag = 0;
-  Real font_h = paper_l->get_var ("font_normal");
-  if (paper_l->scope_p_->elem_b ("font_" + style))
-    {
-      font_h = paper_l->get_var ("font_" + style);
-    }
-
-
-  if (paper_l->scope_p_->elem_b ("magnification_" + style))
-    {
-      font_mag = (int)paper_l->get_var ("magnification_" + style);
-    }
-
-  /*
-    UGH.
-  */
-  SCM l = scm_eval (gh_list (ly_symbol2scm ("style-to-cmr"),
-                            ly_str02scm (style.ch_C()),
-                            SCM_UNDEFINED));
-  
-  if (l != SCM_BOOL_F)
-    {
-      style = ly_scm2string (gh_cdr(l)) +to_str  ((int)font_h);
-    }
-
-  
-
-  Font_metric* metric_l = 0;
-
-  if (font_mag)
-    metric_l = all_fonts_global_p->find_scaled (style, font_mag);
-  else
-    metric_l = all_fonts_global_p->find_font (style);
-  
-  
-    
-
-  int i = text.index_i ("\\n");
-  while (i >=0 )
-    {
-      text = text.left_str (i) + "\n" + text.right_str (text.length_i () - i - 2);
-      i = text.index_i ("\\n");
-    }
-  
-  Array<String> lines = String_convert::split_arr (text, '\n');
-  
-  Real kern = paper_l->get_var ("line_kern");
-  
-  for (int i=0; i < lines.size (); i++)
-    {
-      String str (lines[i]);
-      if (output_global_ch == "tex")
-       str = sanitise_TeX_string  (str);
-      else if (output_global_ch == "ps")
-       str = sanitise_PS_string (str);
-      lines[i] = str;
-    }
-
-  if (!lines.size())
-       return Molecule();
-
-  SCM first = gh_list (ly_symbol2scm ("text"),
-                        ly_str02scm (lines[0].ch_C()),
-                        SCM_UNDEFINED);
-  first = fontify_atom (metric_l, first);
-
-  
-
-  Molecule mol (metric_l->text_dimension (lines[0]), first);
-
-  for (i = 1; i < lines.size (); i++)
-    {
-      SCM line = (gh_list (ly_symbol2scm ("text"),
-                          ly_str02scm (lines[i].ch_C ()),
-                          SCM_UNDEFINED));
-      line = fontify_atom (metric_l, line);
-      mol.add_at_edge (Y_AXIS, DOWN,
-                      Molecule (metric_l->text_dimension (lines[i]), line),
-                      kern);
-    }
-
-  return mol;
-}
-  
-
-
 /*
   Make a smooth curve along the points 
  */
@@ -324,15 +121,18 @@ Lookup::slur (Bezier curve, Real curvethick, Real linethick)
 {
   Real alpha = (curve.control_[3] - curve.control_[0]).arg ();
   Bezier back = curve;
-
+  Offset perp = curvethick * complex_exp (Offset (0, alpha + M_PI/2)) * 0.5;
   back.reverse ();
-  back.control_[1] += curvethick * complex_exp (Offset (0, alpha + M_PI/2));
-  back.control_[2] += curvethick * complex_exp (Offset (0, alpha + M_PI/2));  
+  back.control_[1] += perp;
+  back.control_[2] += perp;
 
+  curve.control_[1] -= perp;
+  curve.control_[2] -= perp;
+  
   SCM scontrols[8];
 
   for (int i=4; i--;)
-    scontrols[ i ] = ly_offset2scm(back.control_[i]);
+    scontrols[ i ] = ly_offset2scm (back.control_[i]);
   for (int i=4 ; i--;)
     scontrols[i+4] = ly_offset2scm (curve.control_[i]);
 
@@ -341,216 +141,287 @@ Lookup::slur (Bezier curve, Real curvethick, Real linethick)
    */
   int indices[]= {5, 6, 7, 4, 1, 2, 3, 0};
   SCM list = SCM_EOL;
-  for (int i= 8; i--;  )
+  for (int i= 8; i--;)
     {
       list = gh_cons (scontrols[indices[i]], list);
     }
   
   
-  SCM at = (gh_list (ly_symbol2scm ("bezier-sandwich"),
+  SCM at = (scm_list_n (ly_symbol2scm ("bezier-sandwich"),
                     ly_quote_scm (list),
                     gh_double2scm (linethick),
                     SCM_UNDEFINED));
+  Box b(curve.extent (X_AXIS),
+       curve.extent (Y_AXIS));
+
+  b[X_AXIS].unite (back.extent (X_AXIS));
+  b[Y_AXIS].unite (back.extent (Y_AXIS));
 
-  Box b ( curve.extent (X_AXIS), curve.extent (Y_AXIS));
   return Molecule (b, at);
 }
 
+/*
+  TODO: junk me.
+ */
 Molecule
-Lookup::accordion (SCM s, Real staff_space) const
+Lookup::accordion (SCM s, Real staff_space, Font_metric *fm) 
 {
   Molecule m;
-  String sym = ly_scm2string(gh_car (s));
-  String reg = ly_scm2string(gh_car (gh_cdr(s)));
+  String sym = ly_scm2string (ly_car (s));
+  String reg = ly_scm2string (ly_car (ly_cdr (s)));
 
   if (sym == "Discant")
     {
-      Molecule r = afm_find("scripts-accDiscant");
-      m.add_molecule(r);
-      if (reg.left_str(1) == "F")
+      Molecule r = fm->find_by_name ("accordion-accDiscant");
+      m.add_molecule (r);
+      if (reg.left_str (1) == "F")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 2.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
       int eflag = 0x00;
-      if (reg.left_str(3) == "EEE")
+      if (reg.left_str (3) == "EEE")
        {
          eflag = 0x07;
-         reg = reg.right_str(reg.length_i()-3);
+         reg = reg.right_str (reg.length_i ()-3);
        }
-      else if (reg.left_str(2) == "EE")
+      else if (reg.left_str (2) == "EE")
        {
          eflag = 0x05;
-         reg = reg.right_str(reg.length_i()-2);
+         reg = reg.right_str (reg.length_i ()-2);
        }
-      else if (reg.left_str(2) == "Eh")
+      else if (reg.left_str (2) == "Eh")
        {
          eflag = 0x04;
-         reg = reg.right_str(reg.length_i()-2);
+         reg = reg.right_str (reg.length_i ()-2);
        }
-      else if (reg.left_str(1) == "E")
+      else if (reg.left_str (1) == "E")
        {
          eflag = 0x02;
-         reg = reg.right_str(reg.length_i()-1);
+         reg = reg.right_str (reg.length_i ()-1);
        }
       if (eflag & 0x02)
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         m.add_molecule(d);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         m.add_molecule (d);
        }
       if (eflag & 0x04)
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         d.translate_axis(0.8 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         d.translate_axis (0.8 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
        }
       if (eflag & 0x01)
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         d.translate_axis(-0.8 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
        }
-      if (reg.left_str(2) == "SS")
+      if (reg.left_str (2) == "SS")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(0.5 * staff_space PT, Y_AXIS);
-         d.translate_axis(0.4 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
-         d.translate_axis(-0.8 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-2);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (0.5 * staff_space PT, Y_AXIS);
+         d.translate_axis (0.4 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
+         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-2);
        }
-      if (reg.left_str(1) == "S")
+      if (reg.left_str (1) == "S")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(0.5 * staff_space PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (0.5 * staff_space PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
     }
   else if (sym == "Freebase")
     {
-      Molecule r = afm_find("scripts-accFreebase");
-      m.add_molecule(r);
-      if (reg.left_str(1) == "F")
+      Molecule r = fm->find_by_name ("accordion-accFreebase");
+      m.add_molecule (r);
+      if (reg.left_str (1) == "F")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
       if (reg == "E")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 0.5 PT, Y_AXIS);
-         m.add_molecule(d);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
+         m.add_molecule (d);
        }
     }
   else if (sym == "Bayanbase")
     {
-      Molecule r = afm_find("scripts-accBayanbase");
-      m.add_molecule(r);
-      if (reg.left_str(1) == "T")
+      Molecule r = fm->find_by_name ("accordion-accBayanbase");
+      m.add_molecule (r);
+      if (reg.left_str (1) == "T")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 2.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
       /* include 4' reed just for completeness. You don't want to use this. */
-      if (reg.left_str(1) == "F")
+      if (reg.left_str (1) == "F")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
-      if (reg.left_str(2) == "EE")
+      if (reg.left_str (2) == "EE")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 0.5 PT, Y_AXIS);
-         d.translate_axis(0.4 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
-         d.translate_axis(-0.8 * staff_space PT, X_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-2);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
+         d.translate_axis (0.4 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
+         d.translate_axis (-0.8 * staff_space PT, X_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-2);
        }
-      if (reg.left_str(1) == "E")
+      if (reg.left_str (1) == "E")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 0.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
     }
   else if (sym == "Stdbase")
     {
-      Molecule r = afm_find("scripts-accStdbase");
-      m.add_molecule(r);
-      if (reg.left_str(1) == "T")
+      Molecule r = fm->find_by_name ("accordion-accStdbase");
+      m.add_molecule (r);
+      if (reg.left_str (1) == "T")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 3.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 3.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
-      if (reg.left_str(1) == "F")
+      if (reg.left_str (1) == "F")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 2.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
-      if (reg.left_str(1) == "M")
+      if (reg.left_str (1) == "M")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 2 PT, Y_AXIS);
-         d.translate_axis(staff_space PT, X_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 2 PT, Y_AXIS);
+         d.translate_axis (staff_space PT, X_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
-      if (reg.left_str(1) == "E")
+      if (reg.left_str (1) == "E")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 1.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
-      if (reg.left_str(1) == "S")
+      if (reg.left_str (1) == "S")
        {
-         Molecule d = afm_find("scripts-accDot");
-         d.translate_axis(staff_space * 0.5 PT, Y_AXIS);
-         m.add_molecule(d);
-         reg = reg.right_str(reg.length_i()-1);
+         Molecule d = fm->find_by_name ("accordion-accDot");
+         d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
+         m.add_molecule (d);
+         reg = reg.right_str (reg.length_i ()-1);
        }
     }
   /* ugh maybe try to use regular font for S.B. and B.B and only use one font
      for the rectangle */
   else if (sym == "SB")
     {
-      Molecule r = afm_find("scripts-accSB");
-      m.add_molecule(r);
+      Molecule r = fm->find_by_name ("accordion-accSB");
+      m.add_molecule (r);
     }
   else if (sym == "BB")
     {
-      Molecule r = afm_find("scripts-accBB");
-      m.add_molecule(r);
+      Molecule r = fm->find_by_name ("accordion-accBB");
+      m.add_molecule (r);
     }
   else if (sym == "OldEE")
     {
-      Molecule r = afm_find("scripts-accOldEE");
-      m.add_molecule(r);
+      Molecule r = fm->find_by_name ("accordion-accOldEE");
+      m.add_molecule (r);
     }
   else if (sym == "OldEES")
     {
-      Molecule r = afm_find("scripts-accOldEES");
-      m.add_molecule(r);
+      Molecule r = fm->find_by_name ("accordion-accOldEES");
+      m.add_molecule (r);
     }
   return m;  
 }
 
+/*
+  TODO: should use slope instead?  Angle gives nasty rad <-> degree
+  conversions.
+*/
+Molecule
+Lookup::repeat_slash (Real w, Real s, Real t)
+{
+  SCM wid = gh_double2scm (w);
+  SCM sl = gh_double2scm (s);
+  SCM thick = gh_double2scm (t);
+  SCM slashnodot = scm_list_n (ly_symbol2scm ("repeat-slash"),
+                           wid, sl, thick, SCM_UNDEFINED);
+
+  Box b (Interval (0, w + sqrt (sqr(t/s) + sqr (t))),
+        Interval (0, w * s));
+
+  return Molecule (b, slashnodot); //  http://slashnodot.org
+}
+
+
+
+Molecule
+Lookup::bracket (Axis a, Interval iv, Direction d, Real thick, Real protude)
+{
+  Box b;
+  Axis other = Axis((a+1)%2);
+  b[a] = iv;
+  b[other] = Interval(-1, 1) * thick * 0.5;
+  
+  Molecule m =  filledbox (b);
+
+  b[a] = Interval (iv[UP] - thick, iv[UP]);
+  Interval oi = Interval (-thick/2, thick/2 + protude) ;
+  oi *=  d;
+  b[other] = oi;
+  m.add_molecule (filledbox (b));
+  b[a] = Interval (iv[DOWN], iv[DOWN]  +thick);
+  m.add_molecule (filledbox(b));
+
+  return m;
+}
+
+SCM
+ly_bracket (SCM a, SCM iv, SCM d, SCM t, SCM p)
+{
+  SCM_ASSERT_TYPE(ly_axis_p (a), a, SCM_ARG1, __FUNCTION__, "axis") ;
+  SCM_ASSERT_TYPE(ly_number_pair_p (iv), iv, SCM_ARG1, __FUNCTION__, "number pair") ;
+  SCM_ASSERT_TYPE(ly_dir_p (d), a, SCM_ARG1, __FUNCTION__, "direction") ;
+  SCM_ASSERT_TYPE(gh_number_p (t), a, SCM_ARG1, __FUNCTION__, "number") ;
+  SCM_ASSERT_TYPE(gh_number_p(p), a, SCM_ARG1, __FUNCTION__, "number") ;
+
+
+  return Lookup::bracket ((Axis)gh_scm2int (a), ly_scm2interval (iv),
+                 (Direction)gh_scm2int (d), gh_scm2double (t), gh_scm2double (p)).smobbed_copy ();
+}
+  
+static void
+lookup_init ()
+{
+  scm_c_define_gsubr ("ly-bracket", 5, 0, 0, (Scheme_function_unknown) ly_bracket);
+}
+
+ADD_SCM_INIT_FUNC (lookup,lookup_init);
+