Sound.SC3.Lang.Control.Midi

Trivial midi functions.

Bits

b_join :: Bits a => a -> a -> a

Join two 7-bit values into a 14-bit value.

map (uncurry b_join) [(0,0),(0,64),(127,127)] == [0,8192,16383]

b_sep :: (Num t, Bits t) => t -> (t, t)

Inverse of b_join.

map b_sep [0,8192,16383] == [(0,0),(0,64),(127,127)]

Types

data Midi_Message a

http://www.midi.org/techspecs/midimessages.php

Constructors

Chanel_Aftertouch a a

Control_Change a a a

Note_On a a a

Note_Off a a a

Polyphic_Key_Pressure a a a

Program_Change a a

Pitch_Bend a a

Unknown [a]

Instances

Eq a => Eq (Midi_Message a)

Show a => Show (Midi_Message a)

data Control_Message a

Control_Change midi messages have, in some cases, commonly defined meanings.

Constructors

All_Notes_Off a

All_Sound_Off a

Balance a a

Bank_Select a a

Breath_Controller a a

Expression_Controller a a

Foot_Controller a a

Local_Control a a

Modulation_Wheel a a

Mono_Mode_On a a

Omni_Mode_Off a

Omni_Mode_On a

Pan a a

Poly_Mode_On a

Portamento_On_Off a a

Portamento_Time a a

Reset_All_Controllers a a

Soft_Pedal_On_Off a a

Sostenuto_On_Off a a

Sustain_On_Off a a

Undefined

Instances

Eq a => Eq (Control_Message a)

Show a => Show (Control_Message a)

control_message :: (Eq a, Num a) => (a, a, a) -> Control_Message a

Control_Change midi messages may, in some cases, have commonly defined meanings.

control_message (0,123,0) == All_Notes_Off 0

OSC

parse_b :: Integral n => Message -> [n]

Parse midi-osc midi message.

parse_c :: Integral n => Message -> [n]

Variant of parse_b that give status byte as low and high.

parse_m :: (Bits n, Integral n) => Message -> Midi_Message n

Variant of parse_c that constructs a Midi_Message.

SC3

type Node_Id = Int

SC3 node identifiers are integers.

data KY a

Map of allocated Node_Ids. For a single input controller, key events always arrive in sequence (ie. on->off), ie. for any key on message we can allocate an ID and associate it with the key, an off message can retrieve the ID given the key.

Constructors

KY (Map a Node_Id) Node_Id

ky_init :: Node_Id -> KY a

Initialise KY with starting Node_Id.

ky_alloc :: Ord a => KY a -> a -> (KY a, Node_Id)

KY Node_Id allocator.

ky_free :: Ord a => KY a -> a -> (KY a, Node_Id)

KY Node_Id removal.

ky_get :: Ord a => KY a -> a -> Node_Id

Lookup Node_Id.

ky_all :: KY a -> [Node_Id]

All Node_Id.

IO (midi-osc)

type Midi_Init_f st = UDP -> IO st

type Midi_Recv_f st = UDP -> st -> Midi_Message Int -> IO st

Midi_Recv_f is passed the SC3 connection, the user state, a Midi_Message and, for Note_On and Note_Off messages, a Node_Id.

midi_act :: Midi_Recv_f st -> UDP -> st -> Message -> IO st

Parse incoming midi messages and run Midi_Receiver.

run_midi :: Midi_Init_f st -> Midi_Recv_f st -> IO ()

Connect to midi-osc and sc3, run initialiser, and then receiver for each incoming message.

Monad

iterateM_ :: Monad m => st -> (st -> m st) -> m ()