summaryrefslogtreecommitdiff
path: root/request.cc
blob: 27816e5b4325f8f7b0caa1e5f2467790cd3b9576 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#include "request.hh"
#include "debug.hh"

void
Request::print() const    
{
#ifndef NPRINT
    mtor << "Req{ unknown }\n";
#endif
}

Request::Request(Voice_element*v)
{
    elt = v;
}

Note_req::Note_req(Voice_element*v)
    : Rhythmic_req(v)
{
    name = 'c';
    octave = 0;
    accidental = 0;
    forceacc = false;
}

Rhythmic_req::Rhythmic_req(Voice_element*v)
     :Request(v)
{
    balltype = 1;
    dots = 0;
}

Request::Request()
{
    elt = 0;
}


Real
wholes(int dur, int dots)
{
    Real f = 1.0/Real(dur);
    Real delta = f;

    while (dots--) {
	delta /= 2.0;
	f += delta;
    }
    return f;    
}

Real
Rhythmic_req::duration() const {    
    return wholes( balltype,dots);
}