{
   "labels" : [
      "ambient",
      "drone"
   ],
   "code" : "/*\r\nBy Schemawound - http://www.schemawound.com/\r\nAll code by Jonathan Siemasko\r\n\r\nCreated for The Haiku Project by Subterranean Tide - http://www.subterraneantide.com/hk07-schemawound.html\r\nDescription: Each artist has contributed a three track release in increments of five minutes, seven minutes, and five minutes accompanied by a Haiku poem.  Each song represents the line of the poem including title and reflection.\r\nSource Haiku:\r\n\r\nAutumn moonlight—\r\n\r\na worm digs silently\r\n\r\ninto the chestnut.\r\n\r\n- Basho Matsuo\r\n*/\r\n\r\n//Autumn moonlight-\r\n(\r\n{\r\n\tvar time = 60 * 5;\r\n\tvar line = Line.ar(0, 1, time);\r\n\tvar oscEnv = EnvGen.ar(Env.linen(sustainTime: time - 3, releaseTime: 2));\r\n\tvar sin = SinOsc.ar(LFTri.kr(0.1).range(5000, 6000));\r\n\tvar pulse = Pulse.ar(LFTri.kr([0.9, 0.92], 0, 100, 40), LFTri.kr(1, 0, 0.5, 0.5));\r\n\tvar osc = pulse * sin * oscEnv;\r\n\tvar compressLFO = SinOsc.kr(0.1).abs * SinOsc.kr(0.4).range(2, 20);\r\n\tvar compress = Compander.ar(osc, osc, 0.7, compressLFO);\r\n\tvar delay1 = compress + CombC.ar(compress, 10, LFTri.kr(0.3).range(2, 4), 10) * 0.2;\r\n\tvar osc2 = delay1 * SinOsc.ar(LFTri.kr(0.5).range(300, 500));\r\n\tvar delay2 = osc2 + CombC.ar(osc2, 10, LFTri.kr(0.2).range(2, 4), 10) * 0.2;\r\n\tvar lpf = delay2 + (RLPF.ar(DelayC.ar(delay2, 20, 5, 0.5), 400, 0.5) * SinOsc.ar(LFTri.ar(0.0123).range(200, 300)));\r\n\tvar verb1 = lpf + (GVerb.ar(lpf, LFTri.ar(0.01).range(1, 10)) * LFTri.ar(0.003));\r\n\tvar verb2 = verb1 + (GVerb.ar(verb1) * 0.3);\r\n\tvar compress2 = Compander.ar(verb2, verb2, 0.5, 1, 1/30);\r\n\tvar hpf = HPF.ar(compress2, 30) * 0.1 * EnvGen.ar(Env.linen(0.01, time - 10, 3));\r\n\tvar comb = (hpf * (1 - line)) + CombC.ar(hpf, 10, Line.ar(1, 0.1, time), 10, line);\r\n\tcomb * 3;\r\n}.play;\r\n)\r\n\r\n//A worm digs silently\r\n(\r\n{\r\n\tvar time = 60*7;\r\n\tvar hex = {|f| 1 - LFTri.ar(f)};\r\n\tvar line = {|s,e| Line.kr(s,e,time,1,0)};\r\n\tvar hexes = hex.(line.(17,1647)) * hex.(line.(217,17)) * hex.(67) * hex.([55,55.1]) * 0.05;\r\n\tvar verb1 = hexes * SinOsc.ar(300) * SinOsc.ar(0.01);\r\n\tvar verb2 = hexes * SinOsc.ar(SinOsc.ar(0.0334).range(100, 157.7)) * SinOsc.ar(0.008);\r\n\tvar verb3 = hexes * SinOsc.ar(SinOsc.ar(0.0234).range(200, 257.7)) * SinOsc.ar(0.0043);\r\n\tvar verb4 = (hexes * 20 * SinOsc.ar(3257.7)).clip(-1,1) * SinOsc.ar(1257.7) * SinOsc.ar(0.023) / 30;\r\n\tvar combine = verb1 + verb2 + verb3 + CombC.ar(verb4 * SinOsc.ar(Line.ar(300, 10000, 60*7)), 10, 1, 10, 1, verb4);\r\n\tcombine = combine * EnvGen.ar(Env.linen(0.01, time - 15, 13));\r\n\tcombine = combine + DelayC.ar(GVerb.ar(combine, [1.7, 1.8], 10, drylevel: 0), 10, Line.kr(0.01, 1, time), 0.5) * 0.1;\r\n\tcombine = combine + LPF.ar(CombC.ar(combine, 20, Line.kr(1, 0.01, time), 20), LFTri.ar([0.0312, 0.0222]).range(50, 10000)) * 0.1;\r\n\tcombine = Compander.ar(combine, combine, 0.5, 1, 1/20) * 8;\r\n\tcombine = Compander.ar(combine, combine, 0.5, 1, 1/20) / 2.5;\r\n\tHPF.ar(combine, 55);\r\n}.play\r\n)\r\n\r\n//Into the chestnut.\r\n(\r\n{\r\n\tx = RLPF.ar(SinOsc.ar(SinOsc.ar([0.020, 0.019]).range(3, 10)) * SyncSaw.ar(SinOsc.ar(0.01).range(1, 100), SinOsc.ar(0.017).range(300, 1000)), Line.ar(60, 10000, 60*5));\r\n\tx = GVerb.ar(x + CombL.ar(x, 10, 0.2, 10));\r\n\tEnvGen.ar(Env.linen(0.01, 60*5, 20), doneAction:2) * x * 0.03!2\r\n}.play\r\n)",
   "is_private" : null,
   "id" : "1-4TT",
   "author" : "Schemawound",
   "name" : "Autumn moonlight - a worm digs silently into the chestnut",
   "description" : "By Schemawound - http://www.schemawound.com/\r\n\r\n\r\nAll code by Jonathan Siemasko\r\n\r\n\r\nCreated for The Haiku Project by Subterranean Tide - http://www.subterraneantide.com/hk07-schemawound.html\r\n\r\n\r\nDescription: Each artist has contributed a three track release in increments of five minutes, seven minutes, and five minutes accompanied by a Haiku poem.  Each song represents the line of the poem including title and reflection.\r\n\r\n\r\nSource Haiku:\r\n\r\n\r\nAutumn moonlight—\r\n\r\n\r\n\r\na worm digs silently\r\n\r\n\r\ninto the chestnut.\r\n\r\n\r\n- Basho Matsuo",
   "ancestor_list" : []
}