{- | Plain notation for SuperCollider Ugen graphs.

> s = ugen "SinOsc" ar [440,0] 1
> m = binop CI "*" ar s 0.1
> o = ugen "Out" ar [0,m] 0
> map ugen_concise_pp [s, m, o]
-}
module Sound.Sc3.Ugen.Plain where

import Sound.Sc3.Common.Base
import Sound.Sc3.Common.Math.Operator
import Sound.Sc3.Common.Rate

import Sound.Sc3.Ugen.Types

-- | Variant of 'mkUgen'.
mk_plain :: Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain :: Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain Rate
rt String
nm [Ugen]
inp = Maybe ([Sample] -> Sample)
-> [Rate]
-> Either Rate [Int]
-> String
-> [Ugen]
-> Maybe [Ugen]
-> Int
-> Special
-> UgenId
-> Ugen
mkUgen forall a. Maybe a
Nothing [Rate]
all_rates (forall a b. a -> Either a b
Left Rate
rt) String
nm [Ugen]
inp forall a. Maybe a
Nothing

{- | Construct unary operator.

> uop CI "Neg" ar 1
-}
uop :: Case_Rule -> String -> Rate -> Ugen -> Ugen
uop :: Case_Rule -> String -> Rate -> Ugen -> Ugen
uop Case_Rule
cr String
nm Rate
r Ugen
p =
    case Case_Rule -> String -> Maybe Int
unaryIndex Case_Rule
cr String
nm of
      Just Int
s -> Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain Rate
r String
"UnaryOpUGen" [Ugen
p] Int
1 (Int -> Special
Special Int
s) UgenId
NoId
      Maybe Int
Nothing -> forall a. HasCallStack => String -> a
error String
"uop"

{- | Construct binary operator.

> binop CI "*" ar 1 2 == binop CI "Mul" ar 1 2
> binop CS "*" ar (ugen "SinOsc" ar [440,0] 1) 0.1 == sinOsc ar 440 0 * 0.1
-}
binop :: Case_Rule -> String -> Rate -> Ugen -> Ugen -> Ugen
binop :: Case_Rule -> String -> Rate -> Ugen -> Ugen -> Ugen
binop Case_Rule
cr String
nm Rate
r Ugen
p Ugen
q =
    case Case_Rule -> String -> Maybe Int
binaryIndex Case_Rule
cr String
nm of
      Just Int
s -> Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain Rate
r String
"BinaryOpUGen" [Ugen
p,Ugen
q] Int
1 (Int -> Special
Special Int
s) UgenId
NoId
      Maybe Int
Nothing -> forall a. HasCallStack => String -> a
error String
"binop"

{- | Construct deterministic Ugen.

> let o = ugen "SinOsc" ar [440,0] 1
> o == sinOsc ar 440 0
> ugen "Out" ar [0, o] 0 == out 0 (sinOsc ar 440 0)
-}
ugen :: String -> Rate -> [Ugen] -> Int -> Ugen
ugen :: String -> Rate -> [Ugen] -> Int -> Ugen
ugen String
nm Rate
r [Ugen]
i Int
nc = Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain Rate
r String
nm [Ugen]
i Int
nc (Int -> Special
Special Int
0) UgenId
NoId

{- | Construct non-deterministic Ugen.

> import Sound.Sc3.Common.Uid
> binop CI "*" ar (nondet "WhiteNoise" (Uid (fromEnum 'α')) ar [] 1) 0.05
-}
nondet :: String -> UgenId -> Rate -> [Ugen] -> Int -> Ugen
nondet :: String -> UgenId -> Rate -> [Ugen] -> Int -> Ugen
nondet String
nm UgenId
z Rate
r [Ugen]
i Int
nc = Rate -> String -> [Ugen] -> Int -> Special -> UgenId -> Ugen
mk_plain Rate
r String
nm [Ugen]
i Int
nc (Int -> Special
Special Int
0) UgenId
z