|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载
3 O! T* S: n4 w0 R' O# M
- M" Q+ X& a: P o' ]4 }5 c) ~0 t5 Z& B1 M( X) a
. z# }+ O8 {; V# y* b- J( ~
name "superspace mh v1.0";
. s. @0 ]; O) Rcopyright "2009. stylus, http://stylus.siteboard.de"' m0 f# z0 x6 [0 X
created ""
" B# c# G% X$ { i7 vengine "kX";& r. r/ w# v6 L x9 o* {6 B/ n2 X
comment "high end true stereo reverb, medium hall";
! Z; z f( p% a: P% j7 h/ V% Bguid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";
7 M3 n" Q9 w! `- g" l4 z* p ?2 Z+ t5 P3 W
; late reverb algorithm from freeverb by "Jezar at Dreampoint" c7 I1 f1 [# J5 ?) k
; early reflections from impulse response "lexicon 480l"
' c3 A; ]9 I& S6 Z, R& I% _. U& c5 Y1 Q; true stereo
! k( P$ L$ S* I( C7 N
1 \7 X+ x* [$ h r; registers
6 ` {/ O9 d: i! o' ?7 n1 e1 X) Einput in1, in2
S7 h) w, K+ Poutput out1, out2 1 w0 M4 D' P0 `7 V
static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
/ ]) A" Q. I" {6 @static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb+ Q) H5 u$ Z" h. f- b. i
static ap_q=0.5, f, ga, gb, h, ina, inb3 k# S' b, a4 ]1 s/ f8 {+ l
control input_level=0.7. x, E' |% j9 ~8 w
control early_level=0.25
' B4 H% c; d$ D/ ]control late_decay=0.85# b; u6 [, ~! f* V( }6 m
control late_damp=0.95
. C4 n: i. }2 Ncontrol late_level=0.75) n+ |, X+ H# f8 k. f
control lp_cut=1
! ^* k& [0 I0 M+ A1 E$ Zcontrol lp_q=0.3( O: _, _ Q: z8 ~
control dry_wet=0.755 |5 e7 C5 q8 l; [& c1 V
; R) [: ]8 y) V+ N+ A! lxtramsize 27454& ]3 ^2 W2 F3 t' g3 C
7 d3 S+ I5 E. J3 g. @' U0 ^2 X; late reflections iir: k. d8 A* S y) y
; left
/ M& D: u) `+ U" axdelay write wrt0a at 0 6 E$ J8 o$ m2 l' D7 P
xdelay read rd0a at 1556
4 U% O. ?8 |- s B3 R& M+ o9 Q' e6 xxdelay write wrt1a at 1557
, k1 J! a8 ^9 C* F7 N* Vxdelay read rd1a at 3173
8 x+ p W% F% Lxdelay write wrt2a at 3174 9 \! X, S; X# F: ?
xdelay read rd2a at 4664% ^: t# O; C3 ~- p3 ?$ s7 M" F, f
xdelay write wrt3a at 4665 & G. Z7 A8 b& O& f7 ?& N4 Z; u
xdelay read rd3a at 6086
/ w k5 L+ d3 Q& a& M- ~5 |0 Fxdelay write wrt4a at 6087 - x3 a8 K0 I S
xdelay read rd4a at 7363/ ^2 k5 I4 O/ f
xdelay write wrt5a at 7364 6 f3 A% K3 H5 |8 U
xdelay read rd5a at 8719. t g7 L6 p; }
xdelay write wrt6a at 8720
3 ~9 m1 d! i% I# }8 }: ixdelay read rd6a at 9907
) m$ Z6 K" O. U1 mxdelay write wrt7a at 9908 ( u$ N$ a" _+ ]7 j
xdelay read rd7a at 11023
4 F& }' ~+ N! i, Z
/ a( Z" b$ ?& r* W' w6 x6 R3 J. G; right m5 z0 o) [8 Q; B5 g5 v( \' Y+ k
xdelay write wrt0b at 11024
* H- z" k( Q3 y, q" Y l! f4 Rxdelay read rd0b at 12603
) [, c; u) |- h, g' sxdelay write wrt1b at 12604 % N3 H. i$ {8 V% g9 n" p9 D
xdelay read rd1b at 142430 D" E8 n4 w3 a! S3 b, d
xdelay write wrt2b at 14244 8 @6 O% ?3 J) o8 N4 X5 B
xdelay read rd2b at 15757
: s+ N( w) J+ V; S3 o( x2 `, i" \ mxdelay write wrt3b at 15758
* R4 }( K9 Y4 x6 I" exdelay read rd3b at 17202& n& O& z, i0 s+ w$ O( s5 C, U/ \8 C
xdelay write wrt4b at 17203 2 G y5 C3 O" g3 t) l
xdelay read rd4b at 18502
2 X8 u; X, P! s4 H; _, L" L. }/ Cxdelay write wrt5b at 18503 * Q0 p: }* |3 I8 X% Z
xdelay read rd5b at 19881+ @3 y) n. y, y; P5 u8 j9 U- v
xdelay write wrt6b at 19882
- c' p% `! o) `* a$ Q X- ~xdelay read rd6b at 21092
! `( w4 \' @/ u6 Oxdelay write wrt7b at 21093 2 Z9 r$ w* m* X" O% d' D
xdelay read rd7b at 22231
# w( ^( I8 @. h5 Z& G \
4 D! @- e& T& M5 J2 @; lexicon 480l/ medium hall/ first 8 peaks
9 U. `! u3 u! a8 e; early reflections iir/fir 0 I- u* `; n! e5 q0 |
; left
/ g0 i( `7 @5 T3 ~* t6 H9 Y1 Rxdelay write wrt12a at 22232
. Q3 Y. R; R" m+ ~xdelay read rd12a at 23566
* U: _% @1 E! a9 i" D0 [xdelay read rd13a at 23850' D% c' U6 n$ D
xdelay read rd14a at 24033
! s4 b. q& T/ k% V* N! j9 Hxdelay read rd15a at 24134
; P% V3 q# z7 g1 P. fxdelay read rd16a at 24317
! T3 h" W6 [! k7 V, Y5 Z# Xxdelay read rd17a at 24376
' t- a% M9 {+ i& J9 m1 T# _xdelay read rd18a at 244187 c7 ]; U9 w2 r* h& b
xdelay read rd19a at 24500
; y% K0 @3 K9 e9 f; y
. u1 h$ \# _$ S- @; right
' |* [# p- I" O x: I& b! exdelay write wrt12b at 24501 7 ?/ Z5 l3 f+ f0 N) ?# ^5 d
xdelay read rd12b at 26715
) U5 O$ s$ i4 A8 b _xdelay read rd13b at 269610 `( Z% @7 S7 x% D$ z4 k
xdelay read rd14b at 26984
% F' A" F* f0 M) Mxdelay read rd15b at 27101: n* |& Y3 L. D! E3 T
xdelay read rd16b at 27207
3 g- i: I5 x! p' D0 O9 c& Sxdelay read rd17b at 27268
8 c, f1 I; g) u) U+ ]xdelay read rd18b at 273471 Y& [' m- h8 ~ Y' ?, u* E, }2 C8 K
xdelay read rd19b at 27454; j6 e" f4 A7 F/ W- c: c
2 e. _9 f# v& M& d$ \* j) j7 L8 K3 ^ s- \+ i1 `4 o) V6 X9 a+ e9 {
itramsize 3218
; e0 L# u# O4 G6 h9 g/ I; allpasses iir" t \2 y* F {
; left
" c1 [3 |; M7 Eidelay write wrt8a at 0
! y! o& s8 ` Fidelay read rd8a at 224
: c9 i3 ?* G& G6 ^, p: Z1 ?9 uidelay write wrt9a at 225 3 V$ f; u" V+ |; L- l/ n1 J$ O
idelay read rd9a at 780
; z) x6 J" s2 Gidelay write wrt10a at 781
/ c/ d! n6 W3 l1 f$ [ Videlay read rd10a at 1221
$ D) [5 m5 n# ?idelay write wrt11a at 1222 , n- h' d) @& y1 l; ?5 e
idelay read rd11a at 15628 Y* F( v, I5 k3 j$ X) K0 J( J2 h4 b
6 |( H& z9 X$ E, M8 i; Q' j7 Q- A; right 1 }5 U+ g: d6 P/ X
idelay write wrt8b at 1563 ! V7 A0 q) _- L' E: D
idelay read rd8b at 18117 B. e1 t, i o; F6 i; ]
idelay write wrt9b at 1812
8 Y' ^1 A0 D9 \8 u; R" ^6 A( T: tidelay read rd9b at 2390/ D# K) s, S% m
idelay write wrt10b at 2391
( I/ c% L$ O: q8 E0 `: R3 e% v* L8 K ^idelay read rd10b at 2854, c+ }5 j0 e5 X/ E# c
idelay write wrt11b at 2855 - d: d' O; }$ U
idelay read rd11b at 3218/ Q$ T) `9 Y* n3 V
N& j9 q0 |1 t8 o& M0 i
; input level
4 v% l8 X& W! E2 lmacs ina, 0, in1, input_level ; default 0.5
m- ~ O( s% Y3 w( D4 f& O0 emacs inb, 0, in2, input_level! ^5 u, ~$ l7 D3 A W/ S& ^7 C
4 B2 f" E! Q+ |) n: T9 j3 S' o
; add early reflections
! e4 r5 L& N. A+ `6 `5 {8 I7 t; lexicon 480l, medium hall, U4 O4 G8 {6 T8 {% s6 Z0 ^" K' l
; left * D; P7 x* j6 ?- j5 k
macs wrt12a, ina, rd19a, 0.2
K1 s# B+ f! `0 h1 c' E/ m( {macs ga, 0, rd12a,-0.272302037- N) V) S9 X5 o# J X
macs ga, ga, rd13a,-0.1972653887 u% {2 ?( V$ i9 M: X$ l
macs ga, ga, rd14a,-0.3199269989 O0 t4 d( _' ]2 P( @
macs ga, ga, rd15a, 0.153126688
+ b$ X% o7 w6 Y) L5 h/ D% o: Smacs ga, ga, rd16a,-0.17181097" Z8 V+ G% V, Q0 M0 Z; h
macs ga, ga, rd17a, 0.489836215
6 d6 O7 a/ P3 \. `% _macs ga, ga, rd18a,-0.120240532: m f1 s9 H) N# V
macs ga, ga, rd19a, 0.1950073098 P1 Q4 T, Q; `% ]6 _
- X. V- }% n5 W( X" ~# a7 A2 P
; right2 y( R4 ?; x; z' x6 {# ~
macs wrt12b, inb, rd19b, 0.2) p: |4 ^0 i1 e6 c" o6 P+ }
macs gb, 0, rd12b,-0.333553451
# V. m9 N. ?* K. s) T2 Rmacs gb, gb, rd13b,-0.20098583
- r$ _6 U( y2 D* Xmacs gb, gb, rd14b, 0.345275242( o( f3 e' d3 N% f+ p" p7 L7 H; B4 S5 d
macs gb, gb, rd15b,-0.333553451
: `! ^0 K4 y2 e+ G7 \, }macs gb, gb, rd16b, 0.163367416
8 o7 v5 L$ ?7 Ymacs gb, gb, rd17b, 0.2153601965 H' o7 f9 _! Y
macs gb, gb, rd18b,-0.2080489070 n# Y( f k, T# B* R& N) h
macs gb, gb, rd19b, 0.540960355! s, n8 I& f4 z5 ^2 D* V
# {/ b, l, V5 M6 ?/ N" J5 u
; early reflections level7 m8 u! u _8 p
macs ga, 0, ga, early_level
0 l |: r. u: Dmacs gb, 0, gb, early_level4 J& L" P' R: t3 y [9 i" I
/ n9 @; j" Y! G; late input + early reflections ( t* M* Z( u$ c0 d9 b& j! O6 V
macs ina, ina, ga, 0.5
" T$ i. O; [) {. Imacs inb, inb, gb, 0.54 ^; r1 W/ \) G6 p5 f
: T8 R* M: ?9 Q7 c- `' A1 D
; trim sliders
' a! d8 z6 J1 f1 R; S. Z3 ]log f, late_decay, 0x3, 0 ; logaritmic decay fader
) [2 s* q% H7 ~6 P4 \
$ U9 M# M6 i% a4 O; M2 ]; 8 delay lines (comb filters with lowpass damping)5 v- @: c9 C9 b9 S' I, {. q: ]0 {( U
; left 0 { b. {" ^8 u" Z' y9 R- y( Q# f& U' r
macs wrt0a, ina, a0a, f ; decay set to
8 X# i( G+ } n% D6 e6 p2 v, I% l$ ?interp a0a, a0a, late_damp, rd0a ; lp damping set to 4 y0 l7 O( X g5 K, ^1 B- W
macs wrt1a, ina, a1a, f. c: b- p" b3 S
interp a1a, a1a, late_damp, rd1a
3 N3 l) j5 J5 hmacs wrt2a, ina, a2a, f2 ^8 J! f$ r3 z; a0 E' P ^9 u. Z
interp a2a, a2a, late_damp, rd2a+ G: H/ ]7 O4 D# c# P
macs wrt3a, ina, a3a, f & O- @# J9 x# z& p5 j: z# `
interp a3a, a3a, late_damp, rd3a* w8 d. p1 h% o+ i% i
macs wrt4a, ina, a4a, f
$ ?* b) [( }4 Q) i5 ainterp a4a, a4a, late_damp, rd4a + q, s: {/ q& J! d" ^% p2 a
macs wrt5a, ina, a5a, f* r6 a. t8 b2 K. L% S
interp a5a, a5a, late_damp, rd5a , g7 P1 Q! A5 Z: j4 O8 k
macs wrt6a, ina, a6a, f
) y3 |# p+ }2 Vinterp a6a, a6a, late_damp, rd6a ' _/ h' w8 h8 g$ A7 C8 a6 @
macs wrt7a, ina, a7a, f
; J5 f: A# i4 @% L- {; ]: uinterp a7a, a7a, late_damp, rd7a ) s2 `8 d9 A, Y3 l/ N4 L
" r% ?9 n" M. ? L; X8 a( b; right 5 f' A7 w$ L) z! ~( Q4 n$ O* ~* G
macs wrt0b, inb, a0b, f ; decay set to
! v7 k6 f/ w5 k/ g. D, Zinterp a0b, a0b, late_damp, rd0b ; lp damping set to
3 h$ r! I! w! M6 lmacs wrt1b, inb, a1b, f# m+ F" O9 \: _
interp a1b, a1b, late_damp, rd1b! Z2 I6 U, O) r" m! a0 j
macs wrt2b, inb, a2b, f
" s! [3 O1 I* h# m8 Vinterp a2b, a2b, late_damp, rd2b( r1 c7 r: g9 _# t/ {
macs wrt3b, inb, a3b, f
3 L6 u$ ]* U: o' T' zinterp a3b, a3b, late_damp, rd3b
: m1 ?' N+ K1 b9 Z7 u! Zmacs wrt4b, inb, a4b, f
& Y& a' t) n+ O r+ Minterp a4b, a4b, late_damp, rd4b
6 Q0 R5 _9 U! C, X l' V; Amacs wrt5b, inb, a5b, f
. d& F! V+ h, y: N2 Xinterp a5b, a5b, late_damp, rd5b + T, j( j5 n) |/ L/ [* ` b1 r6 e
macs wrt6b, inb, a6b, f
* k0 ], H9 }9 Finterp a6b, a6b, late_damp, rd6b * }( Q/ J+ y& h
macs wrt7b, inb, a7b, f
6 `+ z1 b, [7 ?6 e; f5 qinterp a7b, a7b, late_damp, rd7b6 j; P* ]$ u% O2 L* D4 a- I5 j
5 a. N4 w& E4 k: R1 c8 H3 \; add & gain taps
5 ?( c6 m# D9 W. f/ B/ i0 Y; left
9 q5 _9 T+ p! Y( Umacs b1a, 0, a0a, 0.125
" E7 R. O$ ?, F2 A+ m% L6 ^macs b1a, b1a, a1a, 0.125 ; post gain7 ]- F2 W/ M' K
macs b1a, b1a, a2a, 0.1254 a% I7 e+ ~6 `6 w4 b' m; ~7 l
macs b1a, b1a, a3a, 0.125
' V. R( ] U) E5 \0 E" ?0 cmacs b1a, b1a, a4a, 0.1256 G) W ?) r; g8 Z8 v0 f
macs b1a, b1a, a5a, 0.125 5 ?1 [" a, n/ u# K Z- H( Z& h
macs b1a, b1a, a6a, 0.125
+ K9 L, w4 d7 n# M& nmacs b1a, b1a, a7a, 0.125# B/ K" r: @1 c) {
0 k. m4 Q0 D* h _; right8 d/ Q6 w; S% C. Q
macs b1b, 0, a0b, 0.125- K7 ?- s; i; T u5 R9 }, G
macs b1b, b1b, a1b, 0.125 ; post gain2 q/ i K g) r7 _& P0 [6 E
macs b1b, b1b, a2b, 0.125
* m7 P" T& F, f0 B5 {3 L+ Zmacs b1b, b1b, a3b, 0.125
) U- o, A# J) y, g, |4 Fmacs b1b, b1b, a4b, 0.1257 p0 D; N8 Y+ _: B) K
macs b1b, b1b, a5b, 0.125 * z D* A* c3 d+ P. X& h
macs b1b, b1b, a6b, 0.1252 u5 l9 ]+ R" z9 z" ?7 n+ X( ~1 E
macs b1b, b1b, a7b, 0.1252 W# ~ Y, b9 X8 s4 p P1 d% n/ z5 I
: a0 T1 g4 V+ c( I! [: |, w; allpasses (fixed feedback), diffusor7 I+ y" s G' l# `1 F
; left H+ Q- Z5 L' J& P% {5 L
macsn h, b1a, rd8a, ap_q ; ap 19 Q i: V: Y7 g/ f3 Y3 W+ Z0 ^
macs wrt8a, h, 0, 0
) W' `! t$ i3 k5 @: Qmacs d1a, rd8a, h, ap_q
& q6 }. B, |9 N7 H
0 c2 I+ D& k$ Qmacsn h, d1a, rd9a, ap_q ; ap 2
+ t. W1 w* C! N% e' cmacs wrt9a, h, 0, 0 % i( w& S2 n8 A+ G+ j$ N- @7 ^* l
macs d2a, rd9a, h, ap_q 8 [& q- h* @& [9 j4 x
5 ~1 a2 P1 B8 L( ymacsn h, d2a, rd10a, ap_q ; ap 3
7 W& o' g8 V3 v& h; f% |2 Rmacs wrt10a, h, 0, 0 7 N- _; T+ n% ~2 I, S% H2 K+ h
macs d3a, rd10a, h, ap_q
6 H& l, `& k Y0 r) ~" w
$ D0 r/ |/ t; D, c6 rmacsn h, d3a, rd11a, ap_q ; ap 4
b6 q; t& q6 Zmacs wrt11a, h, 0, 0 & L9 V. @ p# G7 H- L3 a
macs d4a, rd11a, h, ap_q
. h; S8 B/ @3 }# H2 e - }9 A) q3 Z/ C
; right
. y4 ?( H/ y: L* f4 dmacsn h, b1b, rd8b, ap_q ; ap 1) o, P9 y1 Q' _( B8 Y2 ?0 N I* l
macs wrt8b, h, 0, 0
" }# g* o3 A, E( b( f vmacs d1b, rd8b, h, ap_q
/ C9 G/ V8 c* [+ K j2 e' |( p / f6 m; n a5 }6 Z; ~& }
macsn h, d1b, rd9b, ap_q ; ap 2
8 ~6 @& F7 f% \macs wrt9b, h, 0, 0
) l" \/ u2 G- L. Z B; c; e, |macs d2b, rd9b, h, ap_q % h; |6 F4 [" R' `+ f+ p Z
$ v" F9 w* `7 c1 a% z9 v
macsn h, d2b, rd10b, ap_q ; ap 3
. g6 M1 _* c9 {! y e( B2 x) Q8 s# Omacs wrt10b, h, 0, 0 : M& R' b# J- X; S
macs d3b, rd10b, h, ap_q
1 J& X1 x) g+ ~: ? ' i6 ~5 t' {( D" J9 S' e
macsn h, d3b, rd11b, ap_q ; ap 4# f" n2 |. x. l0 V0 N
macs wrt11b, h, 0, 0
* ~; S, N* a# o4 y$ rmacs d4b, rd11b, h, ap_q
. {7 H& v# T' ], Z
* c8 \5 ]9 Y3 ^5 C" E9 |6 P; late reflections level+ o8 R/ S5 a! Q+ g/ J) ]7 ? v
macs d4a, 0, d4a, late_level
7 L3 M( C0 _7 a0 U5 wmacs d4b, 0, d4b, late_level- }4 i3 E$ e% s
) ^5 x8 g3 p8 l! |; mix late & early reflections
- _2 j: t/ @, _' ?5 _: C' M+ cmacs d4a, d4a, ga, 1; D0 y. X: l) w, H' ?1 y
macs d4b, d4b, gb, 1" W! |3 k( `8 p; F8 i
/ J; a* S9 S3 L& l4 d) e) y; lowpass
) N1 G( [9 G% N9 }# ?$ U; left
* x! C. f2 A+ M7 lmacs d4a, d4a, ea, lp_q ; q d* b" j9 `& |7 `
interp ea, ea, lp_cut, d4a ; cutoff ' R. ]5 R* W5 H( O; ~6 b
* T4 ?% ^/ x; d8 _; right% N% [3 O, D" C/ ~3 {' R9 u7 V
macs d4b, d4b, eb, lp_q ; q
# T) C4 C( y9 z; n5 E2 w2 ^3 dinterp eb, eb, lp_cut, d4b ; cutoff
2 ~$ g+ w# c# l* R% E 8 u5 E+ u9 R1 Y0 c4 f0 A
; output mix
8 c7 m K% {1 W5 c7 uinterp out1, in1, dry_wet, ea
* g) f. C1 i* Pinterp out2, in2, dry_wet, eb
/ _) z$ S$ L) k
, O- Q, h, X! qend |
|
IP卡
狗仔卡
发表于 2009-7-24 12:54
QQ好友和群
收藏
分享
好贴
烂贴
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
