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
|
import
ValueStream, EventStream, IOStream,
Error, Op, Input, val, evt
from require 'core.base'
import monotime from require 'system'
class Clock extends IOStream
new: (@frametime) =>
super 'clock'
return unless monotime
@last = monotime!
@dt = 0
@is_dirty = false
tick: =>
time = monotime!
@dt = time - @last
@is_dirty = if @dt >= @frametime
@last = time
true
else
false
unwrap: =>
dt = @dt
time = @last
{ :dt, :time }
dirty: => @is_dirty
clock = ValueStream.meta
meta:
name: 'clock'
summary: "Create a clock source."
examples: { '(clock)', '(clock fps)' }
description: "
IO that triggers other operators at a fixed frame rate.
`fps` defaults to 60 and has to be an eval-time constant"
value: class extends Op
new: (...) =>
super ...
@out or= Clock!
setup: (inputs) =>
fps = (-val.num)\match inputs
super fps: Input.hot fps or ValueStream.num 60
@out.frametime = 1 / @inputs.fps!
tick: =>
@out.frametime = 1 / @inputs.fps!
lfo = ValueStream.meta
meta:
name: 'lfo'
summary: "Low-frequency oscillator."
examples: { '(lfo [clock] freq [wave])' }
description: "
oscillates between 0 and 1 at the frequency freq.
wave selects the wave shape from the following:
- `'sin'` (default)
- `'saw'`
- `'tri'`"
value: class extends Op
new: (...) =>
super ...
@state or= 0
@out or= ValueStream 'num'
default_wave = ValueStream.str 'sin'
pattern = -evt.clock + val.num + -val.str
setup: (inputs, scope) =>
{ clock, freq, wave } = pattern\match inputs
super
clock: Input.hot clock or scope\get '*clock*'
freq: Input.cold freq
wave: Input.hot wave or default_wave
tau = math.pi * 2
tick: =>
if @inputs.clock\dirty!
@state += @inputs.clock!.dt * @iputs.freq!
@out\set switch @inputs.wave!
when 'sin' then .5 + .5 * math.cos @state * tau
when 'saw' then @state % 1
when 'tri' then math.abs (2*@state % 2) - 1
else error Error 'argument', "unknown wave type '#{wave}'"
ramp = ValueStream.meta
meta:
name: 'ramp'
summary: "Sawtooth LFO."
examples: { '(ramp [clock] period [max])' }
description: "
ramps from 0 to max (default same as ramp) once every period seconds."
value: class extends Op
new: (...) =>
super ...
@state or= 0
@out or= ValueStream 'num'
pattern = -evt.clock + val.num + -val.num
setup: (inputs, scope) =>
{ clock, period, max } = pattern\match inputs
super
clock: Input.hot clock or scope\get '*clock*'
period: Input.cold period
max: max and Input.cold max
tick: =>
clock_dirty = @inputs.clock\dirty!
if clock_dirty
period = @inputs.period!
max = (@inputs.max or @inputs.period)!
@phase += @inputs.clock!.dt / period
while @phase >= 1
@phase -= 1
@out\set @phase * max
tick = ValueStream.meta
meta:
name: 'tick'
summary: "Count ticks."
examples: { '(tick [clock] period)' }
description: "
counts upwards by one every period seconds and returns the number of completed
ticks."
value: class extends Op
new: (...) =>
super ...
@state or= { phase: 0, count: 0 }
@out or= ValueStream 'num', @state.count
pattern = -evt.clock + val.num
setup: (inputs, scope) =>
{ clock, period } = pattern\match inputs
super
clock: Input.hot clock or scope\get '*clock*'
period: Input.cold period
tick: =>
@state.phase += @inputs.clock!.dt / @inputs.period!
while @state.phase >= 1
@state.phase -= 1
@state.count += 1
@out\set @state.count
every = ValueStream.meta
meta:
name: 'every'
summary: "Emit bangs."
examples: { '(every [clock] period)' }
description: "returns true once every period seconds."
value: class extends Op
new: (...) =>
super ...
@state or= 0
@out or= EventStream 'bang'
pattern = -evt.clock + val.num
setup: (inputs, scope) =>
{ clock, period } = pattern\match inputs
super
clock: Input.hot clock or scope\get '*clock*'
period: Input.cold period
tick: =>
@state += @inputs.clock!.dt / @inputs.period!
while @state >= 1
@state -= 1
@out\add true
{
:clock
:lfo
:ramp
:tick
:every
'*clock*': with Clock 1/60
.meta =
name: '*clock*'
summary: 'Default clock source (60fps).'
}
|
