-
-
Notifications
You must be signed in to change notification settings - Fork 255
/
BootTidal.hs
43 lines (37 loc) · 2.05 KB
/
BootTidal.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
:set -fno-warn-orphans
:set -XMultiParamTypeClasses
:set -XOverloadedStrings
:set prompt ""
-- Import all the boot functions and aliases.
import Sound.Tidal.Boot
default (Pattern String, Integer, Double)
-- Create a Tidal Stream with the default settings.
-- Use 'mkTidalWith' to customize these settings.
tidalInst <- mkTidal
-- This orphan instance makes the boot aliases work!
-- It has to go after you define 'tidalInst'.
instance Tidally where tidal = tidalInst
-- You can add your own aliases in this file. Here are some examples:
-- :{
-- let xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
-- xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
-- histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
-- wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
-- waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
-- jump i = transition tidal True (Sound.Tidal.Transition.jump) i
-- jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
-- jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
-- jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
-- jumpMod' i t p = transition tidal True (Sound.Tidal.Transition.jumpMod' t p) i
-- mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
-- interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
-- interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
-- clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
-- clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
-- anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
-- anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
-- forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
-- :}
:set -fwarn-orphans
:set prompt "tidal> "
:set prompt-cont ""