Note helper constructor

(len, freq(octave, step), vol, osc)

osc = (f, t: float) => osc_piano(f, t) * GAIN_NORMAL

let intro = [ p(1, 3, 3), p(1, 3, 7), p(1, 3, 10), p(6, 4, 2),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(3, 4, 0),

p(1, 2, 11),
p(1, 3, 3),
p(1, 3, 6),
p(3, 3, 10),

p(1, 2, 8),
p(1, 3, 0),
p(1, 3, 3),
p(8, 3, 7),

]

let outro = [ p(1, 3, 3), p(1, 3, 7), p(1, 3, 10), p(1, 4, 2), p(1, 4, 3), p(1, 4, 7), p(2, 4, 8),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(1, 4, 0),
p(1, 4, 1),
p(1, 4, 5),
p(2, 4, 8),

p(1, 2, 11),
p(1, 3, 3),
p(1, 3, 6),
p(1, 3, 10),
p(1.5, 3, 11),
p(1.5, 4, 3),
p(3, 4, 8),

p(1.5, 2, 8),
p(1.5, 3, 0),
p(2, 3, 3),
p(16, 3, 7, 2),

]

let melody = [ p(1, 3, 3), p(1, 3, 7), p(1, 3, 10), p(1, 4, 2), p(1, 4, 3), p(1, 4, 7), p(2, 4, 8),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(1, 4, 0),
p(1, 4, 1),
p(1, 4, 5),
p(2, 4, 8),

p(1, 3, 3),
p(1, 3, 7),
p(1, 3, 10),
p(1, 4, 2),
p(1, 4, 3),
p(1, 4, 10),
p(2, 4, 3),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(1, 4, 0),
p(1, 4, 10),
p(1, 4, 8),
p(2, 4, 10),


p(1, 3, 3),
p(1, 3, 7),
p(1, 3, 10),
p(1, 4, 2),
p(1, 4, 3),
p(1, 4, 7),
p(2, 4, 8),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(1, 4, 0),
p(1, 4, 1),
p(1, 4, 5),
p(2, 4, 1),

p(1, 3, 3),
p(1, 3, 7),
p(1, 3, 10),
p(1, 4, 2),
p(1, 4, 3),
p(1, 4, 10),
p(1, 4, 8),
p(1, 4, 7),

p(1, 3, 1),
p(1, 3, 5),
p(1, 3, 8),
p(1, 4, 0),
p(1, 4, 10),
p(1, 4, 8),
p(2, 4, 10),

]

osc = (f, t: float) => osc_weird_pluck(f, t) * GAIN_NORMAL

let melody2 = [ p(1, 0, 0), p(1, 5, 10), p(1, 5, 8), p(1, 5, 7), p(1, 5, 8), p(3, 5, 7, 2),

p(1, 5, 3),
p(1, 4, 10),
p(6, 5, 1, 2),

p(1/2, 5, 0, 2),
p(1/2, 5, 1, 2),
p(3, 5, 3, 2),
p(1/2, 5, 10, 2),
p(7/2, 5, 3, 2),

p(8, 0, 0),

p(1, 0, 0),
p(1, 5, 3),
p(1, 5, 10),
p(1, 5, 10),
p(4/3, 5, 10),
p(4/3, 5, 8),
p(4/3, 5, 7),

p(1, 0, 0),
p(1, 5, 1),
p(1, 5, 8),
p(1, 5, 8),
p(4/3, 5, 8),
p(4/3, 5, 8),
p(4/3, 5, 10),

p(8, 0, 0),

p(1, 0, 0),
p(5, 5, 3, 2),
p(2, 5, 10, 2),

]

let melody3 = [ p(1, 0, 0), p(1, 5, 10), p(1/2, 5, 8, 2/3), p(1/2, 5, 7, 2/3), p(1/4, 5, 8, 1/2), p(1/4, 5, 7, 1/2), p(1/4, 5, 8, 1/2), p(1/4, 5, 7, 1/2), p(1, 5, 8), p(3, 5, 7, 2),

p(1, 5, 3),
p(1, 4, 10),
p(1, 5, 1),
p(5, 5, 7, 2),

p(1/2, 5, 7),
p(1/2, 5, 10),
p(1/4, 5, 7),
p(1/4, 5, 10),
p(1/4, 5, 7),
p(1/4, 5, 10),
p(1, 6, 3),
p(2, 5, 3, 2),
p(1/2, 6, 3),
p(5/2, 5, 3, 2),

p(1/2, 5, 10),
p(1/2, 5, 8),
p(1/2, 5, 7),
p(1/2, 5, 8),
p(1/2, 5, 7),
p(1/2, 5, 3),
p(1/2, 4, 10),
p(1/2, 5, 1),
p(1/2, 5, 0),
p(1/2, 4, 10),
p(1/2, 4, 8),
p(1/2, 4, 10),
p(1/2, 5, 3),
p(1/2, 5, 7),
p(1/2, 5, 3),
p(1/2, 5, 10),

p(4/3, 5, 7),
p(4/3, 6, 3),
p(4/3, 6, 3),
p(4/3, 6, 2),
p(4/3, 5, 10),
p(4/3, 5, 7),

p(3, 5, 5),
p(2, 5, 7),
p(2, 5, 8),
p(1, 6, 1),

p(1, 5, 3),
p(1, 5, 5),
p(2, 5, 7),
p(1, 5, 3),
p(1, 5, 8),
p(2, 5, 10),

p(3/2, 6, 0),
p(3/2, 6, 1),
p(5, 6, 3, 2),

]

clip length to 1 second

osc = (f, t: float) => (if t > 1: 0.0 else: (osc_saw(f, t) * GAIN_NORMAL * 0.06) + (osc_pulse(f, t) * GAIN_NORMAL * 0.3))

let bass = [ p(1, 1, 3), p(1, 1, 10), p(1, 1, 1), p(1, 1, 8), p(1, 1, 3), p(1, 2, 3), p(1, 1, 1), p(1, 1, 10), ]

from std/algorithm import sort

Process all lists of notes

var music: seq[ProcessedNote] = @[] music.process(intro, 0, 4) music.process(melody, 8, 4) music.process(melody, 24, 4) music.process(bass, 24) music.process(bass, 32) music.process(melody, 40, 4) music.process(melody2, 40, 4) music.process(bass, 40) music.process(bass, 48) music.process(melody, 56, 4) music.process(melody3, 56, 4) music.process(bass, 56) music.process(bass, 64) music.process(outro, 72, 4) music.sortByStart()

Number of times to sample each second

const bitrate = 44100

Print out music encoded in s32 to standard output

for i in (0 * bitrate ..< 84 * bitrate): let bytes = cast[array[4, uint8]](music.at(i / bitrate)) doAssert 4 == stdout.writeBytes(bytes, 0, 4)