2022-08-24 13:53:18 +00:00
|
|
|
#lang scribble/manual
|
|
|
|
|
@(require (for-label racket))
|
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
@title{mrg ; the implementation is not thorough (error...)}
|
2022-08-24 13:53:18 +00:00
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(let ((l (mul (sin-osc (mce2 300 400) 0) 0.1))
|
|
|
|
|
(r (out 1 (mul (sin-osc 900 0) 0.1))))
|
|
|
|
|
(add (mrg2 l r) (mrg2 l r)))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
|
|
|
|
|
2022-08-24 13:53:18 +00:00
|
|
|
|
