n_query.help.lhs

> Sound.SC3.Server.Help.viewServerHelp "/n_query"

> import Sound.OSC
> import Sound.SC3

> let d = let {f = control KR "freq" 440
>             ;o = saw AR f * 0.1}
>         in synthdef "saw" (out 0 o)

> withSC3 (async (d_recv d) >>
>          send (s_new0 "saw" 1000 AddToTail 1))

> r <- withSC3 (send (n_query [1000]) >>
>               waitReply "/n_info")

> print r