]> git.donarmstrong.com Git - lilypond.git/blob - lily/staff-info.cc
release: 0.0.50
[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 "proto.hh"
8 #include "plist.hh"
9 #include "staff.hh"
10 #include "staff-info.hh"
11 #include "score-column.hh"
12 #include "complex-walker.hh"
13 #include "staff-column.hh"
14
15 Staff*
16 Staff_info::staff_l()
17 {
18     return walk_l_->staff_l_;
19 }
20
21 Score*
22 Staff_info::score_l()
23 {
24     return staff_l()->score_l_;
25 }
26 Staff_info::Staff_info()
27 {
28     c0_position_i_l_ = 0;
29     walk_l_ = 0;
30     time_C_ = 0;
31     rhythmic_C_ =0;
32     break_allowed_b_ = 0;
33 }
34
35 Staff_column*
36 Staff_info::column_l()
37 {
38     return  walk_l_->ptr();
39 }
40
41 Score_column*
42 Staff_info::musical_l()
43 {
44     return column_l() -> musical_column_l_;
45 }
46
47 Score_column*
48 Staff_info::command_l()
49 {
50     return column_l() -> command_column_l_;
51 }
52 PCol*
53 Staff_info::command_pcol_l()
54 {
55     return command_l()->pcol_l_;
56 }
57
58 Moment
59 Staff_info::when()
60 {
61     return walk_l_->when();
62 }
63