diff options
author | Martin Peach <mrpeach@users.sourceforge.net> | 2011-03-15 20:53:57 +0000 |
---|---|---|
committer | Martin Peach <mrpeach@users.sourceforge.net> | 2011-03-15 20:53:57 +0000 |
commit | 267170167d52cab9e97f879d9127a1cf04f6bb58 (patch) | |
tree | 00260a90ce6472e34c5eff41602af57595c8830d /examples/revalue.pd_lua |
This is a version of Claude Heiland-Allen's lua for Pd. The objects are named pdlua and pdluax instead of lua and luax. So far it seems to work on linux.svn2git-root
svn path=/trunk/externals/pdlua/; revision=15030
Diffstat (limited to 'examples/revalue.pd_lua')
-rw-r--r-- | examples/revalue.pd_lua | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/examples/revalue.pd_lua b/examples/revalue.pd_lua new file mode 100644 index 0000000..e2503df --- /dev/null +++ b/examples/revalue.pd_lua @@ -0,0 +1,39 @@ +local Revalue = pd.Class:new():register("revalue") + +function Revalue:initialize(sel, atoms) + self.inlets = 2 + self.outlets = 2 + if type(atoms[1]) == "string" then + self.name = atoms[1] + else + self.name = nil + end + return true +end + +-- get a value or report if it doesn't exist +function Revalue:in_1_bang() + if self.name ~= nil then + local r = pd.getvalue(self.name) + if r ~= nil then + self:outlet(1, "float", { r }) + return + end + end + self:outlet(2, "bang", { }) +end + +-- set a value or report if it doesn't exist +function Revalue:in_1_float(f) + if self.name ~= nil then + if pd.setvalue(self.name, f) then + return + end + end + self:outlet(2, "bang", { }) +end + +-- set the [value] name +function Revalue:in_2_symbol(s) + self.name = s +end |