diff --git a/BootTidal.hs b/BootTidal.hs
--- a/BootTidal.hs
+++ b/BootTidal.hs
@@ -5,11 +5,12 @@
 import Sound.Tidal.Context
 
 -- total latency = oLatency + cFrameTimespan
-tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20})
+tidal <- startTidal (superdirtTarget {oLatency = 0.15, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20}) -- , cSendParts = False})
+--tidal <- startTidal (dirtTarget {oLatency = 0.1}) (defaultConfig {cFrameTimespan = 1/20, cSendParts = True})
 
 :{
 let p = streamReplace tidal
-    hush = streamHush tidal
+    --hush = streamHush tidal
     list = streamList tidal
     mute = streamMute tidal
     unmute = streamUnmute tidal
@@ -38,30 +39,39 @@
     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
-    d1 = p 1 . (|< orbit 0) 
-    d2 = p 2 . (|< orbit 1) 
-    d3 = p 3 . (|< orbit 2) 
-    d4 = p 4 . (|< orbit 3) 
-    d5 = p 5 . (|< orbit 4) 
-    d6 = p 6 . (|< orbit 5) 
-    d7 = p 7 . (|< orbit 6) 
-    d8 = p 8 . (|< orbit 7) 
+    munge i = selectF (cF 0 (show $ 50 + i)) [id, (# (delayfb (cF 0 (show $ 30 + i)) # delayt (select (cF 0 (show $ 70+i)) [1/3, 1/6]) # lock 1 # delay (cF 0 (show $ 20 + i))))] . selectF (cF 0 (show $ 90 + i)) [id, (# (room (cF 0 (show $ 40 + i)) # sz 0.8))] . selectF (cF 0 (show $ 80 + i)) [id, (# djf (cF 0.5 (show $ 40 + i)))]
+    d1 = p 1 . munge 1 . (|< orbit 0) 
+    d2 = p 2 . munge 2 . (|< orbit 1) 
+    d3 = p 3 . munge 3 . (|< orbit 2) 
+    d4 = p 4 . munge 4 . (|< orbit 3) 
+    d5 = p 5 . munge 5 . (|< orbit 4) 
+    d6 = p 6 . munge 6 . (|< orbit 5) 
+    d7 = p 7 . munge 7 . (|< orbit 6) 
+    d8 = p 8 . munge 8 . (|< orbit 7) 
     d9 = p 9 . (|< orbit 8)
     d10 = p 10 . (|< orbit 9)
     d11 = p 11 . (|< orbit 10)
-    d12 = p 12 . (|< orbit 11)
+    d12 = p 12
     d13 = p 13
     d14 = p 14
     d15 = p 15
     d16 = p 16
-:}
-
-:{
-let setI = streamSetI tidal
+    jux' fs p = stack $ map (\n -> (fs !! n) p |+ pan (pure $ fromIntegral n / fromIntegral ((length fs)-1))) [0 .. (length fs)-1]
+    hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16]
+    only = (hush >>)
+    gtfo = (const silence)
+    pd = phaserdepth
+    pr = phaserrate
+    setI = streamSetI tidal
     setF = streamSetF tidal
     setS = streamSetS tidal
     setR = streamSetI tidal
     setB = streamSetB tidal
+    metre = cB True "metre"
+    setMetre = setB "metre"
+    vowelF = pF "vowel"
 :}
+let within' = curry within
+let within = within'
 
 :set prompt "tidal> "
diff --git a/src/Sound/Tidal/Pattern.hs b/src/Sound/Tidal/Pattern.hs
--- a/src/Sound/Tidal/Pattern.hs
+++ b/src/Sound/Tidal/Pattern.hs
@@ -318,7 +318,7 @@
                      part' <- subArc fPart xPart
                      return (Event whole' part' (f x))
                 )
-                (query px $ st {arc = fWhole})
+                (query px $ st {arc = fPart})
 
 instance Applicative Pattern where
   -- | Repeat the given value once per cycle, forever
diff --git a/src/Sound/Tidal/Version.hs b/src/Sound/Tidal/Version.hs
--- a/src/Sound/Tidal/Version.hs
+++ b/src/Sound/Tidal/Version.hs
@@ -1,4 +1,4 @@
 module Sound.Tidal.Version where
 
 tidal_version :: String
-tidal_version = "1.2.0"
+tidal_version = "1.2.1"
diff --git a/tidal.cabal b/tidal.cabal
--- a/tidal.cabal
+++ b/tidal.cabal
@@ -1,5 +1,5 @@
 name:                tidal
-version:             1.2.0
+version:             1.2.1
 synopsis:            Pattern language for improvised music
 -- description:
 homepage:            http://tidalcycles.org/
diff --git a/tidal.el b/tidal.el
--- a/tidal.el
+++ b/tidal.el
@@ -95,7 +95,7 @@
      nil
      tidal-interpreter-arguments)
     (tidal-see-output))
-  (tidal-send-string (concat ":script " tidal-boot-script-path))
+  (tidal-send-string (concat ":script /home/alex/src/tidal/BootTidal.hs"))
 )
 
 (defun tidal-see-output ()