Add frequency in equal temperament (#24)

JuliaMusic · Jan 20, 2024 · 61aa313 · 61aa313
1 parent e99fdc1
commit 61aa313
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/src/MusicTheory.jl b/src/MusicTheory.jl
@@ -27,4 +27,5 @@ include("scales.jl")
 include("chords.jl")
 include("triads.jl")
 include("notes.jl")
+include("equal_temperament.jl")
 end
diff --git a/src/equal_temperament.jl b/src/equal_temperament.jl
@@ -0,0 +1,13 @@
+abstract type Temperament end
+
+struct EqualTemperament
+    base_pitch::Pitch
+    base_frequency::Float64
+end
+
+
+function frequency(temperament::EqualTemperament, pitch::Pitch)
+    semitone_distance = semitone(pitch) - semitone(temperament.base_pitch)
+    return 2.0^(semitone_distance // 12) * temperament.base_frequency
+end
+
diff --git a/test/equal_temperament.jl b/test/equal_temperament.jl
@@ -0,0 +1,5 @@
+@testest "Equal temperament" begin
+    temperament = EqualTemperament(A[4], 440)
+
+    @test frequency(temperament, C[4]) == 261.6255653005986
+end