2 scoreline.cc -- implement Line_of_score
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "input-smob.hh"
10 #include "axis-group-interface.hh"
12 #include "line-of-score.hh"
14 #include "paper-column.hh"
15 #include "paper-def.hh"
16 #include "paper-outputter.hh"
17 #include "paper-score.hh"
20 #include "dimensions.hh"
21 #include "molecule.hh"
22 #include "all-font-metrics.hh"
26 fixup_refpoints (SCM s
)
28 for (; gh_pair_p (s
); s
= gh_cdr (s
))
30 Grob::fixup_refpoint (gh_car (s
));
35 Line_of_score::Line_of_score (SCM s
)
40 Axis_group_interface::set_interface (this);
41 Axis_group_interface::set_axes (this, Y_AXIS
,X_AXIS
);
45 Line_of_score::element_count () const
47 return scm_ilength (get_grob_property ("all-elements"));
51 Line_of_score::typeset_grob (Grob
* elem_p
)
53 elem_p
->pscore_l_
= pscore_l_
;
54 Pointer_group_interface::add_element (this, "all-elements",elem_p
);
55 scm_gc_unprotect_object (elem_p
->self_scm ());
59 Line_of_score::output_lines ()
61 for (SCM s
= get_grob_property ("all-elements");
62 gh_pair_p (s
); s
= gh_cdr (s
))
64 unsmob_grob (gh_car (s
))->do_break_processing ();
67 fixups must be done in broken line_of_scores, because new elements
68 are put over there. */
70 for (int i
=0; i
< broken_into_l_arr_
.size (); i
++)
72 Grob
*se
= broken_into_l_arr_
[i
];
73 SCM all
= se
->get_grob_property ("all-elements");
74 for (SCM s
= all
; gh_pair_p (s
); s
= gh_cdr (s
))
76 fixup_refpoint (gh_car (s
));
78 count
+= scm_ilength (all
);
83 needed for doing items.
85 fixup_refpoints (get_grob_property ("all-elements"));
88 for (SCM s
= get_grob_property ("all-elements");
89 gh_pair_p (s
); s
= gh_cdr (s
))
91 unsmob_grob (gh_car (s
))->handle_broken_dependencies ();
93 handle_broken_dependencies ();
96 progress_indication (_f ("Element count %d.", count
+ element_count ()));
99 for (int i
=0; i
< broken_into_l_arr_
.size (); i
++)
101 Line_of_score
*line_l
= dynamic_cast<Line_of_score
*> (broken_into_l_arr_
[i
]);
103 if (verbose_global_b
)
104 progress_indication ("[");
105 line_l
->post_processing (i
+1 == broken_into_l_arr_
.size ());
107 if (verbose_global_b
)
109 progress_indication (to_str (i
));
110 progress_indication ("]");
113 if (i
< broken_into_l_arr_
.size () - 1)
115 SCM lastcol
= gh_car (line_l
->get_grob_property ("columns"));
116 Grob
* e
= unsmob_grob (lastcol
);
117 SCM inter
= e
->get_grob_property ("between-system-string");
118 if (gh_string_p (inter
))
120 pscore_l_
->outputter_l_
->output_string (inter
);
127 Find the loose columns in POSNS, and drape them around the columns
128 specified in BETWEEN-COLS. */
130 set_loose_columns (Line_of_score
* which
, Column_x_positions
const *posns
)
132 for (int i
= 0; i
<posns
->loose_cols_
.size (); i
++)
135 Item
*loose
= dynamic_cast<Item
*> (posns
->loose_cols_
[i
]);
136 Paper_column
* col
= dynamic_cast<Paper_column
*> (loose
);
147 SCM between
= loose
->get_grob_property ("between-cols");
148 if (!gh_pair_p (between
))
153 left
= dynamic_cast<Item
*> (unsmob_grob (gh_car (between
)));
154 left
= left
->column_l ();
157 loose
= dynamic_cast<Item
*> (unsmob_grob (gh_cdr (between
)));
158 loose
= loose
->column_l ();
163 Real rx
= right
->relative_coordinate (right
->parent_l (X_AXIS
), X_AXIS
);
164 Real lx
= left
->relative_coordinate (left
->parent_l (X_AXIS
), X_AXIS
);
170 SCM between
= loose
->get_grob_property ("between-cols");
171 if (!gh_pair_p (between
))
174 Paper_column
*thiscol
= dynamic_cast<Paper_column
*> (loose
);
176 thiscol
->line_l_
= which
;
177 thiscol
->translate_axis (lx
+ j
*(rx
- lx
)/divide_over
, X_AXIS
);
180 loose
= dynamic_cast<Item
*> (unsmob_grob (gh_cdr (between
)));
188 Line_of_score::break_into_pieces (Array
<Column_x_positions
> const &breaking
)
190 for (int i
=0; i
< breaking
.size (); i
++)
192 Line_of_score
*line_l
= dynamic_cast <Line_of_score
*> (clone ());
194 // line_l->set_immutable_grob_property ("rank", gh_int2scm (i));
195 Link_array
<Grob
> c (breaking
[i
].cols_
);
196 pscore_l_
->typeset_line (line_l
);
198 line_l
->set_bound (LEFT
,c
[0]);
199 line_l
->set_bound (RIGHT
,c
.top ());
200 for (int j
=0; j
< c
.size (); j
++)
202 c
[j
]->translate_axis (breaking
[i
].config_
[j
],X_AXIS
);
203 dynamic_cast<Paper_column
*> (c
[j
])->line_l_
= line_l
;
205 set_loose_columns (line_l
, &breaking
[i
]);
206 broken_into_l_arr_
.push (line_l
);
211 #define GLOBAL_SYMBOL(cname, name) \
214 cname ## _init_func () \
216 cname = ly_symbol2scm (name); \
217 scm_permanent_object (cname); \
219 ADD_SCM_INIT_FUNC (cname,cname ## _init_func);\
222 GLOBAL_SYMBOL (offset_sym , "translate-molecule");
223 GLOBAL_SYMBOL (placebox_sym
, "placebox");
224 GLOBAL_SYMBOL (combine_sym
, "combine-molecule");
225 GLOBAL_SYMBOL (no_origin_sym
, "no-origin");
226 GLOBAL_SYMBOL (define_origin_sym
, "define-origin");
231 Line_of_score::output_molecule (SCM expr
, Offset o
)
236 if (!gh_pair_p (expr
))
239 SCM head
=gh_car (expr
);
240 if (unsmob_input (head
))
242 Input
* ip
= unsmob_input (head
);
245 pscore_l_
->outputter_l_
->output_scheme (gh_list (define_origin_sym
,
246 ly_str02scm (ip
->file_str ().ch_C ()),
247 gh_int2scm (ip
->line_number ()),
248 gh_int2scm (ip
->column_number ()),
250 expr
= gh_cadr (expr
);
252 else if (head
== no_origin_sym
)
254 pscore_l_
->outputter_l_
->output_scheme (gh_list (no_origin_sym
, SCM_UNDEFINED
));
255 expr
= gh_cadr (expr
);
257 else if (head
== offset_sym
)
259 o
+= ly_scm2offset (gh_cadr (expr
));
260 expr
= gh_caddr (expr
);
262 else if (head
== combine_sym
)
264 output_molecule (gh_cadr (expr
), o
);
265 expr
= gh_caddr (expr
);
269 pscore_l_
->outputter_l_
->
270 output_scheme (gh_list (placebox_sym
,
271 gh_double2scm (o
[X_AXIS
]),
272 gh_double2scm (o
[Y_AXIS
]),
282 Line_of_score::output_scheme (SCM s
)
284 pscore_l_
->outputter_l_
->output_scheme (s
);
288 Line_of_score::add_column (Paper_column
*p
)
291 SCM cs
= me
->get_grob_property ("columns");
292 Grob
* prev
= gh_pair_p (cs
) ? unsmob_grob (gh_car (cs
)) : 0;
294 p
->rank_i_
= prev
? Paper_column::rank_i (prev
) + 1 : 0;
296 me
->set_grob_property ("columns", gh_cons (p
->self_scm (), cs
));
298 Axis_group_interface::add_element (me
, p
);
304 TODO: use scm_map iso. for loops.
307 Line_of_score::pre_processing ()
309 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
); s
= gh_cdr (s
))
310 unsmob_grob (gh_car (s
))->discretionary_processing ();
312 if (verbose_global_b
)
313 progress_indication (_f ("Element count %d ", element_count ()));
316 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
); s
= gh_cdr (s
))
317 unsmob_grob (gh_car (s
))->handle_prebroken_dependencies ();
319 fixup_refpoints (get_grob_property ("all-elements"));
321 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
); s
= gh_cdr (s
))
323 Grob
* sc
= unsmob_grob (gh_car (s
));
324 sc
->calculate_dependencies (PRECALCED
, PRECALCING
, ly_symbol2scm ("before-line-breaking-callback"));
327 progress_indication ("\n" + _ ("Calculating column positions...") + " ");
328 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
); s
= gh_cdr (s
))
330 Grob
* e
= unsmob_grob (gh_car (s
));
331 SCM proc
= e
->get_grob_property ("spacing-procedure");
332 if (gh_procedure_p (proc
))
333 gh_call1 (proc
, e
->self_scm ());
338 Line_of_score::post_processing (bool last_line
)
340 for (SCM s
= get_grob_property ("all-elements");
341 gh_pair_p (s
); s
= gh_cdr (s
))
343 Grob
* sc
= unsmob_grob (gh_car (s
));
344 sc
->calculate_dependencies (POSTCALCED
, POSTCALCING
,
345 ly_symbol2scm ("after-line-breaking-callback"));
348 Interval
i (extent (this, Y_AXIS
));
350 programming_error ("Huh? Empty Line_of_score?");
352 translate_axis (- i
[MAX
], Y_AXIS
);
354 Real height
= i
.length ();
357 programming_error ("Improbable system height");
362 generate all molecules to trigger all font loads.
364 (ugh. This is not very memory efficient.) */
365 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
); s
= gh_cdr (s
))
367 unsmob_grob (gh_car (s
))->get_molecule ();
372 SCM font_names
= ly_quote_scm (paper_l ()->font_descriptions ());
373 output_scheme (gh_list (ly_symbol2scm ("define-fonts"),
380 output_scheme (gh_list (ly_symbol2scm ("start-line"),
381 gh_double2scm (height
),
384 /* Output elements in three layers, 0, 1, 2.
385 The default layer is 1. */
386 for (int i
= 0; i
< 3; i
++)
387 for (SCM s
= get_grob_property ("all-elements"); gh_pair_p (s
);
390 Grob
*sc
= unsmob_grob (gh_car (s
));
391 Molecule
*m
= sc
->get_molecule ();
395 SCM s
= sc
->get_grob_property ("layer");
396 int layer
= gh_number_p (s
) ? gh_scm2int (s
) : 1;
400 Offset
o (sc
->relative_coordinate (this, X_AXIS
),
401 sc
->relative_coordinate (this, Y_AXIS
));
403 SCM e
= sc
->get_grob_property ("extra-offset");
406 o
[X_AXIS
] += gh_scm2double (gh_car (e
));
407 o
[Y_AXIS
] += gh_scm2double (gh_cdr (e
));
410 output_molecule (m
->get_expr (), o
);
415 output_scheme (gh_list (ly_symbol2scm ("stop-last-line"), SCM_UNDEFINED
));
419 output_scheme (gh_list (ly_symbol2scm ("stop-line"), SCM_UNDEFINED
));
425 Line_of_score::broken_col_range (Item
const*l
, Item
const*r
) const
427 Link_array
<Item
> ret
;
431 SCM s
= get_grob_property ("columns");
433 while (gh_pair_p (s
) && gh_car (s
) != r
->self_scm ())
439 while (gh_pair_p (s
) && gh_car (s
) != l
->self_scm ())
441 Paper_column
*c
= dynamic_cast<Paper_column
*> (unsmob_grob (gh_car (s
)));
442 if (Item::breakable_b (c
) && !c
->line_l_
)
453 Return all columns, but filter out any unused columns , since they might
454 disrupt the spacing problem.
457 Line_of_score::column_l_arr ()const
460 = Pointer_group_interface__extract_elements (this, (Grob
*) 0, "columns");
462 for (int i
= acs
.size (); i
-- ;)
464 bool brb
= Item::breakable_b (acs
[i
]);
465 bfound
= bfound
|| brb
;
468 the last column should be breakable. Weed out any columns that
469 seem empty. We need to retain breakable columns, in case
470 someone forced a breakpoint.
472 if (!bfound
|| !Paper_column::used_b (acs
[i
]))