examples/binbuf-test.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package require Tclpd 0.2.2
package require TclpdLib 0.18

pd::class binbuf-test {
    constructor {
        pd::add_outlet $self list
    }

    destructor {
    }

    0_bang {
        pd::outlet $self 0 list [pd::get_binbuf $self]
    }
}