Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 20 lines (14 sloc) 0.461 kb
d7a65ef9 »
2012-08-08 adds
1 import Sound.OpenSoundControl
2 import Network.Netclock.Client
3
4 tpb = 4
5 address = "127.0.0.1"
6
7 adeip = "192.168.1.3"
8 adeport = 1777
9
10 main = clocked "adesync" address address tpb ot
11
12 ot :: BpsChange -> Int -> IO ()
13 ot change tick = do putStrLn "tick"
14 ade <- openUDP adeip adeport
15 let m = Message "/PureEvents/Beat" [Int tick]
16 send ade m
17 close ade
18 return ()
19
Something went wrong with that request. Please try again.