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

@title{(pulse rate freq width)}


Bandlimited pulse wave generator.

Modulate frequency


@racketblock[
(audition
 (let ((f (x-line kr 40 4000 6 remove-synth)))
   (out 0 (mul (pulse ar f 0.1) 0.2))))
]

modulate pulse width


@racketblock[
(audition
 (let ((w (line kr 0.01 0.99 8 remove-synth)))
   (out 0 (mul (pulse ar 200 w) 0.2))))
]

two band limited square waves thru a resonant low pass filter


@racketblock[
(audition
 (out 0 (rlpf (mul (pulse ar (mce2 100 250) 0.5) 0.1) 
	      (x-line kr 8000 400 5 remove-synth) 
	      0.05)))
]