create/update 'Slow sine.md' file

This commit is contained in:
littleisland 2025-10-11 00:28:02 +09:00
parent b05a935c83
commit dafe6ba845

View File

@ -166,4 +166,38 @@ $:base.late(1/16)
.someCyclesBy(0.20,x=>x.mask("0"))
all(x=>x.room(1/4).postgain(1/4))
```
```javascript
setcps(120/60/4)
const pattn = [
"[e5 [g5 c5]] [b4 d5 g5 b5] [[c5 e5] [a5 e5]] [[f5 a5] c6 [a5 f5]]",
"[g5 e5 c5] [d5 b4 g5] [a5 e5 c5] [c6 a5 f5]",
"[[e5 g5] c6 e5] [g5 [b5 d5] g5] [[c5 a5] e5 a5] [[f5 c6] a5 f5]",
"[c5 e5] [g5 b4] [e5 a5] [[f5 a5] c6]"
]
const base = stack(
stack(
note("<c2 g1 a1 f1>").sound("sqr|sin|saw"),
note("<c3 g2 a2 f2>").sound("sin|saw|sqr").gain(0.5),
note("<g3 d3 e3 c3>").sound("saw|sin|sqr").gain(0.25),
note("<e4 b3 c4 a3>").sound("saw|sqr|sin").gain(0.125)
),
note("1|2|3|0".pick(pattn)).slow(2)
.sound("sin|saw|sqr").gain(0.125)
).room(2/3).delay(1/3).sometimes(x=>x.room(3/4))
$:base.decay("1/4|5/4")
.lpf(perlin.range(600,900).slow(4)).penv(0.5)
$_:base.decay("<1/3 4/3>").slow(4)
.lpf(sine.range(200,2400).slow(6)).sometimes(x=>x.lpq(10))
$_:base.decay(1/4).slow(2).pan("<-0.3 0.3>")
.lpf(tri.range(100,600).slow(2)).lpenv(1)
.sometimesBy(0.2,x=>x.rev())
.sometimesBy(0.3,x=>x.ply("2|4"))
$_:base.decay(1/4).fast(2).pan("<0.5 -0.5>")
.transpose("<0 7 0 12 0 0 7 12>").sometimes(x=>x.late(1/16))
$:s("sbd*4").decay(0.5).gain(0.3)
all(x=>x.postgain(1/3))
```