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
|
import Op, Value from require 'core'
unpack or= table.unpack
class BinOp extends Op
new: =>
super 'num', 0
setup: (params) =>
super params
assert #@inputs >= 2, "#{@} needs at least two parameters"
class add extends BinOp
@doc: "(+ a b [c]...)
(add a b [c]...) - add values"
tick: =>
value = 0
for child in *@inputs
value += child\unwrap 'num'
@out\set value
class sub extends BinOp
@doc: "(- a b [c]...)
(sub a b [c]...) - subtract values
subtracts all other arguments from a"
tick: =>
value = @inputs[1]\unwrap 'num'
for child in *@inputs[2,]
value -= child\unwrap 'num'
@out\set value
class mul extends BinOp
@doc: "(* a b [c]...)
(mul a b [c]...) - multiply values"
tick: =>
value = 1
for child in *@inputs
value *= child\unwrap 'num'
@out\set value
class div extends BinOp
@doc: "(/ a b [c]...)
(div a b [c]...) - divide values
divides a by all other arguments"
tick: =>
value = @inputs[1]\unwrap 'num'
for child in *@inputs[2,]
value /= child\unwrap 'num'
@out\set value
evenodd_op = (name, remainder) ->
class k extends Op
setup: (@a, @div=Const.num 2) =>
@out = Stream 'bool'
@out
tick: =>
a, divi = (@a\unwrap 'num'), @div\unwrap 'num'
@out\set (a % divi) == remainder
k.__name = name
k.doc = "(#{name} a [div]) - check for #{name} divison
div defaults to 2"
k
func_op = (name, arity, func) ->
k = class extends Op
new: =>
super 'num'
setup: (...) =>
@params = { ... }
if arity != '*'
assert #@params == arity, "#{@} needs exactly #{arity} parameters"
tick: =>
@out\set func unpack [p\unwrap 'num' for p in *@params]
k.__name = name
k
mod = func_op 'mod', 2, (a, b) -> a % b
module = {
:add, '+': add
:sub, '-': sub
:mul, '*': mul
:div, '/': div
:mod, '%': mod
mix: func_op 'mix', 3, (a, b, i) -> i*b + (1-i)*a
even: evenodd_op 'even', 0
odd: evenodd_op 'odd', 1
pi: math.pi, huge: math.huge
}
for name, arity in pairs {
exp: 1, log: 2, log10: 1, sqrt: 1
cos: 1, sin: 1, tan: 1
asin: 1, acos: 1, atan: 1, atan2: 2
sinh: 1, cosh: 1, tanh: 1
min: '*', max: '*'
floor: 1, ceil: 1, abs: 1
}
module[name] = func_op name, arity, math[name]
module
|
