#!n
/kdaw - k digital audio workstation 2025.12.16(c)arlyle(l)MIT. last:2026.01.09
/S:samplerate Es:ease<samp es:easeout<samp cs:chord<samps wb:wav<bytes b0s:8bit<samp 
/b1s:16bit<samp sf:samp<freq fe:freq<equaltem fj:freq<justintonation fm:freq<meantone

`prng 0;(ˆ):{`exp(`ln x)*y}
S:48000;p:3.14159265359;b0s:_127.5*1+;b1s:,/|'+256 256\_32768*;cs:{{x%3+|/x}@+/x}
sf:{u:{`sin y*2*p*(!n:_S*x)%S-1};$[~^`i`f?@y;u[x]y;cs@u[x]'y]}
es:{y*(1.0+&(#y)-n),|e:%[;2]@1+`cos p+p*(!n)%-1+n:_S*x}
Es:{y*e,(1.0+&(#y)-2*n),|e:%[;2]@1+`cos p+p*(!n)%-1+n:_S*x}
fe:27.5*2ˆ%[;12]@;fm:{{(fe 0)*(`exp u-g*_(u:((`ln 5)%4)*12!x*7)%g:`ln 2)*/(-12!x)#2}'x}
fj:{{(fe 0)*((1 16 9 6 5 4 45 3 8 5 9 15%1 15 8 5 4 3 32 2 5 3 5 8)12!x)*/(-12!x)#2}'x}
scale:`M`m`h`P`p`b`d`r`y`x!0,/:(88>)#'+\'88#'-99+" "\"eedeeed edeedee edeedfd eefef feefe feddfe edeeede deeedee eeedeed eedeede"
i:{,/`c$+|2/+0N 8#((x*8)#2)\y};i2:i 2;i4:i 4
wb:{"RIFF",i4[#f],"WAVE",f:"fmt ",i4[16],i2[1],i2[1],i4[S],i4[_S*bpb],i2[bpb:-8!bps],i2[bps:16],"data",i4[#d],d:`c$x}
P:{`x((,"/usr/bin/env")," "\"afplay /tmp/a.wav";"");}

/examples: bunch of tests(uncomment one line at a time)
/"/tmp/a.wav"1:wb b1s es[d-0.001]Es[0.005]sf[d:24]fj 3+29 33 36 40 43;P[]
/"/tmp/a.wav"1:wb b1s es[d-0.001]Es[0.005]sf[d:6]fj 27 34 39 43 46;P[]
/"/tmp/a.wav"1:wb b1s es[d-0.001]Es[0.005]sf[d:60]fj 24 30 36 42 45;P[]
/"/tmp/a.wav"1:wb b1s es[2]Es[0.1]@,/es[2]'Es[0.005]'sf[2]'fm',/2#, \40+{x@<x}'z#(*/z:8 3)?10#scale`d;P[]
/"/tmp/a.wav"1:wb b1s@,/es[2]'Es[0.005]'sf[2]'fm',/2#,(42 42 52;43 47 47;40 43 52;40 43 47;40 43 50;42 45 47;40 40 49;40 43 47);P[]
/"/tmp/a.wav"1:wb b1s Es[0.2]sf[2]fj 36+0 3 5 7 9§scale`m;P[]
/"/tmp/a.wav"1:wb b1s Es[0.05](Es[0.1]sf[1]fj -12+51+s 0 2 4),/Es[0.01]'0.5*sf[0.1]'fj a,1_|a:-24+51+16#s:scale`p;P[]

/example2:multiple timescales (uncomment whole paragraph)
/s2:,/Es[0.1]'sf[4]'fj'(b1:45 44 43 42 41 40 39 38 37 44 45),\:45 49
/s1:,/Es[0.1]'sf[1%3]'fj',/(2*#b1)#,52+0 2 0 -2 -3 -2
/sample:cs(s1;s2;s2;s2;s2)
/"/tmp/a.wav"1:wb b1s Es[0.1]@sample;P[]

/example3:pad
pad:+(fj`I$*'a)*~"."=(a:"|"\'"\n"\*|"\n/\n"\1:*|`argv[])@'1
"/tmp/a.wav"1:wb b1s Es[0.05]@,/Es[0.03]'sf[0.15]'pad;P[]
/
56|........................................x.............z.........|
55|.......................................x...............z........|
53|....................x.............xxxxx..xx.........x...z.z.....|
51|..xx....x.........xx.x..x..................xx....xxx.x..xz......|
49|......................xx.x...........................oxx.x......|
48|.x..xxxx.xx......x........x...............o.....x.........x.....|
46|..oo.......xx.....................oooo.....oo............o......|
45|......................................oooo......................|
44|x...oooooo......x...............xx.........oo.......o.....o.....|
43|oo........ooo.....ooo...................................o.......|
42|..................................oooo..........................|
41|.......ooo.......o....ooo.............ooooo........o............|
40|..........ooo........o...o.............................o........|
39|................o.........o.....................................|
37|..................................................o.............|
36|......................................................o.........|