tidal-1.1.0: bench/Memory/Tidal/UIB.hs

module Tidal.UIB where 

import Weigh 
import Tidal.Inputs 
import Sound.Tidal.UI
import Sound.Tidal.Core

fixB :: Weigh () 
fixB = 
  wgroup "fix weigh" $ do
    columns
    func "fix 1" (fix (fast 2) fixArg1) fixArg2

euclidB :: Weigh () 
euclidB = 
  wgroup "euclid" $ do 
    columns 
    func "euclid" (euclid (head ecA1) (head $ drop 1 ecA1)) ecA2
    func "euclidFull" (euclidFull (head ecA1) (head $ drop 1 ecA1) ecA2) ecA2
    func "euclidBool" (_euclidBool 1) 100000