289 lines
4.6 KiB
Nim
289 lines
4.6 KiB
Nim
import yue, std/[sugar]
|
|
|
|
const GAIN_NORMAL = 0.22
|
|
|
|
var osc: OscFn = (f, t: float) => 0.0
|
|
|
|
proc p*(len, octave, step, vol: float = 1): Note =
|
|
## 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)
|