module Sound.SC3.Server.Enum where
data AddAction = AddToHead
| AddToTail
| AddBefore
| AddAfter
| AddReplace
deriving (Eq,Show,Enum)
data ErrorScope = Globally
| Locally
deriving (Eq,Show,Enum)
data ErrorMode = ErrorsOff
| ErrorsOn
deriving (Eq,Show,Enum)
data PrintLevel = NoPrinter
| TextPrinter
| HexPrinter
| AllPrinter
deriving (Eq,Show,Enum)
data SoundFileFormat = Aiff | Flac | Ircam | Next | Raw | Wave
deriving (Enum, Eq, Read, Show)
data SampleFormat =
PcmInt8 | PcmInt16 | PcmInt24 | PcmInt32
| PcmFloat | PcmDouble
| PcmMulaw | PcmAlaw
deriving (Enum, Eq, Read, Show)
soundFileFormatString :: SoundFileFormat -> String
soundFileFormatString f =
case f of
Aiff -> "aiff"
Flac -> "flac"
Ircam -> "ircam"
Next -> "next"
Raw -> "raw"
Wave -> "wav"
sampleFormatString :: SampleFormat -> String
sampleFormatString f =
case f of
PcmInt8 -> "int8"
PcmInt16 -> "int16"
PcmInt24 -> "int24"
PcmInt32 -> "int32"
PcmFloat -> "float"
PcmDouble -> "double"
PcmMulaw -> "mulaw"
PcmAlaw -> "alaw"