module Finite where

import Pitch
import Midi
import List
import Prelude ( (*), ($) )


main, voice :: [Event (Channel Message)] ;
main :: [Event (Channel Message)]
main = [Event (Channel Message)]
voice ;

qn, hn :: Time ;
qn :: Time
qn = Time
600 ;
hn :: Time
hn = Time
2 Time -> Time -> Time
forall a. Num a => a -> a -> a
* Time
qn ;

voice :: [Event (Channel Message)]
voice =
    Time -> [Event Message] -> [Event (Channel Message)]
forall a. Time -> [Event a] -> [Event (Channel a)]
channel Time
0 ([Event Message] -> [Event (Channel Message)])
-> [Event Message] -> [Event (Channel Message)]
forall a b. (a -> b) -> a -> b
$
        Time -> [Event Message]
program Time
0 [Event Message] -> [Event Message] -> [Event Message]
forall a. [a] -> [a] -> [a]
++ Time -> Time -> [Event Message]
note Time
qn (Time -> Time
c Time
4) [Event Message] -> [Event Message] -> [Event Message]
forall a. [a] -> [a] -> [a]
++ Time -> Time -> [Event Message]
note Time
hn (Time -> Time
ds Time
4) [Event Message] -> [Event Message] -> [Event Message]
forall a. [a] -> [a] -> [a]
++ Time -> Time -> [Event Message]
note Time
qn (Time -> Time
gs Time
4) ;