Composite.hs

-- | Non-primitve math Ugens.
module Sound.Sc3.Ugen.Math.Composite where

import Sound.Sc3.Common.Math.Operator

import Sound.Sc3.Ugen.Ugen
import Sound.Sc3.Ugen.Util

-- | Select /q/ or /r/ by /p/, ie. @if p == 1 then q else if p == 0 then r@.
ugen_if :: Num a => a -> a -> a -> a
ugen_if p q r = (p * q) + ((1 - p) * r)

{- | Separate input into integral and fractional parts.

>>> ugen_integral_and_fractional_parts 1.5 == mce2 1 0.5
True
-}
ugen_integral_and_fractional_parts :: Ugen -> Ugen
ugen_integral_and_fractional_parts n =
  let gt_eq_0 = let n' = floorE n in mce2 n' (n - n')
      lt_0 = let n' = ceilingE n in mce2 n' (n - n')
  in ugen_if (n `greater_than_or_equal_to` 0) gt_eq_0 lt_0

{- | Fractional midi into integral midi and cents detune.

>>> ugen_fmidi_to_midi_detune 60.5 == mce2 60 50
True
-}
ugen_fmidi_to_midi_detune :: Ugen -> Ugen
ugen_fmidi_to_midi_detune mnn =
  let (n, c) = unmce2 (ugen_integral_and_fractional_parts mnn)
  in mce2 n (c * 100)