gdiff-th-0.1.0.0: examples/Old.hs

module Old where

data Song = Song {
        instruments :: [Instruments]
    }

data Instrument = Instrument {
        notes :: [Note]
    }
    
type Note = (Double, Model)

data Model = Exp Model Model
           | ADSR Model Model Model Model
           | Base Double