Safe Haskell | Safe-Inferred |
---|
Instrument definitions for kendang Bali, shared between instruments.
Synopsis
- pasang_code :: MidiInst.Code
- tunggal_strokes :: [Drums.Stroke]
- soft_dyn :: Double
- tunggal_table :: [(Char, Note, Drums.Group)]
- stops :: Drums.Stops
- to_call :: Note -> Expr.Symbol
- data Pasang = Pasang {}
- pasang_env :: Sig.Parser Pasang
- pasang_cmd :: Cmd.M m => Cmd.Handler m
- c_pasang_calls :: [(Expr.Symbol, Generator Note)]
- c_pasang_stroke :: Expr.Symbol -> PasangStroke -> Generator Note
- both_calls :: [(Expr.Symbol, PasangStroke)]
- pasang_calls :: [(Char, Expr.Symbol, PasangStroke)]
- balinese_pasang_calls :: [(Char, Expr.Symbol, PasangStroke)]
- c_realize_kendang :: Transformer Note
- realize_kendang :: Pasang -> Stream.Stream Score.Event -> Stream.Stream Score.Event
- plak :: Attrs.Attributes
- de :: Attrs.Attributes
- tut :: Attrs.Attributes
- ka :: Attrs.Attributes
- dag :: Attrs.Attributes
- tek :: Attrs.Attributes
- pak :: Attrs.Attributes
- pang :: Attrs.Attributes
- data PasangStroke
- data Note = Note !Stroke !Attrs.Attributes
- data Stroke
- notes_of :: PasangStroke -> [Note]
code
tunggal
tunggal_table :: [(Char, Note, Drums.Group)] Source #
stops :: Drums.Stops Source #
to_call :: Note -> Expr.Symbol Source #
pasang
pasang_cmd :: Cmd.M m => Cmd.Handler m Source #
c_pasang_calls :: [(Expr.Symbol, Generator Note)] Source #
c_pasang_stroke :: Expr.Symbol -> PasangStroke -> Generator Note Source #
both_calls :: [(Expr.Symbol, PasangStroke)] Source #
pasang_calls :: [(Char, Expr.Symbol, PasangStroke)] Source #
balinese_pasang_calls :: [(Char, Expr.Symbol, PasangStroke)] Source #
Unicode has some kendang notation, but it's harder to type and I'm not sure if I'll wind up using it.
realize_kendang :: Pasang -> Stream.Stream Score.Event -> Stream.Stream Score.Event Source #
Given a composite part with lanang and wadon, fill in the secondary strokes.
The realization is not correct because I don't yet fully understand how it works.
c kPtTtT+o+oo-+ l .P.TPTP+^++.^ w P.TPTP+.+.^-+
c kPktT t T T t T .kP.tT.tTØØØ l .P.^T P T T P T .^P^.T .TØØØ w P^.TP T P P T P .P^.TP.TP. .
c kP+otT kPkP+o+o kPuUtT+o l P.+.T^ P.P.+.+. P.o.T^+. w .P.+.T .P.P.+.+ .P.O.T^+
c kPtTtT l .P.TPTP w P.TPTP
tTkPtTkP T.P.T.P .T.P.T.P
tT+otT+o TP+.TP+. .TP+.TP+
attrs
general
data PasangStroke Source #
Instances
Show PasangStroke Source # | |
Defined in Cmd.Instrument.KendangBali showsPrec :: Int -> PasangStroke -> ShowS # show :: PasangStroke -> String # showList :: [PasangStroke] -> ShowS # | |
Eq PasangStroke Source # | |
Defined in Cmd.Instrument.KendangBali (==) :: PasangStroke -> PasangStroke -> Bool # (/=) :: PasangStroke -> PasangStroke -> Bool # | |
Ord PasangStroke Source # | |
Defined in Cmd.Instrument.KendangBali compare :: PasangStroke -> PasangStroke -> Ordering # (<) :: PasangStroke -> PasangStroke -> Bool # (<=) :: PasangStroke -> PasangStroke -> Bool # (>) :: PasangStroke -> PasangStroke -> Bool # (>=) :: PasangStroke -> PasangStroke -> Bool # max :: PasangStroke -> PasangStroke -> PasangStroke # min :: PasangStroke -> PasangStroke -> PasangStroke # |
The attributes might have the stroke, or not, so it might be Note Plak plak, or Note Play mempty.
notes_of :: PasangStroke -> [Note] Source #