HarmTrace.Models.Pop.Instances

Documentation

pChord :: ScaleDegree -> ClassType -> PMusic (Surface_Chord deg clss (Su n))

toGTree :: (GetDegree a, GTree a) => (Int -> ScaleDegree -> Trans) -> Int -> a -> [Tree HAn]

toGTreeSplit :: (GetDegree a, GetDegree b, GTree a, GTree b) => (Int -> ScaleDegree -> Prep) -> b -> a -> [Tree HAn]

toTransSDVal :: GetDegree a => Int -> a -> ScaleDegree

toSDVal :: GetDegree a => a -> ScaleDegree

class GetDegree a where

Methods

getDeg :: a -> (ScaleDegree, Int)

Instances

GetDegree (Surface_Chord (MinThird deg) DimClass n) => GetDegree (Surface_Chord deg clss (Su n))

GetDegree (Surface_Chord deg clss Ze)

GetDegree (Base_Final deg clss n)

GetDegree (Base_Final deg clss Ze)

GetDegree (Base_SD deg clss n)

data Phrase_PT_

Instances

Constructor Phrase_PT_

data Phrase_PD_

Instances

Constructor Phrase_PD_

type RepPhrase_ mode = :+: (CEq Phrase_PT_ () () (Rec (Ton mode))) (CEq Phrase_PD_ () () (Rec (Dom mode)))

data Ton_T_0_

Instances

Constructor Ton_T_0_

data Ton_T_1_

Instances

Constructor Ton_T_1_

data Ton_T_4_bls_

Instances

Constructor Ton_T_4_bls_

data Ton_T_6_bor_

Instances

Constructor Ton_T_6_bor_

data Ton_Tm_1_

Instances

Constructor Ton_Tm_1_

data Ton_Tm_6_bor_

Instances

Constructor Ton_Tm_6_bor_

type RepTon_ mode = :+: (:+: (CEq Ton_T_0_ () () (:*: (Rec (SDom mode)) (Rec (Ton mode)))) (:+: (CEq Ton_T_1_ (:*: mode ()) (:*: MajMode ()) (Rec (Final I MajClass))) (CEq Ton_T_4_bls_ () () (Rec (Final I DomClass))))) (:+: (CEq Ton_T_6_bor_ (:*: mode ()) (:*: MajMode ()) (Rec TMinBorrow)) (:+: (CEq Ton_Tm_1_ (:*: mode ()) (:*: MinMode ()) (Rec (SD MinMode I MinClass))) (CEq Ton_Tm_6_bor_ (:*: mode ()) (:*: MinMode ()) (Rec TMajBorrow))))

data Dom_D_1_

Instances

Constructor Dom_D_1_

data Dom_D_2_

Instances

Constructor Dom_D_2_

data Dom_D_3_

Instances

Constructor Dom_D_3_

data Dom_D_4_

Instances

Constructor Dom_D_4_

data Dom_D_8_bor_

Instances

Constructor Dom_D_8_bor_

data Dom_Dm_4_

Instances

Constructor Dom_Dm_4_

data Dom_Dm_8_bor_

Instances

Constructor Dom_Dm_8_bor_

type RepDom_ mode = :+: (:+: (CEq Dom_D_1_ () () (:*: (Rec (SDom mode)) (Rec (Dom mode)))) (:+: (CEq Dom_D_2_ () () (Rec (SD mode V DomClass))) (CEq Dom_D_3_ () () (Rec (SD mode V MajClass))))) (:+: (:+: (CEq Dom_D_4_ (:*: mode ()) (:*: MajMode ()) (Rec (SD MajMode VII MinClass))) (CEq Dom_D_8_bor_ (:*: mode ()) (:*: MajMode ()) (Rec DMinBorrow))) (:+: (CEq Dom_Dm_4_ (:*: mode ()) (:*: MinMode ()) (Rec (SD MinMode VIIb MajClass))) (CEq Dom_Dm_8_bor_ (:*: mode ()) (:*: MinMode ()) (Rec DMajBorrow))))

data SDom_S_1_par_

Instances

Constructor SDom_S_1_par_

data SDom_S_2_par_

Instances

Constructor SDom_S_2_par_

data SDom_S_3_

Instances

Constructor SDom_S_3_

data SDom_S_3_bls_

Instances

Constructor SDom_S_3_bls_

data SDom_S_4_

Instances

Constructor SDom_S_4_

data SDom_S_7_

Instances

Constructor SDom_S_7_

data SDom_S_5_par_

