{-# OPTIONS_HADDOCK show-extensions #-}
module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG24Old (
procBoth4F
, procBoth4FF
, procBoth4InvF
, procBoth4InvFF
) where
import Phonetic.Languages.Array.Ukrainian.Common
import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
import Phonetic.Languages.Basis
import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
import Melodics.Ukrainian.ArrInt8
import GHC.Arr (Array)
import GHC.Int (Int8)
procBoth4F
:: (Ord c) => (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth4F :: (Double -> c) -> Coeffs2 -> FuncRep2 String Double c
procBoth4F Double -> c
g Coeffs2
coeffs = (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
forall c.
Ord c =>
(Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
procB2F Double -> c
g [[[Sound8]]] -> [[Double]]
SD.syllableDurationsD4 Coeffs2
coeffs
{-# INLINE procBoth4F #-}
procBoth4InvF
:: (Ord c) => (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth4InvF :: (Double -> c) -> Coeffs2 -> FuncRep2 String Double c
procBoth4InvF Double -> c
g Coeffs2
coeffs = (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
forall c.
Ord c =>
(Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
procB2InvF Double -> c
g [[[Sound8]]] -> [[Double]]
SD.syllableDurationsD4 Coeffs2
coeffs
{-# INLINE procBoth4InvF #-}
procBoth4FF
:: (Ord c) => Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth4FF :: Double -> (Double -> c) -> Coeffs2 -> FuncRep2 String Double c
procBoth4FF Double
k Double -> c
g Coeffs2
coeffs = Double
-> (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
forall c.
Ord c =>
Double
-> (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
procB2FF Double
k Double -> c
g [[[Sound8]]] -> [[Double]]
SD.syllableDurationsD4 Coeffs2
coeffs
{-# INLINE procBoth4FF #-}
procBoth4InvFF
:: (Ord c) => Double
-> (Double -> c)
-> Coeffs2
-> FuncRep2 String Double c
procBoth4InvFF :: Double -> (Double -> c) -> Coeffs2 -> FuncRep2 String Double c
procBoth4InvFF Double
k Double -> c
g Coeffs2
coeffs = Double
-> (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
forall c.
Ord c =>
Double
-> (Double -> c)
-> ([[[Sound8]]] -> [[Double]])
-> Coeffs2
-> FuncRep2 String Double c
procB2InvFF Double
k Double -> c
g [[[Sound8]]] -> [[Double]]
SD.syllableDurationsD4 Coeffs2
coeffs
{-# INLINE procBoth4InvFF #-}