added wolf's code
[swamp-bikeopera:code.git] / lib / audioc.lua
1 module("audioc", package.seeall)
2
3 local mt = { __index = {} }
4
5 ---
6 local function send(message)
7  
8    local pipe = io.open("/tmp/dodo", "w")
9    if pipe then
10       pipe:write(message.."\n")
11    else
12     return false
13    end
14
15 pipe:close()
16 return true
17 end
18
19 ---
20 function play(id, channel)
21   local message
22   if not channel then
23      message = "play "..id
24   else
25      message = "play_"..channel.." "..id
26   end
27   send(message)
28 end
29
30 ---
31 function stop(id)
32   local message = "stop "..id
33   send(message)
34 end
35
36
37 ---
38 function shift(id, channel)
39   local message
40      message = channel.." "..id
41      send(message)
42 end
43
44
45 ---
46 function fadeout(id)
47   local message = "fadeout "..id
48   send(message)
49 end
50
51
52 ---
53 function pitch(id, speed)
54    local message = speed.." "..id
55    send(message)
56 end
57