tutorial/7_midi.lua at master · neauoire/tutorial · GitHub

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
--
--   ////\\\\
--   ////\\\\  TUTORIAL
--   ////\\\\  PART 7
--   \\\\////
--   \\\\////  MIDI
--   \\\\////
--

engine.name = 'OutputTutorial'

local midi_signal_in
local midi_signal_out
local viewport = { width = 128, height = 64, frame = 0 }

-- Main

function init()
  connect()
  -- Render Style
  screen.level(15)
  screen.aa(0)
  screen.line_width(1)
  -- Render
  redraw()
end

function connect()
  midi_signal_in = midi.connect(1)
  midi_signal_in.event = on_midi_event
  midi_signal_out = midi.connect(2)
end

function on_midi_event(data)
  msg = midi.to_msg(data)
  play(msg)
  redraw(msg)
end

function play(msg)
  if msg.type == 'note_on' then
    hz = note_to_hz(msg.note)
    engine.amp(msg.vel / 127)
    engine.hz(hz)
  end
end

-- Interactions

function key(id,state)
  if state == 1 and midi_signal_out then
    midi_signal_out:note_on(60,127)
  elseif midi_signal_ then
    midi_signal_out:note_off(60,127)
  end
  redraw()
end

function enc(id,delta)
  redraw()
end

-- Render

function draw_frame()
  screen.level(15)
  screen.rect(1, 1, viewport.width-1, viewport.height-1)
  screen.stroke()
end

function draw_labels()
  local line_height = 8
  screen.level(1)
  screen.move(5,viewport.height - (line_height * 1))
  screen.text('note')
  screen.move(5,viewport.height - (line_height * 2))
  screen.text('ch')
  screen.move(5,viewport.height - (line_height * 3))
  screen.text('vel')
  screen.move(5,viewport.height - (line_height * 4))
  screen.text('type')
end

function draw_event(event)
  local line_height = 8
  screen.level(15)
  if event.note then
    screen.move(30,viewport.height - (line_height * 1))
    screen.text(msg.note)
  end
  if event.ch then
    screen.move(30,viewport.height - (line_height * 2))
    screen.text(msg.ch)
  end
  if event.vel then
    screen.move(30,viewport.height - (line_height * 3))
    screen.text(msg.vel)
  end
  if event.type then
    screen.move(30,viewport.height - (line_height * 4))
    screen.text(msg.type)
  end
end

function redraw(event)
  screen.clear()
  draw_frame()
  draw_labels()
  if event then
    draw_event(event)
  end
  screen.stroke()
  screen.update()
end

-- Utils

function clamp(val,min,max)
  return val < min and min or val > max and max or val
end

function note_to_hz(note)
  return (440 / 32) * (2 ^ ((note - 9) / 12))
end