|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类),但是高频比较粗,本想自己提高精度的,一看资源,mb外存操作已经几乎吃满了(50/64),看来这是emu10k2的极限了,不知emu专业卡的10k2.5有没有提升外存操作能力,把下面的代码存为.da文件即可加载/ P3 i; `2 m1 u: S# H
; E( Q! ]# Z/ o) N7 j. o
5 x4 S0 b }, {. Q, Z- m) H6 d
- w: Y4 ^$ e, R1 W2 Zname "superspace mh v1.0";
' c5 V) Q3 \- V. b% }- Pcopyright "2009. stylus, http://stylus.siteboard.de"5 Y/ n5 F f9 e- a/ G" u
created ""& t# \9 F: N& X
engine "kX";- T0 g1 p# Q. H, `$ t: m8 o
comment "high end true stereo reverb, medium hall";
4 j+ T3 U/ P0 r8 S2 s) |1 d+ uguid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";
0 M* }1 K+ w0 U5 B1 m% O& [0 ~+ x1 F- W+ l! F) F
; late reverb algorithm from freeverb by "Jezar at Dreampoint"
, o2 ^5 j1 G/ y7 [0 _; early reflections from impulse response "lexicon 480l"
0 ]) T* z. Z$ ^& a5 W, K. [; true stereo9 {1 D3 g1 O* q* j3 X
+ Z8 x( r0 e! `3 y" }6 C# a; registers
" m0 P1 _! T! y, E! N) ]input in1, in2! U# q D3 ~! v& i- t$ H; S
output out1, out2
6 I$ Y' }/ Y2 Bstatic a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
% C% I4 i" P. k$ }static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
+ h6 E9 J ^2 d' c' Z+ jstatic ap_q=0.5, f, ga, gb, h, ina, inb
6 h: i, ~, E. Jcontrol input_level=0.79 C7 j. |/ T* {7 K7 Z" y/ {0 `
control early_level=0.25
4 f; [9 v# [$ j9 R$ S# hcontrol late_decay=0.85
* _: Q4 ]% S+ l! }, i5 c( wcontrol late_damp=0.95
% `) L8 l& l( {2 M5 l/ ~control late_level=0.75( o) L' ]2 {( V3 Z
control lp_cut=1. O" z7 f, r) K; b+ g/ W* A
control lp_q=0.3+ L+ z5 x; j/ E5 S @
control dry_wet=0.75. @ y9 }) W3 z( G, N
" h, g& }! t! M, P' |5 L! y( q4 hxtramsize 27454# K/ {+ n/ Z% a! X* |
1 g* G2 m. n6 c$ f0 S
; late reflections iir
* B; J4 W- M7 M+ O; left
' Y3 I' K' O+ }xdelay write wrt0a at 0
( K6 P9 e" G2 G Q+ K2 oxdelay read rd0a at 1556
3 W4 \* F& ?$ n9 Z d7 c, fxdelay write wrt1a at 1557
2 Q: T$ A7 J, \3 s; \+ Yxdelay read rd1a at 3173
' Y7 S5 Z- O+ ]* N% ?xdelay write wrt2a at 3174
8 l% F: {8 E* L! b4 E1 l8 jxdelay read rd2a at 46644 |3 ~- Q. z& C, ~: L
xdelay write wrt3a at 4665
( n& q- G- f% l4 E" fxdelay read rd3a at 60866 V1 E) ^( Q6 ]0 ?
xdelay write wrt4a at 6087 4 m# x* ?& q2 l p% x
xdelay read rd4a at 7363
G& K1 A* x5 T9 Y& z$ h5 hxdelay write wrt5a at 7364
# m2 c6 ]! E3 vxdelay read rd5a at 8719
9 h2 f! U# `' Bxdelay write wrt6a at 8720 8 D; U# S) Z3 O" d; O, X: c
xdelay read rd6a at 9907
6 f. ]* h' G( z5 m* U0 ^7 k0 bxdelay write wrt7a at 9908 6 S# g: w. V r1 n9 s
xdelay read rd7a at 11023
; Y6 w/ K) e/ C' t) E/ w- L$ S- ~" o, g6 l- j9 u1 C
; right
, ?' a/ z* N4 s0 O: Jxdelay write wrt0b at 11024 + @% a$ g& C/ _$ S+ x$ [1 p6 K
xdelay read rd0b at 126030 {% l: \- O" q9 Q% D$ U6 k
xdelay write wrt1b at 12604
: f ~) w4 n, u& ~: {+ x4 A$ N* l4 mxdelay read rd1b at 14243
1 E2 _: G+ I4 J* qxdelay write wrt2b at 14244 ) Q( }6 h1 W8 @6 x1 m% a
xdelay read rd2b at 15757
8 x/ F) J% e1 n% j8 @6 I3 J: Nxdelay write wrt3b at 15758
% R9 F ^5 e: Q0 O) sxdelay read rd3b at 17202" l, r. u( @0 J( A) F2 c! }1 a
xdelay write wrt4b at 17203
) u! S, h$ v) l- Ixdelay read rd4b at 18502
3 D# k7 w5 F! ~# I6 I( hxdelay write wrt5b at 18503 ' l3 [8 ]0 W$ p1 n+ _6 {: r
xdelay read rd5b at 19881
& ]# j7 P8 [; n K* g7 M {xdelay write wrt6b at 19882
( ~, z2 a; E% [! d# [& N% R- V3 B% t$ @( Axdelay read rd6b at 21092' ^' A, _! I" D& U; n& C' n& ]9 w% \
xdelay write wrt7b at 21093
4 x* x! s' k0 V- Txdelay read rd7b at 22231 C' O7 F, I* x: f& p
; ]9 R2 g4 r c8 u. M; }
; lexicon 480l/ medium hall/ first 8 peaks `2 t" X/ L" `- A+ {2 f. a
; early reflections iir/fir 4 ]/ x% e/ T/ ] i! v
; left N1 O1 S1 G% L
xdelay write wrt12a at 22232
$ Y# Q1 S$ H& {/ ]; J% }xdelay read rd12a at 235666 O# h0 t4 o0 w3 P
xdelay read rd13a at 23850
9 {( R3 H2 Z# y6 |5 q Ixdelay read rd14a at 24033
1 ]2 u R2 ~. ]8 r( x$ i4 Wxdelay read rd15a at 241347 V3 \ k! J& Z0 i3 k" T9 b: \( Z
xdelay read rd16a at 24317( D& \1 E$ p! O7 H( \
xdelay read rd17a at 24376# N! D8 r! V% s" R
xdelay read rd18a at 244181 b8 a3 _5 _6 q4 B, u% @
xdelay read rd19a at 24500
1 @/ A8 ~* Y. U% ^8 F1 @2 E$ ~2 b- R$ c! d o" w0 o: C8 Z
; right
+ B6 x2 n; q/ ^9 }9 N2 W5 ixdelay write wrt12b at 24501
( H" K' F& }" S7 k6 y* O. [xdelay read rd12b at 26715# ?, {/ U. S b ^& b0 Q. u6 Q7 V
xdelay read rd13b at 26961
" s) v3 ]9 ^5 @/ L$ Q$ d4 `xdelay read rd14b at 269841 A" j! O G5 x' b, S4 B
xdelay read rd15b at 27101# Z& n3 F+ B8 A* M4 c1 J
xdelay read rd16b at 27207; F/ j9 h& d6 R
xdelay read rd17b at 27268
; G. n8 | ?7 J+ W% Ixdelay read rd18b at 273475 {* d$ _5 W0 j( ~0 r
xdelay read rd19b at 274545 b6 U8 E9 i! ]! s
2 l# O' O+ v( }5 W2 E5 c% @) _! }/ j1 u' Z0 d& g0 {
itramsize 3218 4 f, G" G& y3 x0 z/ r. z/ I0 K' |
; allpasses iir
* _* V; O# Z; \8 l% `# j; i; left 5 C2 \ c `& N6 J+ K+ @
idelay write wrt8a at 0 ( @" q0 K3 _+ D5 V+ B- W
idelay read rd8a at 2244 |8 H4 U: V8 Y7 e
idelay write wrt9a at 225 ; V: G1 \" ?6 o3 y1 o, e
idelay read rd9a at 780
5 P; {+ w: X+ z2 `! e X, }$ Gidelay write wrt10a at 781
0 a# F! y( X Q8 Oidelay read rd10a at 1221
5 F& p: B2 V1 _4 N1 @: b2 Eidelay write wrt11a at 1222
1 }6 Y" k. D% M; g8 i0 sidelay read rd11a at 1562
. }$ ~3 E- R9 U; P% {! B( d5 M9 Z: z! e. Y0 r; Q: G
; right
& @5 f; H h( didelay write wrt8b at 1563
$ y) P1 n% l6 ]( P9 {- Tidelay read rd8b at 1811
- M G- u: l! T4 e0 Zidelay write wrt9b at 1812
) v* V9 ]5 ~1 Q0 ?1 {- r eidelay read rd9b at 2390- l" q- C* N5 v* r5 r* h5 Q; s
idelay write wrt10b at 2391 $ c6 d9 K. V b/ b% [2 a
idelay read rd10b at 2854
, B* a K9 K1 w7 Z6 S1 F8 f1 ?idelay write wrt11b at 2855
# E z' Z/ b7 Xidelay read rd11b at 32185 {6 z& a4 A3 K2 K4 ~ |
1 D: {, c' F& r4 P
; input level: }- C V) m" ?) ]+ M9 q
macs ina, 0, in1, input_level ; default 0.5+ q' @/ L9 d x' G. T0 d T
macs inb, 0, in2, input_level5 D* B9 d& @1 \& f
1 E2 I2 n& o. P2 S( O/ L9 k; add early reflections, b' h" M+ }, O! d( A
; lexicon 480l, medium hall+ A. d3 E+ B* }# F% k7 q( z
; left * I& y0 C5 Q& |; v
macs wrt12a, ina, rd19a, 0.2 e9 X& s7 e: p( R! v/ s
macs ga, 0, rd12a,-0.2723020377 K u( Q; Y2 w! N% c
macs ga, ga, rd13a,-0.197265388
- N; q; z: T6 E8 E0 d4 X: Fmacs ga, ga, rd14a,-0.319926998
- a" N* q0 `3 Cmacs ga, ga, rd15a, 0.1531266888 ~# Y* K* m5 N4 N/ M
macs ga, ga, rd16a,-0.17181097
9 e% B9 V! G, a5 h" Zmacs ga, ga, rd17a, 0.489836215
`$ D! ]. H, C* i! c7 s ^6 ^macs ga, ga, rd18a,-0.120240532
P3 \+ C% o7 g9 |macs ga, ga, rd19a, 0.195007309
2 |( _4 t$ k' S O2 X
$ c+ d0 s4 v S2 o# R, X* b; right1 s" N1 L" {0 k9 U, k. q$ a
macs wrt12b, inb, rd19b, 0.2
* P/ j, J/ y# W! L( q2 c; o6 Jmacs gb, 0, rd12b,-0.3335534515 g: j& q* y, Z2 V. w }2 z; A+ ^
macs gb, gb, rd13b,-0.20098583
* T2 p; E% N* ~; p3 Cmacs gb, gb, rd14b, 0.345275242' V& n! f' S9 S
macs gb, gb, rd15b,-0.333553451, v Z0 g Z* L4 u
macs gb, gb, rd16b, 0.163367416 @6 z: L$ G7 }% y' J; Q
macs gb, gb, rd17b, 0.215360196
3 g! b4 {! E. T: v. h1 [8 hmacs gb, gb, rd18b,-0.2080489076 \& z# }* K5 Z; k4 t/ }
macs gb, gb, rd19b, 0.540960355
& T. F3 j4 G; I q) d& q) w1 I
6 Q1 C1 j; z) U6 _) d6 v6 {; early reflections level6 @: o' O! q, C0 y% y4 b5 F
macs ga, 0, ga, early_level : X) U2 B7 \; Z1 t! _' K
macs gb, 0, gb, early_level
7 @% q) B% h; i6 H0 z
$ A0 Q) Y9 h, R& d- ?+ |2 {; late input + early reflections
: c: g" E' [4 ~; R, C: Kmacs ina, ina, ga, 0.5 z6 e! _" N% W5 l$ h. I6 k
macs inb, inb, gb, 0.5
! C2 e! r' }1 Y+ S& U0 X
; i1 Q+ ~; p/ ~6 t3 v; trim sliders
+ r- I! g, b" ?log f, late_decay, 0x3, 0 ; logaritmic decay fader
8 m# h2 F: ^- f8 p% F5 i ( L5 }9 @/ ]- _
; 8 delay lines (comb filters with lowpass damping)
$ H. ?3 s5 w1 [; left
- `; K! `, u9 Q) rmacs wrt0a, ina, a0a, f ; decay set to * D1 r5 f, t2 `+ B" Y/ b; [
interp a0a, a0a, late_damp, rd0a ; lp damping set to
2 N( `7 [1 S" L* V3 F& L) {macs wrt1a, ina, a1a, f
! m* A* s! i0 ^interp a1a, a1a, late_damp, rd1a
8 S# _. Z2 j- a3 S+ G8 m9 E. emacs wrt2a, ina, a2a, f4 ?$ z8 V5 z7 L' H& j7 ?
interp a2a, a2a, late_damp, rd2a
- T$ t( x; }5 r7 B) tmacs wrt3a, ina, a3a, f
! f) X3 j* A+ g; E8 O2 I5 L5 Xinterp a3a, a3a, late_damp, rd3a
; x- x! r/ o$ |macs wrt4a, ina, a4a, f) S0 D& ~) t f( \' Y' D
interp a4a, a4a, late_damp, rd4a ) C: P) V1 ] x- ^
macs wrt5a, ina, a5a, f- g$ l6 z: y7 W h; E5 I
interp a5a, a5a, late_damp, rd5a 8 j% Q7 A' L1 k4 K/ G( g
macs wrt6a, ina, a6a, f! ~/ h6 @8 _0 U0 a$ a, n. C7 } B
interp a6a, a6a, late_damp, rd6a
. |6 c: H R- U6 k" tmacs wrt7a, ina, a7a, f' M# t( a* j0 K% x# H* K
interp a7a, a7a, late_damp, rd7a ) q5 E9 s5 X# z
, W3 E( h4 P! A( `0 ^
; right
) V5 ?2 X4 u' w$ Dmacs wrt0b, inb, a0b, f ; decay set to * x6 z6 |3 L1 w2 Z
interp a0b, a0b, late_damp, rd0b ; lp damping set to
5 f. k9 q1 R' l$ amacs wrt1b, inb, a1b, f
* r+ b( C0 m! F8 S4 rinterp a1b, a1b, late_damp, rd1b9 k! f& Z, B N& }3 D
macs wrt2b, inb, a2b, f* z& o3 ^$ ?: p8 k% ]
interp a2b, a2b, late_damp, rd2b
* c) p$ ?$ ^; i) Z5 f; imacs wrt3b, inb, a3b, f
) ^ i5 c% C& o' I$ Cinterp a3b, a3b, late_damp, rd3b Q5 Z: \9 P/ {1 ?5 Z
macs wrt4b, inb, a4b, f$ s* Z' U0 `+ U" Q
interp a4b, a4b, late_damp, rd4b
) I4 ~! Z- D& Omacs wrt5b, inb, a5b, f
) }7 E& J- p7 r) I1 Xinterp a5b, a5b, late_damp, rd5b , J8 u$ Y& O3 h: }3 v6 J, `
macs wrt6b, inb, a6b, f
) c6 p! `5 n' v6 [3 z/ Ninterp a6b, a6b, late_damp, rd6b
: a2 Q4 [3 r& d& p3 [7 X% ?macs wrt7b, inb, a7b, f
+ e, S8 F! j! o hinterp a7b, a7b, late_damp, rd7b
, J; {/ A' X$ Q# ~* `+ A) H 9 K' }. k% x" Z& o3 T8 o2 Y0 I2 }0 N/ L
; add & gain taps
# u: o1 k; n& T2 P' E; V1 v4 _; left% P6 j2 h% q5 e/ z
macs b1a, 0, a0a, 0.125
% k! d( ?$ K, y" [* p+ Umacs b1a, b1a, a1a, 0.125 ; post gain$ q% ]. l/ g# e# i7 d) r
macs b1a, b1a, a2a, 0.125
7 D! v" K0 H; A. v0 g' x) Tmacs b1a, b1a, a3a, 0.125
0 Q% L' A/ o E0 i0 G: O3 M/ H+ Qmacs b1a, b1a, a4a, 0.125
% {% \4 o+ Z7 g0 t/ wmacs b1a, b1a, a5a, 0.125 " w( j1 h) P0 z* v! a8 E, J9 T$ Y
macs b1a, b1a, a6a, 0.125
( D3 i' L$ m3 |+ M: @3 P9 Rmacs b1a, b1a, a7a, 0.125
9 f1 E2 p* r$ G k: k : J& G$ _& b" B4 Q" a; M
; right {7 ?5 P- Z6 x( g; T* ^
macs b1b, 0, a0b, 0.125; T# G: `+ E6 |, J* y5 v
macs b1b, b1b, a1b, 0.125 ; post gain
3 l* a0 G6 c$ }7 Q+ Omacs b1b, b1b, a2b, 0.125/ [* k) m% V4 t; N& q, C
macs b1b, b1b, a3b, 0.125
% L" V9 p- d$ r0 K! [macs b1b, b1b, a4b, 0.1250 M7 Z% v" H) g' R8 P' \
macs b1b, b1b, a5b, 0.125
$ d% N: d5 m( a. ?# C6 }macs b1b, b1b, a6b, 0.125- H- E8 i0 d: D
macs b1b, b1b, a7b, 0.125! K4 t8 I$ [, E- U, F: \( U
" r# d& R& s' U; o; a
; allpasses (fixed feedback), diffusor9 x$ G; U" K% v% F0 R
; left7 w7 K' a, i, l: x" ?! v# F
macsn h, b1a, rd8a, ap_q ; ap 10 U" p3 I6 ?$ ~8 j% A* u
macs wrt8a, h, 0, 0 U9 G7 b* r9 R6 H: S. P
macs d1a, rd8a, h, ap_q
/ c$ O/ v# X$ }0 m - L4 {9 [2 g: J, q" [- I, _2 z8 q
macsn h, d1a, rd9a, ap_q ; ap 2
; t. a7 K ?/ ]9 {& umacs wrt9a, h, 0, 0 - v; y$ Z) K1 V: v' t5 @
macs d2a, rd9a, h, ap_q % _# L. l7 D* l) p, B q
' q: E! I" e# W5 Pmacsn h, d2a, rd10a, ap_q ; ap 3
6 } {' M! o6 w' E2 ~1 Omacs wrt10a, h, 0, 0
' y' L3 n% |4 Q1 Jmacs d3a, rd10a, h, ap_q
' _1 r7 m3 }5 B( y* N
+ x$ K8 L! E& F6 {9 K& }macsn h, d3a, rd11a, ap_q ; ap 4
. Z0 L! r6 ^# q+ kmacs wrt11a, h, 0, 0 3 r& _7 N( L) k! r- s0 N( b. P
macs d4a, rd11a, h, ap_q 5 o2 [ H$ t! @9 [, L) {
# O5 y8 ] ~, p/ W; right# r; A3 C1 u6 X' s
macsn h, b1b, rd8b, ap_q ; ap 16 Y6 m' ]2 g5 B: _
macs wrt8b, h, 0, 0
( d0 |! i5 ^1 m7 m( Hmacs d1b, rd8b, h, ap_q + ?/ h: J T+ D1 e2 Q
) o$ c" u1 U- E9 i, W8 T9 f3 J
macsn h, d1b, rd9b, ap_q ; ap 2! k1 X2 z0 y9 c1 m
macs wrt9b, h, 0, 0
2 P9 E, Q, ~6 I- Wmacs d2b, rd9b, h, ap_q
4 h. {( |) Z, `3 u7 V) o! X( ^. _ 6 W! D) S' S B
macsn h, d2b, rd10b, ap_q ; ap 3
, x' | W3 ~) l3 P; j+ g" _macs wrt10b, h, 0, 0 : u b; j1 t) b& |* _' b6 E! T
macs d3b, rd10b, h, ap_q 7 J0 s$ E! `: H1 Y2 a, o5 L" A2 H0 h7 ^
) c5 B' {: s- y/ b9 @macsn h, d3b, rd11b, ap_q ; ap 46 ]4 I7 W0 n0 U5 h/ x+ H, N* F
macs wrt11b, h, 0, 0
1 m3 v& t- j: ?7 q# A4 {0 f5 ?/ Bmacs d4b, rd11b, h, ap_q. N3 n) m- z2 [( m$ O) ^8 g
! u3 I! w( d: ]% Y7 P; late reflections level" B' I4 N- M8 A" y
macs d4a, 0, d4a, late_level
4 X# p. _+ ~- I8 q% Rmacs d4b, 0, d4b, late_level( B2 w d0 d# G9 S% l7 m! n
+ E# J$ E8 p& }9 q! X' z% D
; mix late & early reflections
0 G9 J2 e* _, }" f4 q7 F. smacs d4a, d4a, ga, 16 P, k" @& F2 v. A# r: \0 K/ y. D
macs d4b, d4b, gb, 1$ J) m0 {+ H% E$ f& ^
7 F- k) M1 o( A( f! d5 ?7 z0 b
; lowpass
5 d/ I8 u1 w2 @- |5 m# u; left
# ~: [: @! L% x+ |6 Bmacs d4a, d4a, ea, lp_q ; q+ T- w+ B' K! S& w, q, v
interp ea, ea, lp_cut, d4a ; cutoff
8 [; C" l/ J& ]( ? $ U$ @& `. m% \* h
; right
]" `2 M y2 [/ L1 Dmacs d4b, d4b, eb, lp_q ; q8 P5 i" J) [ C" C0 y) l, H' |
interp eb, eb, lp_cut, d4b ; cutoff
; E. v) Y2 j" t! ?6 h: o; B : E0 l9 S" h8 d9 l, b
; output mix$ n1 r7 i4 `" W1 t$ _
interp out1, in1, dry_wet, ea3 H4 j" V+ e! P3 p
interp out2, in2, dry_wet, eb: h% ~7 U! P g2 F* t( y
r- B5 L# w) q* Y1 E' `- s+ A$ Eend |
|