* ly/params-init.ly (blotdiameter): set blotdiameter to 2/3 of

stafflinethickness (in the default)

* lily/stem.cc (brew_molecule): use round_filled_box for stem.

* lily/lily-guile.cc (parse_symbol_list): strip spaces at the end.

* lily/stem.cc: remove #'up-to-staff ; use #'stem-end-position for
forcing up to staff.  remove #'support-head property
(brew_molecule): small cleanup.
(flag): remove #'grace property.

diff --git a/ChangeLog b/ChangeLog
index 428b85ea91a223d98223a50c19839c03a9674ab5..8267371e921934124b38a2badf1406b08f7130c2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2003-09-30  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * ly/params-init.ly (blotdiameter): set blotdiameter to 2/3 of
+       stafflinethickness (in the default)
+
+       * lily/stem.cc (brew_molecule): use round_filled_box for stem.
+
        * lily/lily-guile.cc (parse_symbol_list): strip spaces at the end.
 
        * Documentation/topdocs/INSTALL.texi (Top): reorder.

diff --git a/lily/grob-interface.cc b/lily/grob-interface.cc
index a2ae4b838979b26988948bc44b40e32bc8083d3c..18f699c4a4a4a5856686d7f503ebca41569404bb 100644 (file)
--- a/lily/grob-interface.cc
+++ b/lily/grob-interface.cc
@@ -59,7 +59,6 @@ check_interfaces_for_property (Grob const *me, SCM sym)
     }
   SCM ifs =  me->get_grob_property ("interfaces");
 
-
   bool found = false;
   for (; !found && gh_pair_p (ifs); ifs =gh_cdr (ifs))
     {

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index fe940add8056026f07e327e95ae2dec08bbde758..a91937a2ff152f4664cf7c84755dec99315780ec 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -188,7 +188,7 @@ void add_scm_init_func (void (*f) ())
 
 
 void
-ly_init_ly_module (void *data)
+ly_init_ly_module (void *)
 {
   for (int i=scm_init_funcs_->size () ; i--;)
     (scm_init_funcs_->elem (i)) ();

diff --git a/lily/stem.cc b/lily/stem.cc
index 10b2eccc6b63a562f32d66cab8064ff1b5bfb927..e3740bf96d11c65e452170b3067fe7eb4eadd527 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -735,9 +735,12 @@ Stem::brew_molecule (SCM smob)
       Real stem_width = gh_scm2double (me->get_grob_property ("thickness"))
        // URG
        * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
-      
-      Molecule ss =Lookup::filledbox (Box (Interval (-stem_width/2, stem_width/2),
-                                          Interval (stem_y[DOWN]*dy, stem_y[UP]*dy)));
+      Real blot = 
+       me->get_paper ()->get_realvar (ly_symbol2scm ("blotdiameter"));
+      Box b = Box (Interval (-stem_width/2, stem_width/2),
+                  Interval (stem_y[DOWN]*dy, stem_y[UP]*dy));
+
+      Molecule ss = Lookup::round_filled_box (b, blot);
       mol.add_molecule (ss);
     }
 

diff --git a/ly/params-init.ly b/ly/params-init.ly
index fca26b7b3c7619659d67a8b9382a958de7715f86..c38b63d05ab319d1e26602c2aa5f57ee73d43c40 100644 (file)
--- a/ly/params-init.ly
+++ b/ly/params-init.ly
@@ -25,8 +25,9 @@ ledgerlinethickness = #(* 2.0 linethickness)
 
 
 
-% blotdiameter = 0.4 \pt
-blotdiameter = 0.04 \pt
+% 2/3 stafflinethickness in 20pt staffheight
+% this parameter is independent of the output size.
+blotdiameter = 0.33 \pt
 interscoreline = 4. \mm