#lang scribble/manual
@(require (for-label racket))

@title{(mrg2 left right)}


mrg2 defines a node indicating a multiple root graph.


@racketblock[
(let ((l (out 0 (mul (sin-osc ar 300 0) 0.1)))
      (r (out 1 (mul (sin-osc ar 900 0) 0.1))))
  (audition
   (mrg2 l r)))
]

there is a leftmost rule, so that mrg nodes need not
be terminal.


@racketblock[
(let ((l (mul (sin-osc ar 300 0) 0.1))
      (r (out 1 (mul (sin-osc ar 900 0) 0.1))))
  (audition (out 0 (mrg2 l r))))
]

the leftmost node may be an mce node


@racketblock[
(let ((l (mul (sin-osc ar (mce2 300 400) 0) 0.1))
      (r (out 1 (mul (sin-osc ar 900 0) 0.1))))
  (audition (out 0 (mrg2 l r))))
]

the implementation is not thorough


@racketblock[
(let ((l (mul (sin-osc ar (mce2 300 400) 0) 0.1))
      (r (out 1 (mul (sin-osc ar 900 0) 0.1))))
  (audition (out 0 (add (mrg2 l r)
                        (mrg2 l r)))))
]