Skip to content

Instantly share code, notes, and snippets.

@mikesol

mikesol/Main.purs

Last active September 25, 2021 14:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mikesol/1e0dbe04c68750c7bbb580f8e000f44d to your computer and use it in GitHub Desktop.
Save mikesol/1e0dbe04c68750c7bbb580f8e000f44d to your computer and use it in GitHub Desktop.
Download ZIP
F of Time
Raw
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
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment