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
|
import Constant, Op, T, Array, Input, sig, any from require 'alv.base'
bar = Constant.meta
meta:
name: 'bar'
summary: "visualize number as a bar."
examples: { '(vis/bar val [[min] max])' }
description: "
Visualizes `val` as a bar with range `min, max`.
`val` can be a `num~` or `num!`, `min` and `max` are optional `num~`.
`min` defaults to `0` and `max` defaults to `1`."
value: class extends Op
pattern = any.num + -sig.num + -sig.num
setup: (inputs, scope) =>
{ val, min, max } = pattern\match inputs
if not max
min, max = nil, min
super
val: Input.hot val
min: Input.cold min or Constant.num 0
max: Input.cold max or Constant.num 1
@setup_out val.result.metatype, val\type!
tick: =>
{ :val, :min, :max } = @unwrap_all!
delta = max - min
@state = (val / delta) - min
@out\set val
vis: =>
{
type: 'bar'
bar: @state
}
rgb = Constant.meta
meta:
name: 'rgb'
summary: "visualize an array as an RGB color."
examples: { '(vis/rgb val [range])' }
description: "
Visualizes `val` as an RGB(A) color with each component in range `0 - range`.
`val` needs to be a `[3]num~`, `[3]num!`, `[4]num~`, or `[4]num!`.
`range` is a `num~` and defaults to `1`."
value: class extends Op
a3 = (Array 3, T.num)
a4 = (Array 4, T.num)
color = (any a3) / (any a4)
pattern = color + -sig.num
setup: (inputs, scope) =>
{ val, max } = pattern\match inputs
super
val: Input.hot val
max: Input.cold max or Constant.num 1
@setup_out val.result.metatype, val\type!
tick: =>
{ :val, :max } = @unwrap_all!
@out\set val
@state = [i/max for i in *val]
vis: =>
{
type: 'rgb'
rgb: @state
}
Constant.meta
meta:
name: 'vis'
summary: "Operators for in-editor visualisation."
value:
:bar
:rgb
|
