repo.or.cz
/
lilypond.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
lilypond-0.1.33
[lilypond.git]
/
src
/
bar.cc
blob
32a7cd5fe6aaf32605c1ea2224625e5058a84541
1
#include
"bar.hh"
2
#include
"string.hh"
3
#include
"molecule.hh"
4
#include
"paper-def.hh"
5
#include
"lookup.hh"
6
#include
"debug.hh"
7
8
9
10
Bar
::
Bar
(
String t
)
11
{
12
type
=
t
;
13
}
14
15
void
16
Bar
::
do_print
()
const
17
{
18
mtor
<<
type
;
19
}
20
21
Molecule
*
22
Bar
::
brew_molecule_p
()
const
23
{
24
Symbol s
=
paper
()->
lookup_p_
->
bar
(
type
);
25
Molecule
*
output
=
new
Molecule
(
Atom
(
s
));
26
return
output
;
27
}
28