]> git.donarmstrong.com Git - lilypond.git/blob - lily/staff-info.cc
release: 0.0.46.jcn1
[lilypond.git] / lily / staff-info.cc
1 /*
2   staff-info.cc -- implement Staff_info
3
4   source file of the LilyPond music typesetter
5   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
6 */
7 #include "staff.hh"
8 #include "proto.hh"
9 #include "staff-info.hh"
10 #include "score-column.hh"
11 #include "complex-walker.hh"
12 #include "staff-column.hh"
13
14 Staff*
15 Staff_info::staff_l()
16 {
17     return walk_l_->staff_l_;
18 }
19
20 Score*
21 Staff_info::score_l()
22 {
23     return staff_l()->score_l_;
24 }
25 Staff_info::Staff_info()
26 {
27     c0_position_i_l_ = 0;
28     walk_l_ = 0;
29     time_C_ = 0;
30     rhythmic_C_ =0;
31     break_allowed_b_ = 0;
32 }
33
34 Staff_column*
35 Staff_info::column_l()
36 {
37     return  walk_l_->ptr();
38 }
39
40 Score_column*
41 Staff_info::musical_l()
42 {
43     return column_l() -> musical_column_l_;
44 }
45
46 Score_column*
47 Staff_info::command_l()
48 {
49     return column_l() -> command_column_l_;
50 }
51 PCol*
52 Staff_info::command_pcol_l()
53 {
54     return command_l()->pcol_l_;
55 }
56
57 Moment
58 Staff_info::when()
59 {
60     return walk_l_->when();
61 }
62