File: UIB.hs

package info (click to toggle)
haskell-tidal 1.7.10-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 776 kB
  • sloc: haskell: 9,594; lisp: 413; makefile: 5
file content (20 lines) | stat: -rw-r--r-- 477 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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