audio/music

import audio.music
import math
import mem

func main:
    println music.A4Note, music.A4Freq
    println music.NoteToFreq(69), music.NoteToFreq(81), music.NoteToFreq(57)
    println math.Abs(music.NoteToFreq(60) - 261.6255653005986) < 0.0001
    println music.FreqToNote(440.0), music.FreqToNote(261.63), music.FreqToNote(0.0)
    println music.Octave(60), music.PitchClass(61), music.PitchClass(-1)
    println music.Transpose(60, 7), music.Interval(60, 67)
    println music.Cents(440.0, 880.0), music.FreqToCents(440.0, 69)
    println music.NoteToFreqCents(69, 1200.0)

    each n in [60, 61, 69, 127]:
        name := music.NoteName(n)
        println name, music.ParseNote(name) == n
        mem.Free(name as void*)
    end
    println music.ParseNote("c4"), music.ParseNote("Db4")
    println music.ParseNote("x9"), music.ParseNote(""), music.ParseNote("C")
    println music.BeatSeconds(120.0), music.BeatSeconds(0.0)
end

import audio.music

func main:
    mut maj := music.Scale(music.ScaleMajor)
    println maj.len(), maj.get(0), maj.get(6)
    maj.free()
    mut minor := music.Scale(music.ScaleMinor)
    println minor.get(2), minor.get(5)
    minor.free()
    mut chrom := music.Scale(music.ScaleChromatic)
    println chrom.len()
    chrom.free()
    mut pent := music.Scale(music.ScalePentatonic)
    println pent.len()
    pent.free()
    mut blues := music.Scale(music.ScaleBlues)
    println blues.len(), blues.get(3)
    blues.free()
    mut dor := music.Scale(music.ScaleDorian)
    println dor.get(2), dor.get(6)
    dor.free()

    mut run := music.ScaleNotes(60, music.ScaleMajor, 8)
    println run.len(), run.get(0), run.get(7)
    run.free()

    mut tri := music.ChordNotes(60, music.ChordMajor)
    println tri.len(), tri.get(1), tri.get(2)
    tri.free()
    mut m7 := music.ChordNotes(60, music.ChordMinor7)
    println m7.len(), m7.get(3)
    m7.free()
    mut dim := music.Chord(music.ChordDiminished)
    println dim.get(2)
    dim.free()
    mut sus := music.Chord(music.ChordSus4)
    println sus.get(1)
    sus.free()
    mut aug := music.Chord(music.ChordAugmented)
    println aug.get(2)
    aug.free()
    mut dom := music.Chord(music.ChordDominant7)
    println dom.get(3)
    dom.free()
end

import audio.music

func main:
    mut shur := music.Dastgah(music.DastgahShur)
    println shur.len(), shur.get(0), shur.get(2), shur.get(6)
    shur.free()
    mut mahur := music.Dastgah(music.DastgahMahur)
    println mahur.get(2)
    mahur.free()
    mut homayoun := music.Dastgah(music.DastgahHomayoun)
    println homayoun.get(1)
    homayoun.free()
    mut segah := music.Dastgah(music.DastgahSegah)
    println segah.get(2)
    segah.free()

    println music.KoronCents, music.SoriCents

    mut freqs := music.DastgahFreqs(60, music.DastgahShur)
    println freqs.len()
    println freqs.get(0) == music.NoteToFreq(60)
    println freqs.get(2) > music.NoteToFreq(63), freqs.get(2) < music.NoteToFreq(64)
    freqs.free()

    println music.JustRatio(0), music.JustRatio(7), music.JustRatio(4)
    println music.PythagoreanRatio(0), music.PythagoreanRatio(7), music.PythagoreanRatio(2)
    println music.JustFreq(69, 7)
end