open osc
open sc3
open random

fun print_ln s = (print s; print "\n")

val fd = open_udp "127.0.0.1" 57110

fun c x = constant x
fun k s x = ctl kr s x
val u = let val f1 = k "f1" 440.0
            val f2 = k "f2" 440.0
            val a = k "a" 0.1
        in out (c 0.0) (mul (sin_osc ar (mce2 f1 f2) (c 0.0)) a)
        end
val s = synthdef "sml_sc3_test" u
val _ = send fd (d_recv s)
val _ = recv fd
val _ = send fd (s_new0 "sml_sc3_test" 1001 add_to_tail 1)

val _ = random_seed ()
val m = n_set 1001 [("f1", random 100.0 600.0), ("a", random 0.0 0.25)]
val n = send fd m
val _ = print_ln (show_osc m)

val _ = send fd status
val r = recv fd
val _ = print_ln (show_osc r)

(*
val m = n_set1 (1001, "f", 230.0);
val m = n_set (1001, [("f", 1300.0),("a", 0.04)])
*)