Tract

More words to come.

(monolith:start-offline)
(monolith:load "ugens.scm")

(define tr (tract:new))

(ftnew 44)
(regset zz 0)

(tract:use-diameters tr 0)

(regget 0)
(tract:constant 0 44 0.03)

(regget 0)
(tract:exponential 4 21 23 0.01 1.0)

(regget 0)
(tract:parabola 8 7 0.03 0.9)

(regget 0)
(tract:area-shape tr)

(blsquare (mtof 48) 0.5 0.1)
(tract:node tr)

(wavout zz "test.wav")

(out zz)

(monolith:compute (* 44100 1))