module Synthesizer.Modifiers
  ( applyAmplitude
  ) where

import Synthesizer.Structure (Sample)

-- | Change the amplitude of a sample list
applyAmplitude :: Double     -- ^ The multiplier of the amplitude
               -> [Double]   -- ^ The list of sampled points
               -> [Double]
applyAmplitude :: Double -> [Double] -> [Double]
applyAmplitude Double
amount = (Double -> Double) -> [Double] -> [Double]
forall a b. (a -> b) -> [a] -> [b]
map (Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
amount)