* lily/book.cc (to_stencil): New method.

[lilypond.git] / lily / system-start-delimiter.cc

diff --git a/lily/system-start-delimiter.cc b/lily/system-start-delimiter.cc
index baf283a5015e8e124258c6d1cb0f647e766c8767..4dff002c815835fc1625a9f0e660aa73311de861 100644 (file)
--- a/lily/system-start-delimiter.cc
+++ b/lily/system-start-delimiter.cc
@@ -21,15 +21,15 @@
 Stencil
 System_start_delimiter::staff_bracket (Grob*me,Real height)  
 {
-  Real arc_height = gh_scm2double (me->get_grob_property ("arch-height")) ;
+  Real arc_height = ly_scm2double (me->get_property ("arch-height")) ;
   
   SCM at = scm_list_n (ly_symbol2scm ("bracket"),
-                   me->get_grob_property ("arch-angle"),
-                   me->get_grob_property ("arch-width"),
-                   gh_double2scm (arc_height),
-                   gh_double2scm (height),
-                   me->get_grob_property ("arch-thick"),
-                   me->get_grob_property ("thickness"),
+                   me->get_property ("arch-angle"),
+                   me->get_property ("arch-width"),
+                   scm_make_real (arc_height),
+                   scm_make_real (height),
+                   me->get_property ("arch-thick"),
+                   me->get_property ("thickness"),
                    SCM_UNDEFINED);
 
 /*
@@ -62,8 +62,8 @@ Will not fix it since I'm not sure.
 Stencil
 System_start_delimiter::simple_bar (Grob*me,Real h) 
 {
-  Real lt =me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness")) ;
-  Real w = lt * robust_scm2double (me->get_grob_property ("thickness"), 1);
+  Real lt =me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness")) ;
+  Real w = lt * robust_scm2double (me->get_property ("thickness"), 1);
   return Lookup::round_filled_box (Box (Interval (0,w), Interval (-h/2, h/2)),
                                   lt);
 }
@@ -74,19 +74,19 @@ SCM
 System_start_delimiter::after_line_breaking (SCM smob)
 {
   Grob * me = unsmob_grob (smob);
-  SCM   gl = me->get_grob_property ("glyph");
-  if (gh_equal_p (gl,scm_makfrom0str ("bar-line")))
+  SCM   gl = me->get_property ("glyph");
+  if (ly_c_equal_p (gl,scm_makfrom0str ("bar-line")))
     {
       int count = 0;
 
       /*
        Get all coordinates, to trigger Hara kiri. 
       */
-      SCM elts = me->get_grob_property ("elements");
+      SCM elts = me->get_property ("elements");
       Grob *common = common_refpoint_of_list (elts, me, Y_AXIS);
-      for (SCM s = elts; gh_pair_p (s); s = gh_cdr (s))
+      for (SCM s = elts; ly_c_pair_p (s); s = ly_cdr (s))
        {
-         Interval v = unsmob_grob (gh_car (s))->extent (common, Y_AXIS);
+         Interval v = unsmob_grob (ly_car (s))->extent (common, Y_AXIS);
 
          if (!v.is_empty ())
            count ++;
@@ -108,18 +108,18 @@ System_start_delimiter::print (SCM smob)
 {
   Grob * me = unsmob_grob (smob);
 
-  SCM s = me->get_grob_property ("glyph");
-  if (!gh_string_p (s))
+  SCM s = me->get_property ("glyph");
+  if (!ly_c_string_p (s))
     return SCM_EOL;
   SCM gsym = scm_string_to_symbol (s) ;
   
   Real staff_space = Staff_symbol_referencer::staff_space (me);
   Interval ext = ly_scm2interval (Axis_group_interface::group_extent_callback
- (me->self_scm (), gh_int2scm (Y_AXIS)));
+ (me->self_scm (), scm_int2num (Y_AXIS)));
   Real l = ext.length () / staff_space;
   
   if (ext.is_empty ()
-      || (robust_scm2double (me->get_grob_property ("collapse-height"), 0.0) >= l))
+      || (robust_scm2double (me->get_property ("collapse-height"), 0.0) >= l))
     {
       me->suicide ();
       return SCM_EOL;
@@ -147,11 +147,9 @@ System_start_delimiter::staff_brace (Grob*me, Real y)
      name.  This is better than using find_font directly,
      esp. because that triggers mktextfm for non-existent
      fonts. */
-  SCM br = ly_symbol2scm ("braces");
-  SCM fam = gh_cons (ly_symbol2scm ("font-family"), br);
-  SCM sz = gh_cons (ly_symbol2scm ("font-relative-size"), ly_symbol2scm ("*"));
+  SCM fam = scm_cons (ly_symbol2scm ("font-encoding"), ly_symbol2scm ("fetaBraces"));
   
-  SCM alist = scm_list_n (fam, sz, SCM_UNDEFINED);
+  SCM alist = scm_list_n (fam, SCM_UNDEFINED);
   fm = select_font (me->get_paper (), scm_list_n (alist, SCM_UNDEFINED));
   
 
@@ -171,12 +169,13 @@ System_start_delimiter::staff_brace (Grob*me, Real y)
        lo = cmp;
     }
   while (hi - lo > 1);
-      
-  Stencil m (fm->get_indexed_char_stencil (lo)); // ugh.  ascii?
-  b=m.extent_box();
-  b[X_AXIS] = Interval (0,0);
 
-  return Stencil (b, m.get_expr());
+  /* FIXME: ascii? */
+  Stencil stil (fm->get_indexed_char_stencil (lo));
+  b = stil.extent_box ();
+  b[X_AXIS] = Interval (0, 0);
+
+  return Stencil (b, stil.expr ());
 }