]> git.donarmstrong.com Git - lilypond.git/blob - getcommands.cc
release: 0.0.5
[lilypond.git] / getcommands.cc
1 #include "string.hh"
2 #include "parseconstruct.hh"
3 #include "command.hh"
4
5 Command*
6 get_bar_command(Real w)
7 {
8     Command*c = new Command;
9     c->when = w;
10     c->code = TYPESET;
11     c->args.add( "BAR");
12     c->args.add( "|");
13     c->priority = 100;
14     return c;
15 }
16
17 Command *
18 get_meter_command(Real w, int n, int m)
19 {
20     Command*c = new Command;
21     
22     c->when = w;
23     c->code = TYPESET;
24     c->args.add( "METER");
25     c->args.add( n );
26     c->args.add( m );
27     c->priority = 50;           // less than bar
28     return c;
29 }
30
31 Command *
32 get_meterchange_command(int n, int m)
33 {
34     Command*c = new Command;
35
36     c->code = INTERPRET;
37     c->args.add( "METER");
38     c->args.add( n );
39     c->args.add( m );
40     c->priority = 0;            // more than bar
41     return c;
42 }
43
44
45 Command *
46 get_skip_command(int n, Real m)
47 {
48     Command*c = new Command;
49     
50     c->code = INTERPRET;
51     c->args.add( "SKIP");
52     c->args.add( n );
53     c->args.add( m );
54     c->priority = 0;            // more than bar
55     return c;
56 }
57
58