171 lines
4 KiB
Racket
171 lines
4 KiB
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{gendy1}
|
|
|
|
|
|
sclang defaults
|
|
|
|
@racketblock[
|
|
(audition (out 0 (pan2 (gendy1 ar 1 1 1 1 440 660 0.5 0.5 12 12) 0 0.15)))
|
|
]
|
|
|
|
Wandering bass
|
|
|
|
@racketblock[
|
|
(audition (out 0 (pan2 (gendy1 ar 1 1 1.0 1.0 30 100 0.3 0.05 5 5) 0 0.15)))
|
|
]
|
|
|
|
Play me
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 100 1000 1 0.1))
|
|
(g (gendy1 ar 2 3 1 1 20 x 0.5 0.0 40 40)))
|
|
(audition (out 0 (pan2 (mul (rlpf g 500 0.3) 0.2) 0.0 0.25))))
|
|
]
|
|
|
|
Scream!
|
|
|
|
@racketblock[
|
|
(let ((x (mouse-x kr 220 440 1 0.1))
|
|
(y (mouse-y kr 0.0 1.0 0 0.1)))
|
|
(audition (out 0 (pan2 (gendy1 ar 2 3 1 1 x (mul 8 x) y y 7 7) 0.0 0.3))))
|
|
]
|
|
|
|
1 CP = random noise
|
|
|
|
@racketblock[
|
|
(audition (out 0 (pan2 (gendy1 ar 1 1 1 1 440 660 0.5 0.5 1 1) 0 0.15)))
|
|
]
|
|
|
|
2 CPs = an oscillator
|
|
|
|
@racketblock[
|
|
(audition (out 0 (pan2 (gendy1 ar 1 1 1 1 440 660 0.5 0.5 2 2) 0 0.15)))
|
|
]
|
|
|
|
Used as an LFO
|
|
|
|
@racketblock[
|
|
(let* ((ad (mul-add (sin-osc kr 0.1 0) 0.49 0.51))
|
|
(dd (mul-add (sin-osc kr 0.13 0) 0.49 0.51))
|
|
(as (mul-add (sin-osc kr 0.17 0) 0.49 0.51))
|
|
(ds (mul-add (sin-osc kr 0.19 0) 0.49 0.51))
|
|
(g (gendy1 kr 2 4 ad dd 3.4 3.5 as ds 10 10)))
|
|
(audition (out 0 (pan2 (sin-osc ar (mul-add g 50 350) 0) 0.0 0.3))))
|
|
]
|
|
|
|
Wasp
|
|
|
|
@racketblock[
|
|
(let ((ad (mul-add (sin-osc kr 0.1 0) 0.1 0.9)))
|
|
(audition (out 0 (pan2 (gendy1 ar 0 0 ad 1.0 50 1000 1 0.005 12 12) 0.0 0.2))))
|
|
]
|
|
|
|
Modulate distributions. Change of pitch as distributions change
|
|
the duration structure and spectrum
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 0 7 0 0.1))
|
|
(y (mouse-y* kr 0 7 0 0.1))
|
|
(g (gendy1 ar x y 1 1 440 660 0.5 0.5 12 12)))
|
|
(audition (out 0 (pan2 g 0 0.2))))
|
|
]
|
|
|
|
Modulate number of CPs.
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 1 13 0 0.1))
|
|
(g (gendy1 ar 1 1 1 1 440 660 0.5 0.5 12 x)))
|
|
(audition (out 0 (pan2 g 0 0.2))))
|
|
]
|
|
|
|
Self modulation.
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 1 13 0 0.1))
|
|
(y (mouse-y* kr 0.1 10 0 0.1))
|
|
(g0 (gendy1 kr 5 4 0.3 0.7 0.1 y 1.0 1.0 5 5))
|
|
(g1 (gendy1 ar 1 1 1 1 440 (mul-add g0 500 600) 0.5 0.5 12 x)))
|
|
(audition (out 0 (pan2 g1 0.0 0.2))))
|
|
]
|
|
|
|
Use SINUS to track any oscillator and take CP positions from it use
|
|
adparam and ddparam as the inputs to sample.
|
|
|
|
@racketblock[
|
|
(let* ((p (lf-pulse kr 100 0 0.4))
|
|
(s (mul (sin-osc kr 30 0) 0.5))
|
|
(g (gendy1 ar 6 6 p s 440 660 0.5 0.5 12 12)))
|
|
(audition (out 0 (pan2 g 0.0 0.2))))
|
|
]
|
|
|
|
Near the corners are interesting.
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 0 200 0 0.1))
|
|
(y (mouse-y* kr 0 200 0 0.1))
|
|
(p (lf-pulse kr x 0 0.4))
|
|
(s (mul (sin-osc kr y 0) 0.5))
|
|
(g (gendy1 ar 6 6 p s 440 660 0.5 0.5 12 12)))
|
|
(audition (out 0 (pan2 g 0.0 0.2))))
|
|
]
|
|
|
|
Texture
|
|
|
|
@racketblock[
|
|
(let*
|
|
((o (let* ((f (rand 130.0 160.3))
|
|
(ad (mul-add (sin-osc kr 0.1 0) 0.49 0.51))
|
|
(dd (mul-add (sin-osc kr 0.13 0) 0.49 0.51))
|
|
(as (mul-add (sin-osc kr 0.17 0) 0.49 0.51))
|
|
(ds (mul-add (sin-osc kr 0.19 0) 0.49 0.51))
|
|
(g (gendy1 ar (rand 0 6) (rand 0 6) ad dd f f as ds 12 12)))
|
|
(pan2 (sin-osc ar (mul-add g 200 400) 0)
|
|
(rand -1 1)
|
|
0.1)))
|
|
(x (mix-fill 10 (lambda (_) o))))
|
|
(audition (out 0 x)))
|
|
]
|
|
|
|
Try durscale 10.0 and 0.0 too.
|
|
|
|
@racketblock[
|
|
(let* ((x (mouse-x* kr 10 700 0 0.1))
|
|
(y (mouse-y* kr 50 1000 0 0.1))
|
|
(g (gendy1 ar 2 3 1 1 1 x 0.5 0.1 10 10)))
|
|
(audition (out 0 (pan2 (comb-n (resonz g y 0.1) 0.1 0.1 5) 0.0 0.6))))
|
|
]
|
|
|
|
Overkill
|
|
|
|
@racketblock[
|
|
(define (overkill i)
|
|
(mix-fill
|
|
i
|
|
(lambda (_)
|
|
(let* ((f (rand 50 560.3))
|
|
(n (rand 2 20))
|
|
(k (mul-add (sin-osc kr (exp-rand 0.02 0.2) 0)
|
|
(fdiv n 2)
|
|
(fdiv n 2)))
|
|
(g (gendy1 ar
|
|
(rand 0 6) (rand 0 6) (rand 0 1) (rand 0 1) f f
|
|
(rand 0 1) (rand 0 1) n k)))
|
|
(pan2 g (rand -1 1) (fdiv 0.5 (sqrt i)))))))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(audition (out 0 (overkill 10)))
|
|
]
|
|
|
|
Another traffic moment
|
|
|
|
@racketblock[
|
|
(let ((x (mouse-x* kr 100 2000 0 0.1))
|
|
(y (mouse-y* kr 0.01 1.0 0 0.1)))
|
|
(audition (out 0 (resonz (overkill 10) x y))))
|
|
]
|
|
|
|
|