Functonal

idea.md

@Play
@Functonal
fun Player() {
  Song(
    bpm = 132,
    groove = Grooves.Latin1,
  )
}


@Functonal
fun Song(bpm: Int, groove: Groove) {
  At(measure = 2) {
    repeat(8) {
      MainMotif(
        key = Keys.C,
        groove = groove,
        instrument = Instruments.Piano,
      )
    }
  }
}

@Functonal
fun MainMotif(key: Key, groove: Groove, instrument: Instrument) {
  Sequence(*(
    [
      C3(),
      Chord(Bb2(), C3()),
      G3(), // 
      E3(),
    ].map { (it in Keys.C) trans key }
  ))
}

class Chord(varargs tones: Tone) : Sound {}

interface Sound {
  val frequency: Double
}