Example 1. Printing the contents of an .osc file to the standard output.

(defobject simple (scsynth)
  ((freq :initform 440)
   (dur :initform 1)
   (amp :initform .2)
   (pan :initform 0))
  (:parameters freq dur amp pan time))

(define (sc-simple-1 num)
  (process repeat num 
	   output (new simple :time (now) 
		       :freq (between 300 700)
		       :dur (between 10 20)
		       :amp .1
		       :pan (pickl '(-1.0 0 1.0)))
	   wait (between 2.0 3.0)))

(events (sc-simple-1 10) "sc-simple-1.osc" )
⇒ "sc-simple-1.osc"

(dumposc "sc-simple-1.osc")
[
[0.0, [/s_new, simple, -1, 1, 0, freq, 393, dur, 12, amp, 0.1, pan, 1.0]],
[2.0071507, [/s_new, simple, -1, 1, 0, freq, 344, dur, 13, amp, 0.1, pan, 0]],
[5.004827, [/s_new, simple, -1, 1, 0, freq, 603, dur, 13, amp, 0.1, pan, 0]],
[8.002115, [/s_new, simple, -1, 1, 0, freq, 648, dur, 17, amp, 0.1, pan, -1.0]],
[10.004819, [/s_new, simple, -1, 1, 0, freq, 618, dur, 18, amp, 0.1, pan, 1.0]],
[12.007147, [/s_new, simple, -1, 1, 0, freq, 507, dur, 10, amp, 0.1, pan, 1.0]],
[15.000254, [/s_new, simple, -1, 1, 0, freq, 344, dur, 11, amp, 0.1, pan, 1.0]],
[17.00118, [/s_new, simple, -1, 1, 0, freq, 356, dur, 18, amp, 0.1, pan, -1.0]],
[19.001633, [/s_new, simple, -1, 1, 0, freq, 462, dur, 19, amp, 0.1, pan, 0]],
[21.007278, [/s_new, simple, -1, 1, 0, freq, 386, dur, 14, amp, 0.1, pan, 0]],
[26.007278, [/c_set, 0, 0]]
]
⇒ #t