Safe Haskell	Safe-Inferred

Synth.Sampler.Render

Contents

State
effect
util

Description

Render Sample.Notes down to audio.

Synopsis

data Config = Config {
- _quality :: !Quality
- _chunkSize :: !Frames
- _blockSize :: !Frames
- _controlsPerBlock :: !Frames
- _emitProgress :: !Bool
}
type Error = Text
defaultConfig :: Quality -> Config
data InstrumentEffect = InstrumentEffect {
- _effectPatch :: !EffectC.Patch
- _effectConfig :: !Patch.EffectConfig
}
write :: Config -> FilePath -> Set Id.TrackId -> Maybe.Maybe InstrumentEffect -> [Sample.Note] -> IO (Either Error (Config.ChunkNum, Config.ChunkNum))
toSpan :: Sample.Note -> Checkpoint.Span
data Playing = Playing {
- _noteHash :: !Note.Hash
- _getState :: IO PlayState
- _audio :: !AUtil.Audio
- _noteRange :: !(Frames, Frames)
}
renderAll :: Config -> FilePath -> State -> IORef.IORef State -> Set Id.TrackId -> Maybe.Maybe InstrumentEffect -> Frames -> [Sample.Note] -> AUtil.Audio
renderNotes :: Config -> FilePath -> [PlayState] -> ([PlayState] -> IO ()) -> Set Id.TrackId -> Frames -> [Sample.Note] -> [Sample.Note] -> [Sample.Note] -> AUtil.Audio
pull :: Frames -> Frames -> [Playing] -> Resource.ResourceT IO ([Audio.Block], [Playing])
resumeSamples :: Config -> Frames -> [PlayState] -> [Sample.Note] -> IO [Playing]
eNote :: Sample.Note -> (Text, Text, Signal.Signal, FilePath)
startSample :: Config -> Frames -> Maybe.Maybe PlayState -> Sample.Note -> IO Playing
overlappingNotes :: Frames -> Frames -> [Sample.Note] -> ([Sample.Note], [Sample.Note], [Sample.Note])
data State = State {
- _playStates :: [PlayState]
- _effectState :: Maybe.Maybe EffectC.State
}
emptyState :: State
serializeState :: State -> Checkpoint.State
unserializeState :: Checkpoint.State -> Either Error State
getPlayStates :: [Playing] -> IO [PlayState]
data PlayState
- = NoResample
- | Resample !ResampleState
- | Complete
data ResampleState = ResampleState {
- _filename :: !Sample.SamplePath
- _offset :: !Frames
- _resampleState :: !SavedState
}
applyEffect :: Config -> Frames -> Maybe.Maybe EffectC.State -> (EffectC.State -> IO ()) -> [Sample.Note] -> InstrumentEffect -> AUtil.Audio -> AUtil.Audio
renderControls :: Monad m => Effect.Config -> [Control.Control] -> RealTime -> [Sample.Note] -> Map Control.Control (Audio.Audio m rate 1)
extractControls :: Frames -> [Control.Control] -> [Sample.Note] -> Map Control.Control [(Double, Double)]
prettyF :: Frames -> Text

Documentation

data Config Source #

Constructors

Config
Fields _quality :: !Quality _chunkSize :: !Frames _blockSize :: !Frames _controlsPerBlock :: !Frames _emitProgress :: !Bool Optionally suppress structured progress messages, used by karya.

type Error = Text Source #

defaultConfig :: Quality -> Config Source #

data InstrumentEffect Source #

An instrument level faust processor.

Constructors

InstrumentEffect
Fields _effectPatch :: !EffectC.Patch _effectConfig :: !Patch.EffectConfig

write Source #

Arguments

:: Config
-> FilePath
-> Set Id.TrackId
-> Maybe.Maybe InstrumentEffect
-> [Sample.Note]
-> IO (Either Error (Config.ChunkNum, Config.ChunkNum))	(writtenChunks, totalChunks)

toSpan :: Sample.Note -> Checkpoint.Span Source #

data Playing Source #

A currently playing sample.

Constructors

Playing
Fields _noteHash :: !Note.Hash _getState :: IO PlayState Get the current state of the resample. NOTE [audio-state] _audio :: !AUtil.Audio _noteRange :: !(Frames, Frames)

Instances

Instances details

Pretty.Pretty Playing Source #
Instance details Defined in Synth.Sampler.Render Methods pretty :: Playing -> Text Source # format :: Playing -> Doc Source # formatList :: [Playing] -> Doc Source #

renderAll :: Config -> FilePath -> State -> IORef.IORef State -> Set Id.TrackId -> Maybe.Maybe InstrumentEffect -> Frames -> [Sample.Note] -> AUtil.Audio Source #

renderNotes :: Config -> FilePath -> [PlayState] -> ([PlayState] -> IO ()) -> Set Id.TrackId -> Frames -> [Sample.Note] -> [Sample.Note] -> [Sample.Note] -> AUtil.Audio Source #

