Aberrismic theory: Difference between revisions
m →Code |
m →Code |
||
| Line 79: | Line 79: | ||
-- `k`\`edo` in cents. | -- `k`\`edo` in cents. | ||
stepsOfEdoInCents :: Int -> Int -> | stepsOfEdoInCents :: Int -> Int -> Double | ||
stepsOfEdoInCents k edo = 1200*fromIntegral k/fromIntegral edo | stepsOfEdoInCents k edo = 1200*fromIntegral k/fromIntegral edo | ||
| Line 85: | Line 85: | ||
where the tuning's s step satisfies the bound `aberLower` <= s <= `aberUpper`. | where the tuning's s step satisfies the bound `aberLower` <= s <= `aberUpper`. | ||
Non-coprime step ratios are reduced. -} | Non-coprime step ratios are reduced. -} | ||
boundedEdosWithAberrismicScale :: Int -> | boundedEdosWithAberrismicScale :: Int -> Double -> Double -> Int -> Int -> Int -> [(Int, (Int, Int, Int))] | ||
boundedEdosWithAberrismicScale edoBound aberLower aberUpper countL countM countS = | boundedEdosWithAberrismicScale edoBound aberLower aberUpper countL countM countS = | ||
let | let | ||