F of Time

Main.purs

module Main where

import Prelude

import Data.NonEmpty ((:|))
import Effect (Effect)
import WAGS.Lib.Learn (play)
import WAGS.Lib.Learn.Note (accelerando, noteFromPitch_, repeat, seq)
import WAGS.Lib.Learn.Pitch (fot2, c4, d4, e4, fSharp4, gSharp4, bFlat4, c5)
import Wags.Learn.Oscillator (lfo)

main :: Effect Unit
main =
  play
    $ repeat
    $ accelerando
    $ seq
    $ map noteFromPitch_
    $ c4 :| [ d4, fot2 ((+) <<< lfo { amp: 20.0, freq: 16.0, phase: 0.0 }) e4
            , fSharp4, gSharp4, bFlat4, c5, bFlat4, gSharp4, fSharp4, e4, d4, c4
            ]