|
声音可以秒杀现有任意kx的混响了(aps,efx之类),但是高频比较粗,本想自己提高精度的,一看资源,mb外存操作已经几乎吃满了(50/64),看来这是emu10k2的极限了,不知emu专业卡的10k2.5有没有提升外存操作能力,把下面的代码存为.da文件即可加载# J: ?! ?# p Z1 o0 D
' l; m$ u' o; S& Q6 |7 s4 {
4 |( J x1 f4 M% B+ @: Y7 i
0 I$ ~' f9 T! H' i- }! Gname "superspace mh v1.0";% M! E x8 L% }! o0 |7 M
copyright "2009. stylus, http://stylus.siteboard.de"# C, V* T# Z I1 d! O
created ""
o p0 F) f U& |$ gengine "kX";' j& a6 |2 I& {5 v# k% M6 G
comment "high end true stereo reverb, medium hall";/ K/ ^2 a$ ?3 K
guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";
1 }" _* r, y. n" |9 r4 f
" P3 ^1 F6 U# b7 p2 @- F; late reverb algorithm from freeverb by "Jezar at Dreampoint"
$ p0 S3 M' V4 v; early reflections from impulse response "lexicon 480l" 4 n4 B2 o7 {0 n
; true stereo
+ `4 x% U8 W( P, G
+ U$ s( {/ w3 y* ?: ^+ c: E; registers
! B# {/ ]' a9 I4 [5 B. N: |input in1, in2
' {7 m }# `, [- uoutput out1, out2
1 H9 S5 c- \( z5 Tstatic a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea1 @( n9 o' f) U% N6 f
static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
, C( v; s# |) Dstatic ap_q=0.5, f, ga, gb, h, ina, inb1 A, ?+ y$ c. b% J
control input_level=0.72 n B& C) Q& M- e$ @( n2 E$ K
control early_level=0.25- y' D/ ^/ g% {6 P' y
control late_decay=0.85
5 Q8 R, _6 y+ M C" Y3 L) Kcontrol late_damp=0.957 q& ?$ X* k; g5 I
control late_level=0.75
1 T8 Z* Y0 K- C1 w! }control lp_cut=1( W, J4 ~& n4 R: M7 L
control lp_q=0.3
Z. f% J# {1 B" Jcontrol dry_wet=0.75
% F8 `! \ S3 u# M- v/ ~& E V, o- L5 V6 o7 [. a4 y- c
xtramsize 27454: t! z" u( n" I9 _% N5 K: Z6 Z" J
$ h7 u" S: m+ \# p9 N0 a/ j e$ Z
; late reflections iir. N. ?8 O. }5 n
; left
+ Q& k5 {3 W5 E6 Q R' M5 p; G1 Q8 @4 bxdelay write wrt0a at 0
' T# V) n, {8 N) M+ D+ \xdelay read rd0a at 15563 V5 v+ N9 B, u
xdelay write wrt1a at 1557 7 j* U# N! F" G: a
xdelay read rd1a at 31731 m* a2 b7 ~4 s. e2 P3 L, d
xdelay write wrt2a at 3174 . d& e# G$ i/ s7 G0 ]6 |1 @! _
xdelay read rd2a at 4664
8 R2 ^/ X. S4 p/ s+ o y% }xdelay write wrt3a at 4665
. g7 A$ U& F4 l( \xdelay read rd3a at 6086( Y! Y, E( a- I( U
xdelay write wrt4a at 6087
2 ~( l; G0 b* |- f" C0 X4 Ixdelay read rd4a at 7363
0 U" s a0 A* @! G$ j0 \xdelay write wrt5a at 7364
2 t& b* r1 ]% ~7 Y0 qxdelay read rd5a at 8719
+ J7 S+ u; `' ]% J$ w: Bxdelay write wrt6a at 8720
j9 w$ E% `, B0 Uxdelay read rd6a at 9907
) e0 x: T) Y* { g( @ J/ D; Y" \5 Hxdelay write wrt7a at 9908
( K- G! P* v1 f: Qxdelay read rd7a at 11023
+ r% i# h2 A" [$ X2 N
4 c$ a' O. ?/ H' {1 K5 g" Y( N" ^, L; right ( e4 X0 H$ H) a" V( S9 N" `' P+ D
xdelay write wrt0b at 11024
& T o. M2 b% u! X) i0 j3 m8 Rxdelay read rd0b at 126031 Z, M2 W1 P' ^
xdelay write wrt1b at 12604 R- M8 J5 B" a* N
xdelay read rd1b at 14243 @( } u& q$ k2 ^9 g. Y, ]- `
xdelay write wrt2b at 14244 ) i8 q' g- q- \. R
xdelay read rd2b at 15757
& o2 f3 ?% i1 a0 T4 Fxdelay write wrt3b at 15758
5 [! S* `. d/ H" n: cxdelay read rd3b at 17202) v' N" ?; x" e. b/ \
xdelay write wrt4b at 17203
5 L0 a4 ?7 J1 R' F6 x+ oxdelay read rd4b at 18502/ h& s+ @% ~3 W, g
xdelay write wrt5b at 18503 9 E: T6 ~( q) E
xdelay read rd5b at 198812 x3 [. D& f0 h$ K9 J1 t9 D
xdelay write wrt6b at 19882 6 m( @2 Q* g$ o. L: D
xdelay read rd6b at 210920 Z7 t# n1 Y0 P% j$ [; @
xdelay write wrt7b at 21093 # x& \" I' F% q% m
xdelay read rd7b at 22231, v6 J0 a3 a4 v' R% b$ r7 V
- h% w Q" i# F, j* A! Q% T# { n; lexicon 480l/ medium hall/ first 8 peaks
v% y0 E/ Q& j; early reflections iir/fir : a6 |; U4 P( E
; left 0 ^# J) T: Y7 D- J
xdelay write wrt12a at 22232
2 _# c' V9 e% \2 Lxdelay read rd12a at 235662 e0 H$ E" K& E, h# F# G7 f
xdelay read rd13a at 23850) w2 d$ A% ~" X, S3 r: ^$ H
xdelay read rd14a at 24033
7 a* m' @; ~+ n# u, \9 G9 Exdelay read rd15a at 24134
- {: L1 W0 w2 bxdelay read rd16a at 24317
# Y' }$ s+ E& r' yxdelay read rd17a at 24376# T8 o1 V7 g6 ^ y2 J
xdelay read rd18a at 24418
& X/ [. U, u/ Pxdelay read rd19a at 245003 W" D, g4 ~9 c& G
+ S* Q4 q2 w, Z/ S) @; ?' W5 M- G; M
; right" P; ]5 \- ?& W! G! Y! W- e( P5 F# E
xdelay write wrt12b at 24501
& H6 R9 U! @/ I4 z( Rxdelay read rd12b at 267159 o( m: n: m3 f# G* E- b/ P
xdelay read rd13b at 26961
/ }0 N1 X0 }" D' \% \* J% `7 Axdelay read rd14b at 26984
& p0 t' Z' Z0 Cxdelay read rd15b at 27101+ ?) \2 f6 d# c
xdelay read rd16b at 27207+ |8 B* Q1 S8 w5 k; m
xdelay read rd17b at 27268
. ?' s; Z6 \# B, s# qxdelay read rd18b at 27347
: e: o6 c2 l4 {0 Pxdelay read rd19b at 27454
6 R5 Z5 Z& e8 O* r9 {' A |: ~( |0 } t
* @& ]$ Q2 Q5 O) H& litramsize 3218 1 o8 n! u7 b- ~4 l4 _
; allpasses iir, i$ M: b+ ]0 _# K8 ?
; left
9 I8 z2 k+ A" I/ Uidelay write wrt8a at 0
3 a* h# Q, D. S+ y! u, |9 X) `: _idelay read rd8a at 224
) d9 W! n) V$ Sidelay write wrt9a at 225
6 y4 I' }( f9 w/ l8 E, o1 m& oidelay read rd9a at 780
. D; b/ m& T) \! x; fidelay write wrt10a at 781
, q2 v9 n7 C8 W! g! f; A, [, uidelay read rd10a at 1221
! G4 M) t- F- N6 z% [idelay write wrt11a at 1222
+ f! d" W; ]$ ?7 m/ a# e" videlay read rd11a at 15623 e& t+ S$ K4 b( Z# @
& U! M8 s8 J1 p _
; right 0 H# k! d: B1 T+ g+ Y7 p
idelay write wrt8b at 1563 ! v$ \4 K& H; v6 U c) ~
idelay read rd8b at 1811; z0 i, w! M0 G. v1 i! }: @
idelay write wrt9b at 1812
* J7 u% S9 S7 R! g. gidelay read rd9b at 2390
2 r: T( a9 O3 P) p5 | |& ~& h$ Hidelay write wrt10b at 2391 / p% d1 _& U" W# S6 j
idelay read rd10b at 2854
2 R2 ~1 V& ~$ E; K2 ?7 Q( Eidelay write wrt11b at 2855 % v! G6 C- Y' u L V j
idelay read rd11b at 3218; C: X; Z4 W/ L. A$ Y/ b: Q2 D( p
# q$ Y- A: }5 s/ J: `
; input level
& f/ p6 ^; Y+ _& U# Z, k/ h6 `. dmacs ina, 0, in1, input_level ; default 0.58 [( S3 [/ r; r& [
macs inb, 0, in2, input_level7 W1 a/ j- d5 x6 W- M! j
" ?$ h1 l; K3 g. }: X, \4 @
; add early reflections- G7 O+ ~ ^ F& y4 W* H% n% A
; lexicon 480l, medium hall
7 {# ]( M$ h% P; left
' V3 q8 i, p1 z9 [# {& cmacs wrt12a, ina, rd19a, 0.2
& F, {( \% X& X& A3 R1 S' w% xmacs ga, 0, rd12a,-0.272302037
* C/ z: g* l& L/ [0 H+ w6 r4 `7 a% dmacs ga, ga, rd13a,-0.197265388: g. D" L6 m! |( Z5 k3 o/ h
macs ga, ga, rd14a,-0.3199269987 ~1 w3 U3 e4 N% o3 t8 f6 m) B
macs ga, ga, rd15a, 0.1531266887 U* f" b) w0 S( }
macs ga, ga, rd16a,-0.17181097/ s! T v& V% N3 [
macs ga, ga, rd17a, 0.489836215
l, F3 x( X( Z. f/ vmacs ga, ga, rd18a,-0.120240532
( z0 m: ^" t, _# T4 ?macs ga, ga, rd19a, 0.1950073091 J! j3 j0 |* U! Y# F
2 D( f2 M6 V) ?6 x; right
7 s/ B% ^- f7 P9 R4 ] z' K0 zmacs wrt12b, inb, rd19b, 0.25 Q& y- Q3 |! H1 b, }2 j
macs gb, 0, rd12b,-0.333553451& D/ ~1 {. r9 w/ T
macs gb, gb, rd13b,-0.20098583% l# J* L( K4 u+ _3 N7 D1 u" Z q; K
macs gb, gb, rd14b, 0.345275242# N$ B) P. Z9 L4 E( e& b6 Y0 T
macs gb, gb, rd15b,-0.333553451
6 q6 \$ P; _: Z6 H% W& Hmacs gb, gb, rd16b, 0.163367416) P0 |7 Q8 L- m0 g: W, f2 c) H: ^
macs gb, gb, rd17b, 0.2153601964 c. ?, F+ X6 T$ F
macs gb, gb, rd18b,-0.208048907
$ q" I* I3 Y4 X! |% qmacs gb, gb, rd19b, 0.540960355
* n; I8 A3 U& C& X/ g: I- O/ J. P! D* c
; early reflections level
' ~9 ^$ @9 s( J! _, Umacs ga, 0, ga, early_level / j9 l# V1 d U" [7 L% ^- `
macs gb, 0, gb, early_level
+ F7 e+ r# Q6 W) f6 f, m1 h9 }2 ^4 Q6 n/ ?+ W
; late input + early reflections
Q7 V1 S6 d; |" Q. Dmacs ina, ina, ga, 0.5
/ ?% o* A3 t" w( B2 c! {macs inb, inb, gb, 0.5% Q& ~9 Y N, S
9 a8 ^. {) }! \' k& Q/ \: T; trim sliders+ K- }3 B: E$ a$ n5 X+ K; y
log f, late_decay, 0x3, 0 ; logaritmic decay fader
9 e- T. R- O1 {" k; Y+ q) X $ Q* f# }" {- O$ b* p
; 8 delay lines (comb filters with lowpass damping)3 v* I7 o6 H6 O9 o
; left
, ?! _! y0 o$ Qmacs wrt0a, ina, a0a, f ; decay set to
* m: j, c: o, M* z" t( winterp a0a, a0a, late_damp, rd0a ; lp damping set to 1 W4 |. m# W5 L
macs wrt1a, ina, a1a, f" @ m9 B- t1 ~: U
interp a1a, a1a, late_damp, rd1a
- w( G8 y* J8 T& Y. bmacs wrt2a, ina, a2a, f
# g0 v1 j2 ?4 o+ a6 c' R5 P7 ointerp a2a, a2a, late_damp, rd2a. [5 k& m+ U! {8 S8 ~, A2 D F
macs wrt3a, ina, a3a, f
3 J2 n+ ]% W( B3 q: @ v3 vinterp a3a, a3a, late_damp, rd3a
$ q0 T" ~3 q" ?macs wrt4a, ina, a4a, f$ a5 [' O" f/ K A) ~+ W
interp a4a, a4a, late_damp, rd4a 1 L$ u0 Y% i- {* U; ^! d
macs wrt5a, ina, a5a, f
7 J# R, ?; ]/ r! [* M5 jinterp a5a, a5a, late_damp, rd5a
; X. l1 I% q5 ^macs wrt6a, ina, a6a, f0 t( V9 d) ^' v* [* |' R' G
interp a6a, a6a, late_damp, rd6a
. a6 X0 x0 ?$ [1 n" y9 Rmacs wrt7a, ina, a7a, f5 X5 n R6 T: X7 _
interp a7a, a7a, late_damp, rd7a
( M, D8 `9 m, R4 G
2 ^4 B2 R- I C; ?, f( M3 f; right 1 v( L: b6 r `) H7 B" A8 y( p# S4 O
macs wrt0b, inb, a0b, f ; decay set to
4 }+ C2 l% G0 R/ Sinterp a0b, a0b, late_damp, rd0b ; lp damping set to
# }0 E( u4 E umacs wrt1b, inb, a1b, f
2 {2 J5 F' g$ Jinterp a1b, a1b, late_damp, rd1b4 C6 R8 _7 r2 @9 s8 y: Y, E; n
macs wrt2b, inb, a2b, f& M3 G$ e& n7 A
interp a2b, a2b, late_damp, rd2b
! ]7 X9 S# ^/ Jmacs wrt3b, inb, a3b, f 4 s- q0 V$ K' O( j8 E0 N
interp a3b, a3b, late_damp, rd3b
1 C" v$ F8 t' T6 f- c) Smacs wrt4b, inb, a4b, f( J, b- ~" J0 o' ~! o- o
interp a4b, a4b, late_damp, rd4b 1 p- \+ d. |2 x4 L( x; ?. t
macs wrt5b, inb, a5b, f
0 T* D: u& u/ j; Minterp a5b, a5b, late_damp, rd5b
" Y; k: P+ k/ Q. \' h* gmacs wrt6b, inb, a6b, f
a3 W6 F' }9 T( t, a4 l; D R! l# ninterp a6b, a6b, late_damp, rd6b : }8 ?, V6 [3 w. `0 ~. i( h
macs wrt7b, inb, a7b, f7 H: N6 L2 b+ X7 w( L' e* Z9 C
interp a7b, a7b, late_damp, rd7b
6 u7 f. P' E% M7 O2 P! ~
0 P0 O# m: Y2 E+ d; add & gain taps
# o1 p4 W) \) ~% c) R, I2 ^; left
. d6 s4 l4 D& cmacs b1a, 0, a0a, 0.125, h) z3 O. s8 f% X! g. _
macs b1a, b1a, a1a, 0.125 ; post gain9 J3 E4 A- h! L7 X
macs b1a, b1a, a2a, 0.125
- v! P/ c( H7 ?1 [( Emacs b1a, b1a, a3a, 0.125 1 ~. A% p$ l, v7 _6 l
macs b1a, b1a, a4a, 0.125
/ w9 |: D6 L5 Fmacs b1a, b1a, a5a, 0.125
0 ]4 E) S1 l! u# X7 B; e+ m: {macs b1a, b1a, a6a, 0.125
8 i0 F+ v0 @0 m" F g1 Mmacs b1a, b1a, a7a, 0.125; W6 k+ I" \6 K! j. d# I
9 R4 k9 G$ [: _8 W2 D/ |; right
( ^ \1 C; T7 ]8 ^) i vmacs b1b, 0, a0b, 0.125
! l$ i: {; [' amacs b1b, b1b, a1b, 0.125 ; post gain
. P0 `2 k0 ^1 e$ dmacs b1b, b1b, a2b, 0.1255 P" R) {- |0 {% k- ]
macs b1b, b1b, a3b, 0.125 3 _& e" u2 |, L! G; m
macs b1b, b1b, a4b, 0.125
: m1 q+ U0 h1 b) C5 }/ Omacs b1b, b1b, a5b, 0.125 % }1 V7 S' l) X! A) w
macs b1b, b1b, a6b, 0.125
6 x. q- G( n4 t8 |1 } C2 F# Smacs b1b, b1b, a7b, 0.125
- o, j6 p& a* r4 ~# b1 [( l% s; h0 a) Q6 x, T9 W
; allpasses (fixed feedback), diffusor
2 p% k8 ~$ V( z7 R& j% ^$ `$ J6 k; left) @! i0 K# ]" ]3 J: Z' ^; p- E$ Q- M
macsn h, b1a, rd8a, ap_q ; ap 1
+ u) P) C9 |0 }9 H9 r; g& m. zmacs wrt8a, h, 0, 0
5 V8 G3 p7 K+ ^! ~; {3 d$ Mmacs d1a, rd8a, h, ap_q
- G. K2 [; {6 l1 v1 `) `( H3 x" G+ s: N 4 ?% ]7 B/ v6 s1 M/ D5 D
macsn h, d1a, rd9a, ap_q ; ap 2
* z; t4 V6 w6 ]8 e2 I1 T5 zmacs wrt9a, h, 0, 0
, O9 [& s% v: Gmacs d2a, rd9a, h, ap_q
8 q" [7 F! | m7 [7 w6 _
' _( `4 n3 S9 T& Amacsn h, d2a, rd10a, ap_q ; ap 35 O, o+ Y$ C8 S: U
macs wrt10a, h, 0, 0 ( \6 m) }7 Y b; b Z7 t7 g9 v
macs d3a, rd10a, h, ap_q " i5 X4 q9 u- [7 n9 ^% l& b* W& c
# V4 ~* P% }- K1 R/ n
macsn h, d3a, rd11a, ap_q ; ap 4% g6 R, I. M8 E
macs wrt11a, h, 0, 0 u: K4 L9 }. L6 g5 a
macs d4a, rd11a, h, ap_q
3 v# m& ~7 ]2 _) h4 g0 Y - K; \6 p) S* m% A; k! n" z
; right0 Q8 i7 ^( \6 {$ R# G
macsn h, b1b, rd8b, ap_q ; ap 15 F8 @, [2 n& X! _8 R' t% d
macs wrt8b, h, 0, 0
! k _; t/ W2 S" j# f: x% ]macs d1b, rd8b, h, ap_q / ?" H! }. W4 w) \6 H
' n, A# ^9 J. i* J d8 {
macsn h, d1b, rd9b, ap_q ; ap 2+ o0 [+ o' z6 [: z a" ~
macs wrt9b, h, 0, 0
1 o8 s" ?4 z/ N3 U! ?0 c. j; Vmacs d2b, rd9b, h, ap_q
9 k- K+ A) p) J: F - m# e- N& x0 Q* a F
macsn h, d2b, rd10b, ap_q ; ap 3- V! K, @2 e) w- Q- [1 {% A
macs wrt10b, h, 0, 0 8 @# K" c) w; a+ m! m
macs d3b, rd10b, h, ap_q ! ]- @& i X7 \: ~- s" K
; v& Y! F: {$ F' j5 q
macsn h, d3b, rd11b, ap_q ; ap 4
- {& Z0 {- a% ~/ i1 A( S5 E8 fmacs wrt11b, h, 0, 0
% [: l+ X- c9 X G: mmacs d4b, rd11b, h, ap_q( l1 `% N* M0 \% \9 Y5 P. k
7 i5 Z4 N, w) m/ K! ]& [ g
; late reflections level) Z' x' G$ r6 z. i1 B4 t
macs d4a, 0, d4a, late_level ; s7 z" ?, H$ C. l4 Y9 L) g/ X# J
macs d4b, 0, d4b, late_level
2 j, d% F2 s0 C6 } - c3 n# Z( t1 v5 W/ C" D
; mix late & early reflections) b5 u9 ?# ^' Z- W# j9 M6 Y
macs d4a, d4a, ga, 1' ?# G: ~9 i9 l% P7 |1 g
macs d4b, d4b, gb, 1. S# z) E: s3 ~1 Z& u
4 g F5 Z) g- x
; lowpass8 u- r8 G4 z! O& ` m
; left* s4 f5 i/ m7 X
macs d4a, d4a, ea, lp_q ; q& N4 s3 v, U/ E! v0 j+ q6 l
interp ea, ea, lp_cut, d4a ; cutoff
$ z# k, ]+ z( l- d
+ k9 E! n9 G* a: t. I7 r# v; right# S8 A6 O7 \$ m4 I7 k9 {( M; i
macs d4b, d4b, eb, lp_q ; q
1 s0 S5 t8 [; Jinterp eb, eb, lp_cut, d4b ; cutoff
' u1 Y+ w0 A* J( p/ d1 n% B& a6 R 2 E# T" B3 S, [; R. e
; output mix* Z# A2 y. T2 L# @: X q
interp out1, in1, dry_wet, ea
! S; h" e, H3 T) U$ Rinterp out2, in2, dry_wet, eb8 I1 U1 y8 l8 M* L
& Z) K. {$ m& n$ x) Z' n1 z
end |
|