-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgrains.lua
240 lines (216 loc) · 5.73 KB
/
grains.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
-- forestscapes: grains
--
-- llllllll.co/t/forestscapes
--
-- granularization of
-- field recordings.
--
-- ▼ instructions below ▼
--
-- K3 reverse sounds
-- E1 changes volume
-- E2 changes rate
-- E3 changes movement speed
musicutil=require("musicutil")
tree_=include("lib/tree")
player_=include("lib/player")
engine.name="Forestscapes2"
total_num=6
player={}
reverb_settings_saved={}
reverb_settings={
reverb=2,
rev_eng_input=0,
rev_return_level=0,
rev_low_time=9,
rev_mid_time=6,
}
function init()
--os.execute(_path.code.."forestscapes/lib/oscnotify/run.sh &")
for k,v in pairs(reverb_settings) do
reverb_settings_saved[k]=params:get(k)
params:set(k,v)
end
tree=tree_:new{x=64,y=64,age=math.random(80,100)/100}
player={}
for i=1,total_num do
table.insert(player,player_:new{id=i})
end
params:add_file("fileload","load file",_path.code.."forestscapes/sounds/field")
params:set_action("fileload",function(x)
if (string.find(x,".ogg") or string.find(x,".wav")) then
engine.load_tape(1,x)
end
end)
local params_menu={
{id="db",name="volume",min=-96,max=12,exp=false,div=0.1,default=-6,unit="db"},
-- {id="bool",name="bool",min=0,max=1,exp=false,div=1,default=0,response=1,formatter=function(param) return param:get()==1 and "yes" or "no" end},
-- {id="lpf",name="lpf",min=20,max=135,exp=false,div=0.5,default=135,formatter=function(param) return musicutil.note_num_to_freq(math.floor(param:get()),true)end},
{id="rateMult",name="rate",min=-4,max=4,exp=false,div=0.01,default=1},
{id="timescalein",name="speed",min=0.1,max=100,exp=true,div=0.1,default=1},
}
for _,pram in ipairs(params_menu) do
params:add{
type="control",
id=pram.id,
name=pram.name,
controlspec=controlspec.new(pram.min,pram.max,pram.exp and "exp" or "lin",pram.div,pram.default,pram.unit or "",pram.div/(pram.max-pram.min)),
formatter=pram.formatter,
}
params:set_action(pram.id,function(x)
if pram.id=="rateMult" and math.abs(x)<0.1 then
x=0.1*(x>0 and 1 or-1)
end
engine.setp(pram.id,x)
end)
end
params:bang()
-- parameter debouncer
debounce_fn={}
-- setup osc
osc_fun={
oscnotify=function(args)
print("file edited ok!")
rerun()
end,
position=function(args)
player[tonumber(args[1])].pos_current=tonumber(args[2])
end,
posStart=function(args)
player[tonumber(args[1])].pos_start=tonumber(args[2])
end,
posEnd=function(args)
player[tonumber(args[1])].pos_end=tonumber(args[2])
end,
volume=function(args)
player[tonumber(args[1])].volume=tonumber(args[2])
end,
pan=function(args)
player[tonumber(args[1])].pan=tonumber(args[2])
end,
}
osc.event=function(path,args,from)
if string.sub(path,1,1)=="/" then
path=string.sub(path,2)
end
if path~=nil and osc_fun[path]~=nil then
osc_fun[path](args)
else
-- print("osc.event: '"..path.."' ?")
end
end
-- start redrawing clock
clock.run(function()
while true do
debounce_params()
clock.sleep(1/15)
redraw()
end
end)
clock.run(function()
clock.sleep(0.2)
params:set("fileload","/home/we/dust/code/forestscapes/sounds/field/HoscheidKlangwanderwegRhrenglockenreihe.ogg")
clock.sleep(0.2)
local rates={1,1,1,0.125/2,0.5,0.5,0.25,2,0.125}
for i=1,total_num do
engine.play_tape(1,i,rates[math.random(#rates)],0,1)
end
end)
-- show_message("welcome")
end
function show_progress(val)
show_message_progress=util.clamp(val,0,100)
end
function show_message(message,seconds)
seconds=seconds or 2
show_message_clock=10*seconds
show_message_text=message
end
function draw_message()
if show_message_clock~=nil and show_message_text~=nil and show_message_clock>0 and show_message_text~="" then
show_message_clock=show_message_clock-1
screen.blend_mode(0)
local x=64
local y=28
local w=screen.text_extents(show_message_text)+8
screen.rect(x-w/2,y,w+2,10)
screen.level(0)
screen.fill()
screen.rect(x-w/2,y,w+2,10)
screen.level(15)
screen.stroke()
screen.move(x,y+7)
screen.level(10)
screen.text_center(show_message_text)
if show_message_progress~=nil and show_message_progress>0 then
-- screen.update()
screen.blend_mode(13)
screen.rect(x-w/2,y,w*(show_message_progress/100)+2,9)
screen.level(10)
screen.fill()
screen.blend_mode(0)
else
-- screen.update()
screen.blend_mode(13)
screen.rect(x-w/2,y,w+2,9)
screen.level(10)
screen.fill()
screen.blend_mode(0)
screen.level(0)
screen.rect(x-w/2,y,w+2,10)
screen.stroke()
end
if show_message_clock==0 then
show_message_text=""
show_message_progress=0
end
end
end
function debounce_params()
for k,v in pairs(debounce_fn) do
if v~=nil and v[1]~=nil and v[1]>0 then
v[1]=v[1]-1
if v[1]~=nil and v[1]==0 then
if v[2]~=nil then
local status,err=pcall(v[2])
if err~=nil then
print(status,err)
end
end
debounce_fn[k]=nil
else
debounce_fn[k]=v
end
end
end
end
function rerun()
norns.script.load(norns.state.script)
end
function cleanup()
os.execute("pkill -f oscnotify")
for k,v in pairs(reverb_settings_saved) do
params:set(k,v)
end
end
kon={false,false,false}
function key(k,z)
kon[k]=z==1
if z==1 and k==3 then
-- reverse
params:set("rateMult",params:get("rateMult")*-1)
end
end
encs={"db","rateMult","timescalein"}
function enc(k,d)
params:delta(encs[k],d)
end
function redraw()
screen.clear()
tree:redraw()
for _,p in ipairs(player) do
p:redraw()
end
draw_message()
screen.update()
end