Reactogon/Arpeggiated.hs

   1 {-# LANGUAGE Arrows #-}
   2
   3 module Arpeggiated where
   4
   5 import FRP.Yampa
   6
   7 import MIDI
   8 import Note
   9
  10 controllerValue :: Int -> SF () Int
  11 controllerValue = undefined
  12
  13 arpeggiated :: SF (Event Note) (Event Note)
  14 arpeggiated = proc n -> do
  15   c <- controllerValue 1 -< ()
  16   n' <- fmap perfectFifth ^<< delayEvent undefined -< n
  17   n'' <- fmap majorThird ^<< delayEvent undefined -< n'
  18   returnA -< mergeEvents [n, n', n'']