Sound.MIDI.ALSA.EventList

Documentation

ioToLazyList :: IO a -> IO [a]

inputEventsCore :: ReaderT Handle IO [T]

inputEvents :: ReaderT Handle IO (T Time Data)

pairListFromRelativeEvents :: T Time a -> [(TimeAbs, a)]

outputEvent :: TimeAbs -> Data -> ReaderT Handle IO ()

outputEvents :: T Time Data -> ReaderT Handle IO ()

outputEventBundles :: T Time EventDataBundle -> ReaderT Handle IO ()

Sends (drain) each event individually since the events in the bundle might be created in a lazy manner.

outputEventBundled :: T Time EventDataBundle -> ReaderT Handle IO ()

data Trigger a

Constructors

Regular a

Trigger

Instances

Functor Trigger

Foldable Trigger

Traversable Trigger

type EventDataTrigger = Bundle (Trigger Data)

makeTriggerEvent :: Handle -> TimeAbs -> Trigger Data -> T

makeTriggerEvents :: Handle -> TimeAbs -> EventDataTrigger -> [T]

outputTriggerEvents :: T Time EventDataTrigger -> ReaderT Handle IO ()

This function distinguishes between events from portIn and events that are generated by us. Our generated events must also send an echo to the input port in order to break event_input and thus trigger their delivery.

mergeGenerated :: T Time (Bundle a) -> T Time (Bundle a) -> T Time (Bundle (Trigger a))

equidistantEvents :: Time -> [a] -> T Time a

whirl :: T Time EventDataBundle

mergeGeneratedAtoms :: (Time -> a) -> T Time a -> T Time a -> T Time a

pattern :: Selector i -> [i] -> Time -> T Time Data -> T Time EventDataTrigger

patternTempo :: Selector i -> [i] -> ((Channel, Controller), (Time, Time, Time)) -> T Time Data -> T Time EventDataTrigger

patternMultiTempo :: Selector i -> T Int [IndexNote i] -> ((Channel, Controller), (Time, Time, Time)) -> T Time Data -> T Time EventDataTrigger

This allows more complex patterns including pauses, notes of different lengths and simultaneous notes.

sweep :: Channel -> Time -> (Controller, (Time, Time)) -> Controller -> Controller -> (Double -> Double) -> T Time Data -> T Time EventDataTrigger

Automatically changes the value of a MIDI controller every period seconds according to a periodic wave. The wave function is a mapping from the phase in [0,1) to a controller value in the range (-1,1). The generation of the wave is controlled by a speed controller (minSpeed and maxSpeed are in waves per second), the modulation depth and the center value. The center controller is also the one where we emit our wave. That is, when modulation depth is zero then this effect is almost the same as forwarding the controller without modification. The small difference is, that we emit a controller value at a regular pattern, whereas direct control would mean that only controller value changes are transfered.

 sweep channel
    period (speedCtrl, (minSpeed, maxSpeed)) depthCtrl centerCtrl
    (ctrlRange (-1,1) (sin . (2*pi*)))

We could use the nice Wave abstraction from the synthesizer package, but that's a heavy dependency because of multi-parameter type classes.

combinators

filter :: (a -> Bool) -> State (T Time (Bundle a)) (T Time (Bundle a))

The function maintains empty bundles in order to maintain laziness breaks. These breaks are import for later merging of the streams.

filterSimple :: (a -> Bool) -> T Time (Bundle a) -> T Time (Bundle a)

merge :: T Time (Bundle a) -> T Time (Bundle a) -> T Time (Bundle a)

run filters

process :: (T Time Data -> T Time EventDataTrigger) -> ReaderT Handle IO ()

processSimple :: (T Time Data -> T Time EventDataBundle) -> ReaderT Handle IO ()

runWhirl :: ReaderT Handle IO ()

runDelay :: ReaderT Handle IO ()

runKeyboardSplit :: ReaderT Handle IO ()

runKeyboardSplitLow :: ReaderT Handle IO ()

runKeyboardSplitHigh :: ReaderT Handle IO ()

runNote :: Channel -> Time -> Velocity -> Pitch -> ReaderT Handle IO ()

runKey :: Channel -> Bool -> Velocity -> Pitch -> ReaderT Handle IO ()

runController :: Channel -> Controller -> Int -> ReaderT Handle IO ()

runProgram :: Channel -> Program -> ReaderT Handle IO ()

runCyclePrograms :: [Program] -> ReaderT Handle IO ()

 runCyclePrograms (map VoiceMsg.toProgram [8..12])

runProgramsAsBanks :: [Int32] -> ReaderT Handle IO ()

 runProgramsAsBanks [8,4,4]

runPattern :: Time -> Pattern i -> ReaderT Handle IO ()

 runPattern 0.12 (cycleUp 4)

runPatternTempo :: Time -> Pattern i -> ReaderT Handle IO ()

 runPatternTempo 0.12 (cycleUp 4)

 runPatternTempo 0.2 (selectFromOctaveChord, cycle [0,1,2,0,1,2,0,1])

runPatternMultiTempo :: Time -> PatternMulti i -> ReaderT Handle IO ()

 runPatternMultiTempo 0.1 (selectFromLimittedChord, let pat = [item 0 1] ./ 1 /. [item 1 1] ./ 2 /. [item 1 1] ./ 1 /. [item 0 1] ./ 2 /. pat in 0 /. pat)

runFilterSweep :: ReaderT Handle IO ()

main :: IO ()