hmt-0.20: Haskell Music Theory
Safe HaskellSafe-Inferred
LanguageHaskell2010

Music.Theory.Tuning.Db.Werckmeister

Description

Andreas Werckmeister (1645-1706).

Synopsis

Documentation

werckmeister_iii_ar :: [Approximate_Ratio] Source #

Approximate ratios for werckmeister_iii.

let c = [0,90,192,294,390,498,588,696,792,888,996,1092]
in map (round . ratio_to_cents) werckmeister_iii_ar == c

werckmeister_iii :: Tuning Source #

Werckmeister III, Andreas Werckmeister (1645-1706)

cents_i werckmeister_iii == [0,90,192,294,390,498,588,696,792,888,996,1092]
import Music.Theory.Tuning.Scala
scl <- scl_load "werck3"
cents_i (scale_tuning 0.01 scl) == cents_i werckmeister_iii

werckmeister_iv_ar :: [Approximate_Ratio] Source #

Approximate ratios for werckmeister_iv.

let c = [0,82,196,294,392,498,588,694,784,890,1004,1086]
in map (round . ratio_to_cents) werckmeister_iv_ar == c

werckmeister_iv :: Tuning Source #

Werckmeister IV, Andreas Werckmeister (1645-1706)

cents_i werckmeister_iv == [0,82,196,294,392,498,588,694,784,890,1004,1086]
scl <- scl_load "werck4"
cents_i (scale_tuning 0.01 scl) == cents_i werckmeister_iv

werckmeister_v_ar :: [Approximate_Ratio] Source #

Approximate ratios for werckmeister_v.

let c = [0,96,204,300,396,504,600,702,792,900,1002,1098]
in map (round . ratio_to_cents) werckmeister_v_ar == c

werckmeister_v :: Tuning Source #

Werckmeister V, Andreas Werckmeister (1645-1706)

cents_i werckmeister_v == [0,96,204,300,396,504,600,702,792,900,1002,1098]
scl <- scl_load "werck5"
cents_i (scale_tuning 0.01 scl) == cents_i werckmeister_v

werckmeister_vi_r :: [Rational] Source #

Ratios for werckmeister_vi, with supposed correction of 2825 to 4944.

let c = [0,91,186,298,395,498,595,698,793,893,1000,1097]
in map (round . ratio_to_cents) werckmeister_vi_r == c

werckmeister_vi :: Tuning Source #

Werckmeister VI, Andreas Werckmeister (1645-1706)

cents_i werckmeister_vi == [0,91,186,298,395,498,595,698,793,893,1000,1097]
scl <- scl_load "werck6"
cents_i (scale_tuning 0.01 scl) == cents_i werckmeister_vi