ソースを参照

superdirt compatibility patches

Aneurin Barker Snook 8 年 前
コミット
523da37b58
3 ファイル変更24 行追加16 行削除
  1. 5 5
      juliese.megalet.tidal
  2. 8 0
      juliese.scd
  3. 11 11
      juliese.tidal

+ 5 - 5
juliese.megalet.tidal

@@ -9,18 +9,18 @@ let every' n o f = when ((== (o-1)) . (`mod` n)) f
     d'pc = d7
     d'pc = d7
     d'pcl = d8
     d'pcl = d8
     d'wbass = d9
     d'wbass = d9
-    bassbass = s "[[vb vb:1] ~]/2"
+    bassbass = sound "[[vb vb:1] ~]/2"
                # end (slow 1.4 "0.2 0.4")
                # end (slow 1.4 "0.2 0.4")
                # vowel "e o"
                # vowel "e o"
     bassbass' = bassbass # speed (slow 2.5 "1 -1")
     bassbass' = bassbass # speed (slow 2.5 "1 -1")
     morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
     morek = every' 8 8 (overlay $ (0.32 ~>) $ s "k*2")
     drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
     drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $ s "k"
     hhb m = smash 16 [0.25, 0.5] $
     hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ s "hh:1 hh")) else id) $
-            s "hh hh:2"
+            (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
+            sound "hh hh:2"
             # gain "0.6"
             # gain "0.6"
     ududu = slow 4 . chop 128 $
     ududu = slow 4 . chop 128 $
-            s (samples "udu" (slow 4 $ irand 4))
+            sound (samples "udu" (slow 4 $ irand 4))
             # gain "0.8"
             # gain "0.8"
             # cut "6"
             # cut "6"
     eg = gap 128 $ s "eg*2"
     eg = gap 128 $ s "eg*2"
@@ -29,7 +29,7 @@ let every' n o f = when ((== (o-1)) . (`mod` n)) f
          chop 128 $
          chop 128 $
          s "[gt [~ gt] ! ~]/2"
          s "[gt [~ gt] ! ~]/2"
          # cut "5"
          # cut "5"
-    pcbeep = slow 16 $ gap 48 $ s "pc:1"
+    pcbeep = slow 16 $ gap 48 $ sound "pc:1"
              # gain "0.7"
              # gain "0.7"
              # cut "7"
              # cut "7"
              # speed "[1 0.7]"
              # speed "[1 0.7]"

+ 8 - 0
juliese.scd

@@ -0,0 +1,8 @@
+include("SuperDirt")
+
+Server.local.options.device = "Soundflower (2ch)";
+SuperDirt.start
+
+~dirt.loadSoundFiles(thisProcess.nowExecutingPath.dirname +/+ "/samples/*")
+
+~dirt.stop

+ 11 - 11
juliese.tidal

@@ -20,7 +20,7 @@ let d'drum = d1
     d'wbass = d9
     d'wbass = d9
 
 
 -- bass template
 -- bass template
-let bassbass = s "[[vb vb:1] ~]/2"
+let bassbass = sound "[[vb vb:1] ~]/2"
                # end (slow 1.4 "0.2 0.4")
                # end (slow 1.4 "0.2 0.4")
                # vowel "e o"
                # vowel "e o"
 
 
@@ -35,13 +35,13 @@ let drum1'f = overlay ((0.5 ~>) $ s "sn/2") $ every' 12 2 (density 3) $ morek $
 
 
 -- basic hats
 -- basic hats
 let hhb m = smash 16 [0.25, 0.5] $
 let hhb m = smash 16 [0.25, 0.5] $
-            (if m then (every 3 (append $ s "hh:1 hh")) else id) $
-            s "hh hh:2"
+            (if m then (every 3 (append $ sound "hh:1 hh")) else id) $
+            sound "hh hh:2"
             # gain "0.6"
             # gain "0.6"
 
 
 -- udu
 -- udu
 let ududu = slow 4 . chop 128 $
 let ududu = slow 4 . chop 128 $
-            s (samples "udu" (slow 4 $ irand 4))
+            sound (samples "udu" (slow 4 $ irand 4))
             # gain "0.8"
             # gain "0.8"
             # cut "6"
             # cut "6"
 
 
@@ -55,7 +55,7 @@ let gt = every 2 (within (0, 0.5) (0.07 <~)) $ (0.07 ~>) $
          s "[gt [~ gt] ! ~]/2"
          s "[gt [~ gt] ! ~]/2"
          # cut "5"
          # cut "5"
 
 
-let pcbeep = slow 16 $ gap 48 $ s "pc:1"
+let pcbeep = slow 16 $ gap 48 $ sound "pc:1"
              # gain "0.7"
              # gain "0.7"
              # cut "7"
              # cut "7"
              # speed "[1 0.7]"
              # speed "[1 0.7]"
@@ -90,10 +90,10 @@ d'drum $ overlay ((0.5 ~>) $ s "sn/2") $ morek $ s "k"
 
 
 d'udu $ ududu
 d'udu $ ududu
 
 
-d'wbass $ chop 16 $ s "[wb wb:1 ~ ~]/4" # gain "0.9"
-d'wbass $ chop 16 $ s "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
+d'wbass $ chop 16 $ sound "[wb wb:1 ~ ~]/4" # gain "0.9"
+d'wbass $ chop 16 $ sound "[wb [wb:1 wb:2] ~ ~]/4" # gain "0.9"
 
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
 
 
 d'eg $ density 0.25 $ eg
 d'eg $ density 0.25 $ eg
   # gain "0.8"
   # gain "0.8"
@@ -107,7 +107,7 @@ d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   slowspread density [1, 2, 0.5, 2] $ eg
   slowspread density [1, 2, 0.5, 2] $ eg
   # gain "0.8"
   # gain "0.8"
 
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [wb:1 wb:2]]/4" # gain "0.9"
   # speed "[1 1 2]/3"
   # speed "[1 1 2]/3"
 
 
 d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
 d'eg $ (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
@@ -136,7 +136,7 @@ d'udu $ (every' 3 2 . sometimesBy 0.5 $ density (4%3)) $
 d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
 d'pc $ slowspread ($) [rev, id, brak, (0.25 ~>), id] $
   slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
   slowspread (\x -> within x (slow 1.5)) [(0.25, 0.5), (0.75, 1), (0.25, 0.75)] $ pcbeep
 
 
-d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+d'wbass $ every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
   # speed "[1 1 2]/3"
   # speed "[1 1 2]/3"
 
 
 d'pc $ whenmod 7 5 (density 1.25) $
 d'pc $ whenmod 7 5 (density 1.25) $
@@ -152,7 +152,7 @@ d'gt $ gt
 
 
 -- OOOOOOHHHH MY FUCK
 -- OOOOOOHHHH MY FUCK
 d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
 d'wbass $ (sometimesBy 0.6 $ superimpose (rev . slow (5%4))) $
-  every' 4 4 (0.32 ~>) $ chop 16 $ s "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
+  every' 4 4 (0.32 ~>) $ chop 16 $ sound "[wb [wb:1 wb:2] ~ [[wb:1 wb:1/2] wb:2]]/4" # gain "0.9"
   # speed "[1 1 2]/3"
   # speed "[1 1 2]/3"
 
 
 d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True
 d'perc $ iter 4 $ (# pan (density 16 "0.25 0.75")) $ whenmod 16 15 (density 3) $ hhb True