]> git.donarmstrong.com Git - lilypond.git/blob - lily/bar-line.cc
Configure only pristine build tree or on user
[lilypond.git] / lily / bar-line.cc
1 /*
2   bar.cc -- implement Bar
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include <math.h>
10
11 #include "lookup.hh"
12 #include "paper-column.hh"
13 #include "grob.hh"
14 #include "bar-line.hh"
15 #include "string.hh"
16 #include "stencil.hh"
17 #include "output-def.hh"
18 #include "font-interface.hh"
19
20 #include "all-font-metrics.hh"
21 #include "item.hh"
22 #include "staff-symbol-referencer.hh"
23
24 MAKE_SCHEME_CALLBACK (Bar_line,print,1);
25
26 SCM 
27 Bar_line::print (SCM smob) 
28 {
29   Grob * me = unsmob_grob (smob);
30
31   SCM s = me->get_property ("glyph");
32   SCM barsiz_proc = me->get_property ("bar-size-procedure");
33   if (ly_c_string_p (s) && ly_c_procedure_p (barsiz_proc))
34     {
35       String str  =ly_scm2string (s);
36       SCM siz = scm_call_1 (barsiz_proc, me->self_scm ());
37       Real sz = robust_scm2double (siz, 0);
38       if (sz < 0)
39         return SCM_EOL;
40       
41       return compound_barline (me, str, sz).smobbed_copy ();
42     }
43   return SCM_EOL;
44 }
45
46
47 Stencil
48 Bar_line::compound_barline (Grob*me, String str, Real h)
49 {
50   Real kern = robust_scm2double (me->get_property ("kern"), 1);
51   Real thinkern = robust_scm2double (me->get_property ("thin-kern"), 1);
52   Real hair = robust_scm2double (me->get_property ("hair-thickness"), 1);
53   Real fatline = robust_scm2double (me->get_property ("thick-thickness"), 1);
54
55   Real staffline = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
56   Real staff_space = Staff_symbol_referencer::staff_space (me);
57
58   kern *= staffline;
59   thinkern *= staffline;
60   hair *= staffline;
61   fatline *= staffline;
62   
63   Stencil thin = simple_barline (me, hair, h);
64   Stencil thick = simple_barline (me, fatline, h);
65   Stencil dot = Font_interface::get_default_font (me)->find_by_name ("dots-dot");
66   Real dist = ( Staff_symbol_referencer::line_count (me) & 1 ? 1 :
67                 (staff_space<2 ? 2 : .5) ) * staff_space;
68   Stencil colon (dot);
69   colon.translate_axis (dist,Y_AXIS);
70   colon.add_stencil (dot);
71   colon.translate_axis (-dist/2,Y_AXIS);
72
73   Stencil m;
74   if (str == "||:")
75     str = "|:";
76   
77   if (str == "")
78     {
79       return Lookup::blank (Box (Interval (0, 0), Interval (-h/2, h/2)));
80     }
81   else if (str == "|")
82     {
83       return thin;
84     }
85   else if (str == "|." || (h == 0 && str == ":|"))
86     {
87       m.add_at_edge (X_AXIS, LEFT, thick, 0, 0);      
88       m.add_at_edge (X_AXIS, LEFT, thin, kern,0 );
89     }
90   else if (str == ".|" || (h == 0 && str == "|:"))
91     {
92       m.add_at_edge (X_AXIS, RIGHT, thick, 0, 0);
93       m.add_at_edge (X_AXIS, RIGHT, thin, kern, 0);
94     }
95   else if (str == ":|")
96     {
97       m.add_at_edge (X_AXIS, LEFT, thick, 0, 0);
98       m.add_at_edge (X_AXIS, LEFT, thin, kern, 0);
99       m.add_at_edge (X_AXIS, LEFT, colon, kern, 0);      
100     }
101   else if (str == "|:")
102     {
103       m.add_at_edge (X_AXIS, RIGHT, thick, 0, 0);
104       m.add_at_edge (X_AXIS, RIGHT, thin, kern, 0);
105       m.add_at_edge (X_AXIS, RIGHT, colon, kern, 0);      
106     }
107   else if (str == ":|:")
108     {
109       m.add_at_edge (X_AXIS, LEFT, thick, thinkern, 0);
110       m.add_at_edge (X_AXIS, LEFT, colon, kern, 0);
111       m.add_at_edge (X_AXIS, RIGHT, thick, kern, 0);
112       m.add_at_edge (X_AXIS, RIGHT, colon, kern, 0);      
113     }
114   else if (str == ".|.")
115     {
116       m.add_at_edge (X_AXIS, LEFT, thick, thinkern, 0);
117       m.add_at_edge (X_AXIS, RIGHT, thick, kern, 0);
118     }
119   else if (str == "||")
120     {
121       /*
122         should align to other side? this never appears
123         on the system-start?
124       */
125       m.add_at_edge (X_AXIS, RIGHT, thin, 0, 0);
126       m.add_at_edge (X_AXIS, RIGHT, thin, thinkern, 0);
127     }
128   else if (str == ":")
129     {
130       int c = (Staff_symbol_referencer::line_count (me));
131       
132       for (int i = 0 ; i < c - 1; i++)
133         {
134           Real y = (- (c-1.0) / 2 + 0.5  +   i * staff_space);
135           Stencil d (dot);
136
137           d. translate_axis (y,Y_AXIS);
138           m.add_stencil (d);
139         }
140     }
141   return m;
142 }
143
144 Stencil
145 Bar_line::simple_barline (Grob *me,Real w, Real h) 
146 {
147   Real blot = me->get_paper ()->get_dimension (ly_symbol2scm ("blotdiameter"));
148   return Lookup::round_filled_box (Box (Interval (0,w), Interval (-h/2, h/2)), blot);
149 }
150
151 MAKE_SCHEME_CALLBACK (Bar_line,before_line_breaking ,1);
152
153 SCM
154 Bar_line::before_line_breaking (SCM smob)
155 {
156   Grob*me=unsmob_grob (smob);
157   Item * item = dynamic_cast<Item*> (me);
158   
159   SCM g = me->get_property ("glyph");
160   SCM orig = g;
161   Direction bsd = item->break_status_dir ();
162   if (ly_c_string_p (g) && bsd)
163     {
164       SCM proc = me->get_property ("break-glyph-function");
165       g = scm_call_2 (proc, g, scm_int2num (bsd));
166     }
167   
168   if (!ly_c_string_p (g))
169     {
170       me->set_property ("print-function", SCM_EOL);
171       me->set_extent (SCM_EOL, X_AXIS);
172       // leave y_extent for spanbar? 
173     }
174
175   if (! ly_c_equal_p (g, orig))
176     me->set_property ("glyph", g);
177
178   return SCM_UNSPECIFIED;
179 }
180   
181
182
183
184 MAKE_SCHEME_CALLBACK (Bar_line,get_staff_bar_size,1);
185 SCM
186 Bar_line::get_staff_bar_size (SCM smob) 
187 {
188   Grob*me = unsmob_grob (smob);
189   Real ss = Staff_symbol_referencer::staff_space (me);
190   SCM size = me->get_property ("bar-size");
191   if (ly_c_number_p (size))
192     return scm_make_real (ly_scm2double (size)*ss);
193   else if (Staff_symbol_referencer::get_staff_symbol (me))
194     {
195       /*
196         If there is no staff-symbol, we get -1 from the next
197         calculation. That's a nonsense value, which would collapse the
198         barline so we return 0.0 in the next alternative.
199       */
200       return scm_make_real ((Staff_symbol_referencer::line_count (me) -1) * ss);
201     }
202   else
203     return scm_int2num (0);
204 }
205
206
207
208 ADD_INTERFACE (Bar_line, "bar-line-interface",
209   "Bar line.\n"
210 "\n"
211 "Print a special bar symbol. It replaces the \n"
212 "regular bar symbol with a special\n"
213 "symbol.  The argument @var{bartype} is a string which specifies the\n"
214 "kind of bar to print.  Options are @code{:|},\n"
215 "@code{|:}, @code{:|:},\n"
216 "@code{||}, @code{|.},\n"
217 "@code{.|}, and @code{.|.}. \n"
218 "\n"
219 "These produce, respectively, a right repeat, a left repeat, a double\n"
220 "repeat, a double bar, a start bar, an end bar, and a thick double bar.\n"
221 "If @var{bartype} is set to @code{empty} then nothing is printed,\n"
222 "but a line break is allowed at that spot.\n",
223   "bar-size-procedure kern thin-kern hair-thickness thick-thickness glyph bar-size break-glyph-function");