patch::: 1.3.15.jcn2

[lilypond.git] / ly / params.ly

diff --git a/ly/params.ly b/ly/params.ly
index f0e9893b8d37316d3adcd8f1ee4272ace3913a4b..07ec6cf89d872aa684a3809d6d15116c258fea31 100644 (file)
--- a/ly/params.ly
+++ b/ly/params.ly
@@ -9,14 +9,19 @@ paperfile = \papersize + ".ly";
 interline = \staffheight / 4.0;
 
 
-% thickness of stafflines
-staffline = \interline / 10.0;
+stafflinethickness = \interline / 10.0;
 
 % urg, need grace_ versions of these too?
-beam_thickness = 0.52 * (\interline - \staffline);
-interbeam = (2.0 * \interline + \staffline - \beam_thickness) / 2.0;
+beam_thickness = 0.52 * (\interline - \stafflinethickness);
+
+#'beam-thickness = \beam_thickness;  %% UGR
+
+
+interbeam = (2.0 * \interline + \stafflinethickness - \beam_thickness) / 2.0;
 interbeam4 = (3.0 * \interline - \beam_thickness) / 3.0;
 
+
+
 % stems and beams
 %
 % poor man's array size
@@ -24,7 +29,7 @@ stem_max = 3.0;
 
 %{ Specify length of stems for notes in the staff
 that don't have beams. 
- Measured in staff positions.
+   Measured in staff positions.
 %}
 stem_length0 = 7.;
 stem_length1 = 5.;
@@ -58,7 +63,7 @@ grace_stem_length3 = \stem_length3 * \grace_factor;
 
 % only used for beams
 minimum_stem_length0 = 0.0 ; % not used
-minimum_stem_length1 = 3. ;
+minimum_stem_length1 = 3.;
 minimum_stem_length2 = 2.5;
 minimum_stem_length3 = 2.0;
 
@@ -90,24 +95,15 @@ grace_forced_stem_shorten3 = \grace_forced_stem_shorten2;
 % * MEAN     : mean centre distance of all notes
 % * MEDIAN   : mean centre distance weighted per note
 %
-% enum Dir_algorithm { DOWN=-1, UP=1, MAJORITY=2, MEAN, MEDIAN };
-%
-DOWN = -1.0;
-UP = 1.0;
-MAJORITY = 2.0;
-MEAN = 3.0;
-MEDIAN = 4.0;
 
-%{
-dit(code(beam_dir_algorithm)) Specify algorithm for determining
-whether beams go up or down.  It is real valued.  If set to 2.0 then
-majority selection is used.  If set to 3.0, then mean selection is
-used based on the mean center distance.  If set to 4.0 then median
-selection is used, based on the median center distance.
-%}
+#'beam-dir-algorithm = #'majority      %urg.
+
 
-% [Ross]: majority
-beam_dir_algorithm = \MAJORITY;
+#'Stem_tremolo::beam-width = 1.5 * \quartwidth ; 
+
+#'Clef_item::visibility-lambda = #postbreak-only-visibility
+#'Key_item::visibility-lambda = #postbreak-only-visibility
+#'Breathing_sign::visibility-lambda = #non-postbreak-visibility
 
 % catch suspect beam slopes, set slope to zero if
 % outer stem is lengthened more than
@@ -153,8 +149,8 @@ tie_y_gap = 0.25 * \interline;
 tie_staffspace_length = 4.0 * \interline;
 
 % ugh: rename to bow (in bezier.cc and fonts.doc too...)
-% slur_thickness = 1.8 * \staffline;
-slur_thickness = 1.4 * \staffline;
+% slur_thickness = 1.8 * \stafflinethickness;
+slur_thickness = 1.4 * \stafflinethickness;
 
 %{
  Specifies the maximum height of slurs.
@@ -178,9 +174,6 @@ slur_rc_factor = 2.4;
 % ugh
 notewidth = (\quartwidth + \wholewidth) / 2.0;
 
-% ugh
-rulethickness = \staffline;
-
 gourlay_energybound = 100000.;
 %{
 Maximum number of measures per line to try when using Gourlay
@@ -200,23 +193,30 @@ barthick_thin = 0.1*\interline;
 
 %}
 
-bar_kern = 3.0 * \staffline;
-bar_thinkern = 3.0 * \staffline;
-barthick_thick = 6.0* \staffline;
-barthick_thin = 1.6*\staffline;
-barthick_score = 1.6*\staffline;
+bar_kern = 3.0 * \stafflinethickness;
+bar_thinkern = 3.0 * \stafflinethickness;
+barthick_thick = 6.0* \stafflinethickness;
+barthick_thin = 1.6*\stafflinethickness;
+barthick_score = 1.6*\stafflinethickness;
+
+bracket_arch_thick = \interline / 3.0;
+bracket_width = 2.0 * \interline;
+bracket_thick = 2.0 * \stafflinethickness;
+bracket_arch_height = 1.5 * \interline;
+bracket_arch_width = \bracket_arch_height;
+bracket_arch_angle = 50.0;
 
 tuplet_spanner_gap = 2.0 * \interline;
-tuplet_thick = 1.0*\staffline;
-volta_thick = 1.6*\staffline;
+tuplet_thick = 1.0*\stafflinethickness;
+volta_thick = 1.6*\stafflinethickness;
 volta_spanner_height = 2.0 *\interline;
 
 % relative thickness of thin lines  1.6 : 1 : 0.8
-stemthickness = 0.8*\staffline;
-rulethickness = \staffline;
+stemthickness = 0.8*\stafflinethickness;
+rulethickness = \stafflinethickness;
 
 
-extender_height = 0.8*\staffline;
+extender_height = 0.8*\stafflinethickness;
 
 hyphen_thickness = 0.05*\font_normal;
 hyphen_height = 0.2*\font_normal;
@@ -228,12 +228,17 @@ mmrest_x_minimum = 1.4*\staffheight;
 
 % chop off this much when next to pp / ff sign.
 crescendo_shorten = 4.0 * \interline;
-crescendo_thickness   = \staffline;
+crescendo_thickness   = \stafflinethickness;
+crescendo_height = 0.666 * \interline;
 
 % in internote.
 restcollision_minimum_dist = 3.0;
 restcollision_minimum_beamdist = 1.5;
 
+
+% unit for note collision resolving
+collision_note_width = \notewidth;     %ugh.
+
 % deprecated!
 postBreakPadding = 0.0;
 
@@ -288,4 +293,9 @@ Wordwrap =0.0;
 \include "engraver.ly";
 
 
+#'margin-shape = #'()
 
+
+% 
+#'Local_key_item::left-padding = #'0.2
+#'Local_key_item::right-padding = #'0.4