blob: 88fdb895c987012bff7ebb296db54fe0e340e349 (
plain)
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
|
import Op, Value, ValueInput, EventInput, match from require 'core.base'
apply_range = (range, val) ->
if range\type! == 'str'
switch range\unwrap!
when 'uni' then val
when 'bip' then val * 2 - 1
when 'rad' then val * 2 * math.pi
when 'deg' then val * 360
else
error "unknown range #{@range}"
elseif range.type == 'num'
val * range\unwrap!
else
error "range has to be a string or number"
range_doc = "
range can be one of:
- 'uni' [ 0 - 1[ (default)
- 'bip' [-1 - 1[
- 'rad' [ 0 - tau[
- 'deg' [ 0 - 360[
- (num) [ 0 - num["
class num extends Op
@doc: "(random/num [trigger] [range]) - create a random number
generates a random value in range on create and trigger.
#{range_doc}"
new: =>
super 'num'
@gen!
gen: => @val = math.random!
setup: (inputs) =>
{ trig, range } = match 'bang? any?', inputs
super
trig: trig and EventInput trig
range: ValueInput range or Value.str 'uni'
tick: =>
@gen! if @inputs.trig and @inputs.trig\dirty!
@out\set apply_range @inputs.range, @val
vec_ = (n) ->
class vec extends Op
@doc: "(random/vec#{n} [trigger] [range]) - create a random number
generates a random vec#{n} on create and trigger.
each component is in range.
#{range_doc}"
new: =>
super "vec#{n}"
@gen!
gen: => @val = for i=1,n do math.random!
setup: (inputs) =>
{ trig, range } = match 'bang? any?', inputs
super
trig: trig and EventInput trig
range: ValueInput range or Value.str 'uni'
tick: =>
@gen! if @inputs.trig and @inputs.trig\dirty!
@out\set [apply_range @inputs.range, v for v in *@val]
vec.__name = "vec#{n}"
vec
{
:num
vec2: vec_ 2
vec3: vec_ 3
vec4: vec_ 4
}
|
