(require rsc3-interface/plt/rsc3-interface
         rsc3-schedule/rsc3-schedule)

(define T #f)

(let ((w (make-window "tracer.test")))
  (make-tracer w 500 500 (lambda (t) (set! T t)) utc)
  (window-show w))

(let ((x (concat (map (lambda (l) (list (loc-t l) (loc-x l))) T)))
      (y (concat (map (lambda (l) (list (loc-t l) (loc-y l))) T)))
      (n 4.75))
  (Pan2 (Mul (SinOsc ar 
		     (EnvGen kr 1 440 440 n 2 (env/bp x 1 1))
		     0)
	     (EnvGen kr 1 1 0 n 2 (env/bp y 1 1)))
	(EnvGen kr 1 2 -1 n 2 (env/bp x 1 1))
	1))

;; Writing to file

(write-snd-file 
 au-f32 44100 3 (format "/home/rohan/lib/trace/~a.txy.au" (utc->ntp (utc)))
 (interleave (map (lambda (l) (loc-t l)) T)
	     (map (lambda (l) (loc-x l)) T)
	     (map (lambda (l) (loc-y l)) T)))

(write-snd-file 
 au-f32 44100 2 (format "/home/rohan/lib/trace/~a.xy.au" (utc->ntp (utc)))
 (interleave (map (lambda (l) (loc-x l)) T)
	     (map (lambda (l) (loc-y l)) T)))