examples/peekbag.pd_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

-- contributed by Frank Barknecht

local PeekBag = pd.Class:new():register("peekbag")

function PeekBag:initialize(name, atoms)
  self.inlets = 2
  self.outlets = 1
  self.bag = {}
  self.add = false
  return true
end

function PeekBag:in_1_float(f)
    if self.add then
        table.insert(self.bag, f)
    else
        for i=table.getn(self.bag),1,-1 do
            if self.bag[i]==f then
                table.remove(self.bag, i)
                break
            end
        end
    end
end

function PeekBag:in_1_list(l)
    if type(l[2])  == "number" then
        self:in_2_float(l[2])
    end
    if type(l[1])  == "number" then
        self:in_1_float(l[1])
    end
end

function PeekBag:in_1_clear(l)
  self.bag = {}
  self.add = false
end

function PeekBag:in_1_flush(l)
    self:in_1_bang()
    self:in_1_clear()
end

function PeekBag:in_2_float(f)
    if f == 0 then
        self.add = false
    else
        self.add = true
    end
end

function PeekBag:in_1_bang()
    -- print all values of array 
    for i,v in ipairs(self.bag) do 
        self:outlet(1, "float", {v})
    end
end

function PeekBag:in_1_aslist()
    -- print all values of array as list
    if table.getn(self.bag) == 1 then
        self:outlet(1, "float", {self.bag[1]})
    elseif table.getn(self.bag) > 1 then
        self:outlet(1, "list", self.bag)
    end
end