pull :: Frames -> Frames -> [Playing] -> Resource.ResourceT IO ([Audio.Block], [Playing]) Source #

Get chunkSize from each Playing, and remove Playings which no longer are.

resumeSamples :: Config -> Frames -> [PlayState] -> [Sample.Note] -> IO [Playing] Source #

eNote :: Sample.Note -> (Text, Text, Signal.Signal, FilePath) Source #

Extract from Note for pretty-printing.

startSample Source #

Arguments

:: Config
-> Frames
-> Maybe.Maybe PlayState	If Just Just, resume a playing sample which should have started <=now, otherwise start a new one which should start >= now. If Just NoResample, this is a resuming sample, but it wasn't resampled, so there's no resampler state.
-> Sample.Note
-> IO Playing

Convert Sample.Note to a Playing.

overlappingNotes :: Frames -> Frames -> [Sample.Note] -> ([Sample.Note], [Sample.Note], [Sample.Note]) Source #

This is similar to Checkpoint.splitOverlapping, but it differentiates notes that overlap the starting time.

State

data State Source #

Constructors

State
Fields _playStates :: [PlayState] These must be sorted in _noteHash order, since the resume will then sort again by Sample.hash to match them back up. This is because I don't enforce invariants on the order of simultaneous notes, so they may vary across renders. `getPlayStates` does this. _effectState :: Maybe.Maybe EffectC.State

Instances

Instances details

Pretty.Pretty State Source #
Instance details Defined in Synth.Sampler.Render Methods pretty :: State -> Text Source # format :: State -> Doc Source # formatList :: [State] -> Doc Source #
Serialize.Serialize State Source #
Instance details Defined in Synth.Sampler.Render Methods put :: Putter State Source # get :: Serialize.Get State Source #

emptyState :: State Source #

serializeState :: State -> Checkpoint.State Source #

unserializeState :: Checkpoint.State -> Either Error State Source #

getPlayStates :: [Playing] -> IO [PlayState] Source #

data PlayState Source #

Constructors

NoResample	If there is no resampling, the state will be NoResample. It's necessary to save that explicitly, so I can still line up notes with states in `resumeSamples`.
Resample !ResampleState
Complete	There was a resample, but it's complete. If this shows up, something is wrong, because `pull` should have filtered out the Playing when it turned up short samples.

Instances

Instances details

Show PlayState Source #
Instance details Defined in Synth.Sampler.Render Methods showsPrec :: Int -> PlayState -> ShowS # show :: PlayState -> String # showList :: [PlayState] -> ShowS #
Eq PlayState Source #
Instance details Defined in Synth.Sampler.Render Methods (==) :: PlayState -> PlayState -> Bool # (/=) :: PlayState -> PlayState -> Bool #
Pretty.Pretty PlayState Source #
Instance details Defined in Synth.Sampler.Render Methods pretty :: PlayState -> Text Source # format :: PlayState -> Doc Source # formatList :: [PlayState] -> Doc Source #
Serialize.Serialize PlayState Source #
Instance details Defined in Synth.Sampler.Render Methods put :: Putter PlayState Source # get :: Serialize.Get PlayState Source #

data ResampleState Source #

The saved state of a note that had to resample.

Constructors

ResampleState
Fields _filename :: !Sample.SamplePath I don't actually need this, but it makes the Pretty instance easier to read. _offset :: !Frames This is the position in the sample where the state was saved. _resampleState :: !SavedState

Instances

Instances details

Show ResampleState Source #
Instance details Defined in Synth.Sampler.Render Methods showsPrec :: Int -> ResampleState -> ShowS # show :: ResampleState -> String # showList :: [ResampleState] -> ShowS #
Eq ResampleState Source #
Instance details Defined in Synth.Sampler.Render Methods (==) :: ResampleState -> ResampleState -> Bool # (/=) :: ResampleState -> ResampleState -> Bool #
Pretty.Pretty ResampleState Source #
Instance details Defined in Synth.Sampler.Render Methods pretty :: ResampleState -> Text Source # format :: ResampleState -> Doc Source # formatList :: [ResampleState] -> Doc Source #
Serialize.Serialize ResampleState Source #
Instance details Defined in Synth.Sampler.Render Methods put :: Putter ResampleState Source # get :: Serialize.Get ResampleState Source #

effect

applyEffect :: Config -> Frames -> Maybe.Maybe EffectC.State -> (EffectC.State -> IO ()) -> [Sample.Note] -> InstrumentEffect -> AUtil.Audio -> AUtil.Audio Source #

renderControls :: Monad m => Effect.Config -> [Control.Control] -> RealTime -> [Sample.Note] -> Map Control.Control (Audio.Audio m rate 1) Source #

extractControls :: Frames -> [Control.Control] -> [Sample.Note] -> Map Control.Control [(Double, Double)] Source #

util

prettyF :: Frames -> Text Source #