live-sequencer-0.0: data/Sweep.hs

module Sweep where

import Chords
import Pitch
import Midi
import List
import Prelude ( Integer, (+), (-) )

main :: [Event (Channel Message)] ;
main = channel 0 ( merge control voice ) ;

wn :: Time ;
wn = 2000 ;

voice, control :: [Event Message] ;
voice =
    program 4
    ++
    cycle
        ( concat [
            chord4 wn (c 4) (e 4) (g 4) (c 5),
            chord4 wn (b 3) (e 4) (g 4) (b 4),
            chord4 wn (c 4) (f 4) (a 4) (c 5)
        ] ) ;

cutoff :: Midi.Controller ;
cutoff = 70 ;

control = controlCurve 50 cutoff ( cycle triangle ) ;

triangle :: [ Integer ] ;
triangle = rampUp 0 ++ rampDown 127 ;

rampUp, rampDown :: Integer -> [ Integer ] ;
rampUp 127 = [] ;
rampUp n = n : rampUp (n+1) ;

rampDown 0 = [] ;
rampDown n = n : rampDown (n-1) ;