(new)

(setq breath-env (make-controller 'envelope 1 '((0 0) (0.1 100) (5 100) (7.5 20) (10 100) (10.1 0))))

(setq jet (make-object 'jet
         (pressure breath-env)
         (air-density 1.2)
         (length 0.03)
         (width .02)
         (height .001)
         (flue-labium-distance .004)
         (labium-position 0.02)
         (mouth-surface 8e-5)))
(setq tube (make-object 'closed-open-tube
         (modes 80)
         (length 1)
         (air-elasticity .00000721)
         (air-density 1.2)
         (radius0 .95)
         (radius1 .95)
         (freq-loss 1)
         (const-loss 1)))
(setq tube-acc (make-access tube (const 0) 'long))

(set-pitch tube 'length 138)

(make-connection 'labium tube-acc jet (const 0) (const 4.99 .1 1) (const 0.005) 1)

(setq tube-out (make-access tube (const .9) 'long))

(make-point-output tube-out)

(run 30)
(play)