Instances

Constructor SDom_S_5_par_

data SDom_S_9_bor_

Instances

Constructor SDom_S_9_bor_

data SDom_Sm_3_

Instances

Constructor SDom_Sm_3_

data SDom_Sm_4_

Instances

Constructor SDom_Sm_4_

data SDom_Sm_7_

Instances

Constructor SDom_Sm_7_

data SDom_Sm_5_par_

Instances

Constructor SDom_Sm_5_par_

data SDom_Sm_9_bor_

Instances

Constructor SDom_Sm_9_bor_

data SDom_Sm_6_

Instances

Constructor SDom_Sm_6_

type RepSDom_ mode = :+: (:+: (:+: (CEq SDom_S_1_par_ () () (Rec (SD mode II MinClass))) (:+: (CEq SDom_S_2_par_ () () (:*: (Rec (SD mode II DomClass)) (Rec (Final II MinClass)))) (CEq SDom_S_3_ (:*: mode ()) (:*: MajMode ()) (Rec (SD MajMode IV MajClass))))) (:+: (:+: (CEq SDom_S_3_bls_ () () (Rec (Final IV DomClass))) (CEq SDom_S_4_ (:*: mode ()) (:*: MajMode ()) (:*: (Rec (SD MajMode III MinClass)) (Rec (Final IV MajClass))))) (:+: (CEq SDom_S_7_ (:*: mode ()) (:*: MajMode ()) (:*: (Rec (SD MajMode III MinClass)) (Rec (Final II MinClass)))) (CEq SDom_S_5_par_ (:*: mode ()) (:*: MajMode ()) (Rec (SD MajMode VI MinClass)))))) (:+: (:+: (CEq SDom_S_9_bor_ (:*: mode ()) (:*: MajMode ()) (Rec SMinBorrow)) (:+: (CEq SDom_Sm_3_ (:*: mode ()) (:*: MinMode ()) (Rec (SD MinMode IV MinClass))) (CEq SDom_Sm_4_ (:*: mode ()) (:*: MinMode ()) (:*: (Rec (SD MinMode IIIb MajClass)) (Rec (Final IV MinClass)))))) (:+: (:+: (CEq SDom_Sm_7_ (:*: mode ()) (:*: MinMode ()) (:*: (Rec (SD MinMode IIIb MajClass)) (Rec (Final II MinClass)))) (CEq SDom_Sm_5_par_ (:*: mode ()) (:*: MinMode ()) (Rec (SD MinMode VIb MajClass)))) (:+: (CEq SDom_Sm_9_bor_ (:*: mode ()) (:*: MinMode ()) (Rec SMajBorrow)) (CEq SDom_Sm_6_ (:*: mode ()) (:*: MinMode ()) (Rec (SD MinMode IIb MajClass))))))

data TMinBorrow_Tm_21_bor_

Instances

Constructor TMinBorrow_Tm_21_bor_

type RepTMinBorrow_ = CEq TMinBorrow_Tm_21_bor_ () () (Rec (SD MinMode I MinClass))

data DMinBorrow_Dm_24_bor_

Instances

Constructor DMinBorrow_Dm_24_bor_

type RepDMinBorrow_ = CEq DMinBorrow_Dm_24_bor_ () () (Rec (SD MinMode VIIb MajClass))

data SMinBorrow_Sm_20_bor_

Instances

Constructor SMinBorrow_Sm_20_bor_

data SMinBorrow_Sm_22_bor_

Instances

Constructor SMinBorrow_Sm_22_bor_

type RepSMinBorrow_ = :+: (CEq SMinBorrow_Sm_20_bor_ () () (Rec (SD MinMode IV MinClass))) (CEq SMinBorrow_Sm_22_bor_ () () (Rec (SD MinMode IIb MajClass)))

data TMajBorrow_T_21_bor_

Instances

Constructor TMajBorrow_T_21_bor_

type RepTMajBorrow_ = CEq TMajBorrow_T_21_bor_ () () (Rec (SD MajMode I MajClass))

data DMajBorrow_D_24_bor_

Instances

Constructor DMajBorrow_D_24_bor_

type RepDMajBorrow_ = CEq DMajBorrow_D_24_bor_ () () (Rec (SD MajMode VII MinClass))

data SMajBorrow_S_20_bor_

Instances

Constructor SMajBorrow_S_20_bor_

type RepSMajBorrow_ = CEq SMajBorrow_S_20_bor_ () () (Rec (SD MajMode IV MajClass))