|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类),但是高频比较粗,本想自己提高精度的,一看资源,mb外存操作已经几乎吃满了(50/64),看来这是emu10k2的极限了,不知emu专业卡的10k2.5有没有提升外存操作能力,把下面的代码存为.da文件即可加载
% V ]% d/ e3 T+ f I
2 k0 y$ W1 i8 T6 \2 b, Y v
5 t& U/ l5 }7 c( K- ^; Y s- s) E" Y# H! l
name "superspace mh v1.0";" Q1 q/ n" B8 B Q
copyright "2009. stylus, http://stylus.siteboard.de"
% Q& |; p6 B2 o( M0 G( e7 rcreated ""
+ N- X( N; O9 L3 u- lengine "kX";
0 s* F; @7 O2 u' ~2 l; B5 bcomment "high end true stereo reverb, medium hall";* q: E9 ?- ]% Y8 _ T6 N
guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";" I3 M# \" S5 s/ v# ]& @# _7 l
, H. |! j/ s4 G/ r
; late reverb algorithm from freeverb by "Jezar at Dreampoint"8 S' h( i& M, M Z
; early reflections from impulse response "lexicon 480l" J9 v+ X7 V5 e8 ?9 h; ?. L
; true stereo; e" B. N# S8 U- q# Y
2 r) m. g- [, I: T3 M( M
; registers
3 ]) r3 B& v9 ~input in1, in2
# F `7 |& ^+ l Routput out1, out2
7 |4 X u% H/ Z% ]8 X* gstatic a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
" E- D+ j$ u; `" Rstatic a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
/ z! K# i0 i: s2 j9 x; H& D$ D/ wstatic ap_q=0.5, f, ga, gb, h, ina, inb
4 v# w/ B0 N2 U, f; }control input_level=0.7
N& g: M1 o5 j+ D' n3 p8 Tcontrol early_level=0.25
0 m. t7 A9 z5 H% scontrol late_decay=0.85& ?" R6 j- z0 q- X) k/ g* w
control late_damp=0.95& c/ C) {" D7 G+ M" i
control late_level=0.75: m6 R1 N J8 D. ]0 H
control lp_cut=1: O8 ^/ F$ f+ a1 R2 g9 F3 C% f( ^
control lp_q=0.3
6 T$ {5 @. |8 L; M, Pcontrol dry_wet=0.757 s Y2 i' _: K; A
* N7 X+ z1 t2 Z5 a3 T; z
xtramsize 274540 u- G& u" f$ V1 P* c
6 Y- F0 e$ j9 j; late reflections iir* ^' y( v' Q! h' z
; left
+ c& l \' K* Sxdelay write wrt0a at 0 4 E& e2 u6 k/ ]4 V3 c+ N. L3 S0 F9 ]. L
xdelay read rd0a at 15567 _/ ~6 L! r5 R1 r
xdelay write wrt1a at 1557 ! ?; e! E* y9 g% }
xdelay read rd1a at 3173
, u F8 M3 L. f- h. axdelay write wrt2a at 3174
' g- W' t0 V; N- W9 z6 `" mxdelay read rd2a at 4664
1 {" K4 g0 U7 v* ?xdelay write wrt3a at 4665
& i& S: J+ F' O/ oxdelay read rd3a at 6086
: i- H9 M7 h3 ]! }/ w8 f; s/ txdelay write wrt4a at 6087 8 s& S" B# z) c
xdelay read rd4a at 73639 F$ J+ ]) M8 @% g
xdelay write wrt5a at 7364 ' {/ W( p& D7 d% G: V U
xdelay read rd5a at 87190 J8 a. E/ q' t
xdelay write wrt6a at 8720
' \( B w' X/ r1 i" p" H `4 y# Vxdelay read rd6a at 9907$ E: [* e$ {+ o$ I! \' `9 y- D
xdelay write wrt7a at 9908
1 {3 I1 J* ?1 f- Axdelay read rd7a at 11023
, W& A, N, `! }! D" v3 ]
0 B5 T9 _" [5 v' f; right
g+ ~7 h2 {, t% L" v: \3 zxdelay write wrt0b at 11024
7 b/ k' T4 V- u/ P$ a0 Z0 ^4 exdelay read rd0b at 12603
N1 z% F# ?0 dxdelay write wrt1b at 12604
% b1 N( c) o. P" O9 U" fxdelay read rd1b at 14243
7 V- S. x+ I% q4 kxdelay write wrt2b at 14244
5 l Q& s: X" jxdelay read rd2b at 15757
* R; E# A. C H3 |2 jxdelay write wrt3b at 15758 , G! D/ \! n* R* a' l( b
xdelay read rd3b at 17202
. x8 s: z- B, r4 C- q( |2 @$ ~, fxdelay write wrt4b at 17203 - W% }8 M+ a/ H3 i) V. g5 N" F2 v8 \
xdelay read rd4b at 18502
7 V) W/ A1 b, I' H3 X6 N2 r0 Vxdelay write wrt5b at 18503 1 L8 X" B# G1 p3 a6 i
xdelay read rd5b at 19881; M8 G" d& \! M$ k6 R) a9 t. l- D3 ^
xdelay write wrt6b at 19882
) |: s1 a/ G6 P- J7 _* gxdelay read rd6b at 21092
/ o, w/ D' r l/ C( L8 ?xdelay write wrt7b at 21093
8 r. | H- N3 ~, H( a. b- cxdelay read rd7b at 22231( W* d0 S9 J# u" {: x* `. ~8 v0 O
: d# }+ M, p5 Z9 q- U2 @- ~; lexicon 480l/ medium hall/ first 8 peaks7 C3 c: Q6 y/ J' \5 d0 R# r' m
; early reflections iir/fir
+ D1 R1 V4 y% U( E; left ! D7 g2 x; t0 i& R; x6 A1 v
xdelay write wrt12a at 22232
+ p! C1 W2 o: J5 b+ j3 e% c4 W- ]xdelay read rd12a at 235660 N: `# q4 `5 u2 ~
xdelay read rd13a at 23850 z7 u! I, }/ l+ O; ]
xdelay read rd14a at 24033
" E! K; U3 G9 }* z3 r) H, jxdelay read rd15a at 24134
G# K7 \3 J, i0 Q8 Nxdelay read rd16a at 24317* ]5 d+ s% E- h' m1 w
xdelay read rd17a at 24376* c9 u6 A* |9 m, Z3 u/ G5 w7 F
xdelay read rd18a at 24418
0 b# k" T& i9 D+ ~4 Qxdelay read rd19a at 24500
: X5 S* [8 i) B7 x- v
" j; [3 l' C! }& D: k! s- g; right
' M0 j! I2 o5 L* ?& r7 y% p; Nxdelay write wrt12b at 24501 b0 D0 |& R4 d
xdelay read rd12b at 26715
; p, F z- V# L& ]' Xxdelay read rd13b at 26961
- R1 M5 T8 o& K- [! hxdelay read rd14b at 26984+ B& k0 `+ ?( Y* S* ~
xdelay read rd15b at 27101/ y a2 R. j( x5 D
xdelay read rd16b at 27207
& L1 y2 W4 Q+ t' P7 ]0 M% Kxdelay read rd17b at 27268
: ?/ \3 I% ^5 |9 Jxdelay read rd18b at 27347' l% H8 j& c* C; `; N0 R0 ^
xdelay read rd19b at 27454$ }7 |/ E1 U2 U( w- g' z5 I
9 [1 P# J! y; t( l/ p9 p- j8 ]
3 w' b+ G" d5 B1 K, N3 O! witramsize 3218 : R3 {$ b& Q0 J% e
; allpasses iir
* A- J; t! ~! g+ i1 }; left 9 {1 K+ h+ h# E% l: v& p8 j
idelay write wrt8a at 0
( t: |! P' a, n0 Hidelay read rd8a at 224
3 ^" M+ e* R" h, Q( Iidelay write wrt9a at 225
2 w) b6 A, F, R9 `% o5 z; q, J6 yidelay read rd9a at 7807 l8 Z$ J0 O, \6 H
idelay write wrt10a at 781
$ g( z8 W' r H1 A' Y# \idelay read rd10a at 1221
" L) b# ~7 O! E* R# S! ?idelay write wrt11a at 1222
$ t' U1 W* B, Q9 D- j) Widelay read rd11a at 1562
: o5 I, u9 |" A+ ~8 @7 I, B, y% `+ Z* b4 h
; right
+ n \7 @# C5 x. E: D1 l" Jidelay write wrt8b at 1563
2 d: w( K8 B; G9 Z4 Didelay read rd8b at 1811
" x7 j5 l/ \7 A, lidelay write wrt9b at 1812
# v, S% ~, F" j# N/ p+ {( p8 A2 eidelay read rd9b at 2390
1 u- x9 K5 C4 m% ], y. didelay write wrt10b at 2391 " H# @' t6 [7 c, e v
idelay read rd10b at 2854
8 F8 K R2 _/ `7 T* z5 z Sidelay write wrt11b at 2855
0 o6 D/ `6 N+ X t' Oidelay read rd11b at 3218: k, O8 A& V" | |5 j" r X1 l3 a8 E
) C# u( I* b0 I @; input level* ~1 \0 ^' ^7 [$ k( k
macs ina, 0, in1, input_level ; default 0.5
& O5 R% a* t. [/ a0 P) A d0 Wmacs inb, 0, in2, input_level& {. ^0 l: o- V' `$ _% U" x
^& e0 _1 E$ X- p) C( Q8 v' \; add early reflections9 H6 j. j& b; b6 d) }9 O
; lexicon 480l, medium hall( W: R2 ?; q. I. s/ D. o
; left . e' N8 |, R: @
macs wrt12a, ina, rd19a, 0.26 @4 ~+ E! Q# x& L% a8 C8 `1 ?
macs ga, 0, rd12a,-0.2723020371 l0 O5 T* ^, r7 n/ m8 g
macs ga, ga, rd13a,-0.197265388
" d! @: M) a: c( e$ Cmacs ga, ga, rd14a,-0.3199269986 G) T! U$ j5 s5 l. c) v; K
macs ga, ga, rd15a, 0.153126688) K' @5 P( H- I- r7 \
macs ga, ga, rd16a,-0.17181097( m4 n* k5 x3 A
macs ga, ga, rd17a, 0.489836215
; O' z& @# Q$ Y9 Y: [0 J( \ Fmacs ga, ga, rd18a,-0.120240532
6 u7 z( A$ w0 a0 Q6 d- Amacs ga, ga, rd19a, 0.195007309/ H/ M6 S# l% d& O1 l
6 M7 j' f8 T. i8 U1 e2 E( ^; right7 i8 b% _8 L; n: m
macs wrt12b, inb, rd19b, 0.2
; [* x: _( X' }+ `/ zmacs gb, 0, rd12b,-0.333553451
" \- o) k* s* Z* q" m' d$ s7 jmacs gb, gb, rd13b,-0.20098583
2 Q$ G3 k( I- @9 f8 u. ]macs gb, gb, rd14b, 0.345275242
3 x1 G- ?9 V8 X! Gmacs gb, gb, rd15b,-0.333553451# i5 k7 ]4 t) C |6 n( f# a( D
macs gb, gb, rd16b, 0.163367416
6 y9 r+ E; Y: q: Dmacs gb, gb, rd17b, 0.215360196) G' N0 d4 @2 J c) H
macs gb, gb, rd18b,-0.208048907
' K( ` F4 U- L" b+ Jmacs gb, gb, rd19b, 0.5409603555 X( @2 a( h& Y$ ~
( _2 N: g: E( j5 T1 L* P1 K
; early reflections level" R; b, x m" q& X- A5 s- ~7 N& e e
macs ga, 0, ga, early_level ( Q9 M4 `2 o) j9 M) J4 y
macs gb, 0, gb, early_level
6 p @6 A* R6 n6 l& N/ k7 Z$ E! H( p+ s& k
; late input + early reflections
; [/ S+ b) O. Mmacs ina, ina, ga, 0.5
& m f2 [ L2 R: X) J5 M. @macs inb, inb, gb, 0.5
' |# ^6 V3 G _6 V, x
& c9 F/ ?8 g. W) l9 C* U$ r; trim sliders
+ e+ {6 ]; ]( U. l# y3 Blog f, late_decay, 0x3, 0 ; logaritmic decay fader
) k( T; p4 g9 o% B6 ^; y1 ?
6 _) z2 C/ u& ~6 c- Z. Q+ B; 8 delay lines (comb filters with lowpass damping)
" X1 {, M( c/ n H7 M5 B3 g/ H% J. [; left
6 |0 ~9 C( ^6 h% `2 Wmacs wrt0a, ina, a0a, f ; decay set to
, V4 \1 }9 |4 ]interp a0a, a0a, late_damp, rd0a ; lp damping set to
+ X) E) [/ J2 s+ \macs wrt1a, ina, a1a, f
9 j7 b: P& g" e% D+ S2 L1 Ainterp a1a, a1a, late_damp, rd1a
( i5 G& A+ [/ Hmacs wrt2a, ina, a2a, f
7 G+ ~. ^+ W8 Cinterp a2a, a2a, late_damp, rd2a& q; `7 O4 i3 o/ M* h; H
macs wrt3a, ina, a3a, f
! w4 b0 u2 _! M6 f) I+ \+ Yinterp a3a, a3a, late_damp, rd3a2 H( c. n: J# ~) q# K: Y$ H0 q% f7 d
macs wrt4a, ina, a4a, f
" N5 H$ V0 \) B# t& Uinterp a4a, a4a, late_damp, rd4a + ~0 C+ d0 q" X9 W5 z
macs wrt5a, ina, a5a, f7 t% \9 S/ s) N* Q% F
interp a5a, a5a, late_damp, rd5a
) |7 [- P$ a: ` Kmacs wrt6a, ina, a6a, f% W& R8 r. y# ^- n0 R) w! [
interp a6a, a6a, late_damp, rd6a
0 _6 ~; w) k* l5 zmacs wrt7a, ina, a7a, f
7 i% {7 K; c3 Yinterp a7a, a7a, late_damp, rd7a 7 G' y. V3 n0 X
% ~$ _% x4 c+ V" }; @" C5 `; ^; right + F [, n) I K) `7 w
macs wrt0b, inb, a0b, f ; decay set to : H' @1 ^# H7 s& |3 x% ]6 I
interp a0b, a0b, late_damp, rd0b ; lp damping set to % O/ J) ~4 y" y0 K# v
macs wrt1b, inb, a1b, f0 z6 V. H( G5 z/ K: W
interp a1b, a1b, late_damp, rd1b
$ M5 |5 D: k y u, }) S4 }macs wrt2b, inb, a2b, f
+ W% D( \& Q/ u, hinterp a2b, a2b, late_damp, rd2b9 _, D% L ^% e. Z# N1 J( S) q
macs wrt3b, inb, a3b, f $ t1 H, \$ n7 K0 U+ o9 M, r0 i' _2 z
interp a3b, a3b, late_damp, rd3b% N" W) ]9 z* A/ _# X% K+ B. g: v
macs wrt4b, inb, a4b, f: ~+ u5 c* x/ m% \" b. ]! ~- C* f
interp a4b, a4b, late_damp, rd4b
+ x+ M; T& V3 B; Y% K g+ k/ Y8 vmacs wrt5b, inb, a5b, f9 Y& y, I% h* ]: E4 P! Z
interp a5b, a5b, late_damp, rd5b
3 U4 _/ T0 ]: i1 g1 t" tmacs wrt6b, inb, a6b, f: G0 k% D4 W/ D& \0 P
interp a6b, a6b, late_damp, rd6b
f( \" T" ?1 e7 J) Amacs wrt7b, inb, a7b, f
- D7 |+ h& e+ ^& A/ zinterp a7b, a7b, late_damp, rd7b
1 s: @4 }5 H% u. l2 I7 i
0 l' E% O6 l: p+ f8 S; add & gain taps - t# V8 _ f( g- _5 |6 w
; left
( H- g8 }" r$ _! z8 Dmacs b1a, 0, a0a, 0.1255 x# n1 ?7 P- i2 D/ m j/ I/ a
macs b1a, b1a, a1a, 0.125 ; post gain
1 m# R( A( W6 ? |& {- Dmacs b1a, b1a, a2a, 0.125
4 V9 g: P6 f+ n; N8 Imacs b1a, b1a, a3a, 0.125 3 F% w1 f0 d5 a! V0 f- R, K" q9 E
macs b1a, b1a, a4a, 0.125
T3 ~3 l" g! x9 Q$ Hmacs b1a, b1a, a5a, 0.125 " h7 L) G1 g# [" p( F6 }
macs b1a, b1a, a6a, 0.125
4 N1 U: D- y) i* K4 O7 ~macs b1a, b1a, a7a, 0.125
7 D* ?# j+ ~2 j9 q0 r8 M- I+ i
- R5 i0 Z6 Z8 `; right
|* T4 }% L8 W- [3 B" omacs b1b, 0, a0b, 0.1258 Y+ w4 G+ S# h, m' S% b- v1 ^
macs b1b, b1b, a1b, 0.125 ; post gain3 q, f% w. p. p: _, B2 G$ I: w3 G
macs b1b, b1b, a2b, 0.125
' C( ~; ~0 k ~% {macs b1b, b1b, a3b, 0.125
8 Z% A) J0 d$ E( l& u8 ]/ x+ Xmacs b1b, b1b, a4b, 0.125
7 M& M6 X& J2 T0 T0 P5 Vmacs b1b, b1b, a5b, 0.125
& m. \$ E3 @- c3 q9 Bmacs b1b, b1b, a6b, 0.125$ U6 B i4 h7 F" ^
macs b1b, b1b, a7b, 0.1259 m/ ~5 h7 N$ t1 c5 D9 {& ?& L" V
) g+ y% l0 K. y6 L/ \& ^+ T; allpasses (fixed feedback), diffusor9 J1 G* D( s$ @" M1 ]
; left. Q$ [8 W* x. z4 P7 N1 ?: @$ f
macsn h, b1a, rd8a, ap_q ; ap 1
/ B- _# N' L4 W6 smacs wrt8a, h, 0, 0 # _$ _; d O! s8 A4 p5 W, i
macs d1a, rd8a, h, ap_q
1 i1 o. e/ |3 }3 W + S8 G3 I, g# R- C' H: i7 ~/ e
macsn h, d1a, rd9a, ap_q ; ap 2
2 P, }3 C& g- u8 V9 h7 [% Umacs wrt9a, h, 0, 0
( W) v+ J z9 q) |macs d2a, rd9a, h, ap_q
3 R) Q g5 E7 _1 H9 x
! _& \# w G, kmacsn h, d2a, rd10a, ap_q ; ap 37 y) y5 H9 z7 m0 w+ {6 }+ Z
macs wrt10a, h, 0, 0
; w3 h+ O" i. S7 smacs d3a, rd10a, h, ap_q ) ]' o9 o& }' h0 `6 I5 E2 E/ a: h9 {
2 T& ^. Q3 @0 W% Hmacsn h, d3a, rd11a, ap_q ; ap 4
& X1 o2 \' |5 Wmacs wrt11a, h, 0, 0
1 v4 O( W9 ? j8 l3 ^macs d4a, rd11a, h, ap_q ! g3 U9 L2 }2 h- m1 Y4 K) C9 {
+ C; j6 A# X) U- Z" k" ^" T; right
6 S1 O8 H. B- v3 N) i3 \macsn h, b1b, rd8b, ap_q ; ap 15 {0 ^/ q- u- F5 o: }
macs wrt8b, h, 0, 0
K: ~, E- E; H! A) Bmacs d1b, rd8b, h, ap_q
1 O5 E6 H! P& Z' R . u( n5 H- |, c- _4 l
macsn h, d1b, rd9b, ap_q ; ap 2
$ o, O( e( f1 V5 Bmacs wrt9b, h, 0, 0
+ ~/ g8 K% E' Rmacs d2b, rd9b, h, ap_q
+ r0 H) z6 J/ I; l( t) U( u
, ^7 h% M1 F- r5 {5 tmacsn h, d2b, rd10b, ap_q ; ap 3& O8 X8 E: N0 I: ^' D; [6 r( q
macs wrt10b, h, 0, 0
$ Q4 y5 d% I) Gmacs d3b, rd10b, h, ap_q
* o8 G- V2 k* C _ q$ ]0 u r+ { 5 v4 B( v# g/ ~: R
macsn h, d3b, rd11b, ap_q ; ap 4
7 V+ {* U! S# q- d' Z) \macs wrt11b, h, 0, 0
; E. K! Q# }0 o' T4 S. w2 Wmacs d4b, rd11b, h, ap_q
5 s" M3 M# q- j/ @
! m! G* o% Z, ?$ m1 ?' i; late reflections level: C6 r3 H8 F) E0 S- F3 z
macs d4a, 0, d4a, late_level 7 N3 N- {0 {& D u
macs d4b, 0, d4b, late_level7 H4 t3 V+ f' a) g% A
& i2 T( ~+ O |" r, }; {! z; mix late & early reflections
. T/ I2 C7 u" S1 k& Cmacs d4a, d4a, ga, 1
* \& A) T' T, s" I3 o' f9 b$ ^0 Vmacs d4b, d4b, gb, 17 a; r7 @1 K% x& N
. Z% v" U0 u: F8 p, ^) P; l
; lowpass4 L A: v, r; `3 Z
; left @! ~5 H4 M( y; j, P4 m
macs d4a, d4a, ea, lp_q ; q2 A0 y6 c1 ?/ d! ]: R; H7 g4 g
interp ea, ea, lp_cut, d4a ; cutoff 2 _$ x7 w+ S: n% w# L8 H
/ o7 q. e3 t/ B: W
; right
) Y+ m9 w" w1 ?& _2 q7 }6 ]macs d4b, d4b, eb, lp_q ; q
) U6 W- J% @# x3 z- `2 Einterp eb, eb, lp_cut, d4b ; cutoff
5 a2 M* E, {- G " R6 `3 h' |1 W+ l; z/ M7 I1 G) `
; output mix7 u0 M! f9 a- {+ ^6 g# Q2 Q
interp out1, in1, dry_wet, ea
+ s. k& F s+ ]8 Iinterp out2, in2, dry_wet, eb: M( C9 l. d' T
, V6 ^- C5 W' O8 ]0 L9 Z$ ~- d
end |
|