(import (rsc3)
	(rsc3 dot))

(define show-graph
  (lambda (u)
    (system "rm -f /tmp/graph.dot")
    (draw-graph u "/tmp/graph.dot")
    (system "dotty /tmp/graph.dot &")))

(let* ((o1 (lf-saw kr (mce2 8 7.23) 0.0))
       (o2 (lf-saw kr 0.4 0.0))
       (f (midi-cps (mul-add o2 24 (mul-add o1 3 80)))))
  (show-graph
   (out 0 (comb-n (mul (sin-osc ar f 0.0) 0.1) 0.2 0.2 4))))

(show-graph
 (letc ((freq 440)) (out 0 (mul (sin-osc ar freq 0) 0.1))))

(show-graph
 (out 0 (pan2 (mul (sin-osc ar 440 0) 0.1) (sin-osc kr 1 0) 1)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Local procedures are not exported - load implementation files.

(load "../src/dot.scm")
(load "../src/rsc3-dot.scm")

(define g
  (synthdef
   "Test"
   (letc ((freq 440)) (out 0 (mul (sin-osc ar freq 0) 0.1)))))

(map1
 (lambda (u)
   (ugen-to-label g u))
 (graphdef-ugens g))

(node
 (ugen-to-node
  g
  (graphdef-ugen g 0)
  0))

(node
 (control-to-node
  g
  (graphdef-control g 0)
  (list-ref (graphdef-defaults g) 0)
  0))

(digraph
 (graphdef-to-dot g))

(scheme-name "LFSaw")

(scheme-name "SinOsc")