16 lines
554 B
Scheme
16 lines
554 B
Scheme
; blips 001 (jmcc) #SC3d1.5
|
|
(withSc3List
|
|
(list
|
|
(postProcessUgen
|
|
2
|
|
(lambda (z)
|
|
(let ((f (lambda (x) (AllpassN x 0.05 (Mce2 (Rand 0 0.05) (Rand 0 0.05)) 4))))
|
|
(iterate 6 f (Distort z)))))
|
|
(overlapTextureUgen
|
|
(list 2 1 12 +inf.0)
|
|
(let* ((c (Coin 0.8))
|
|
(b (lambda ()
|
|
(let ((f (XLine (ExpRand 0.25 400) (ExpRand 0.25 400) 4 0))
|
|
(nh (XLine (ExpRand 2 100) (ExpRand 2 100) 4 0)))
|
|
(Blip f nh)))))
|
|
(Mul c (Pan2 (Mul (b) (b)) (Line (Rand2 1) (Rand2 1) 4 0) 0.3))))))
|