|
声音可以秒杀现有任意kx的混响了(aps,efx之类),但是高频比较粗,本想自己提高精度的,一看资源,mb外存操作已经几乎吃满了(50/64),看来这是emu10k2的极限了,不知emu专业卡的10k2.5有没有提升外存操作能力,把下面的代码存为.da文件即可加载
0 v2 [/ _! q& M. ]: [) w! ]
+ L6 Z2 G0 N9 b! o ?3 V
7 @4 @6 A* G" h% r: ]/ J/ ^$ v) l8 ~/ D! D( E4 x! Z. S
name "superspace mh v1.0";) Q# ? i6 H5 @" \
copyright "2009. stylus, http://stylus.siteboard.de"
" t9 m3 O1 _# \5 Z6 p8 f wcreated ""
+ x$ W2 F( j; Q* Eengine "kX";! k) ~# S6 z$ W. ]/ t
comment "high end true stereo reverb, medium hall";; f3 m: E. b- u# a7 }, Z: I, ]
guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";$ G. u3 m+ \. X( `. Z/ Z5 a- H* m
$ ]+ u% X8 L$ A4 ?; late reverb algorithm from freeverb by "Jezar at Dreampoint"
" B: L. k1 ?5 F5 P6 r c0 g& p4 H; early reflections from impulse response "lexicon 480l"
! I& ~! y5 U3 `/ r) j4 B1 Q) O; true stereo& f$ N7 x- O" [1 G% N. s! n; e
, p) f3 @+ T8 n/ I; registers4 O7 ^# ]. d6 v: ?' a) m! b; {/ B$ y! q
input in1, in2
6 X: E' O, Q$ ^ c" }output out1, out2
/ o2 }! B8 b" D" H3 Zstatic a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea7 y# m1 j; l a, n( U
static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
$ _3 u4 [& d4 y5 o* i4 Nstatic ap_q=0.5, f, ga, gb, h, ina, inb
/ R( i+ z! V0 e$ P5 E% Dcontrol input_level=0.7
; L( S$ ^7 y: J9 Zcontrol early_level=0.250 J1 C y8 \( u0 l% w
control late_decay=0.85
4 {9 k. w9 x! N9 K R' K# k: ~' ?control late_damp=0.95
6 X' Z# n& e* Ocontrol late_level=0.75
* r2 |5 V7 Z4 T( U- ^% Dcontrol lp_cut=1
) P. M# @+ R% b p# b0 h# Icontrol lp_q=0.3' x: ?2 z3 I7 }) s% |( w
control dry_wet=0.75. F, k- W# d/ o3 q& {6 O* F
' ?: Z! H8 B G& L4 w/ m
xtramsize 27454
9 K* w& ^2 ?4 L3 I' q: H3 h2 X8 \& W( n& n/ m4 y2 _' v4 G
; late reflections iir5 U: @7 D- Q+ f) p+ U
; left
/ q9 X8 o% k* `& D p( gxdelay write wrt0a at 0
% Y7 F3 O7 d( Fxdelay read rd0a at 1556! `7 `+ o! P) {" S% H+ t+ v
xdelay write wrt1a at 1557 : A1 j4 j- |) o
xdelay read rd1a at 3173! T' |/ z$ I* I: g; `
xdelay write wrt2a at 3174 $ [4 j. ^$ x5 B) X& K) { t4 n
xdelay read rd2a at 4664' [& x9 P- V4 I b
xdelay write wrt3a at 4665
- N# L$ O1 p6 Hxdelay read rd3a at 6086
1 l+ E( `. P" O' v$ {% E3 F2 B( t5 Wxdelay write wrt4a at 6087
- P! B8 u& ~* j" fxdelay read rd4a at 7363$ a: L: k( w% F/ W7 {( |2 F& _
xdelay write wrt5a at 7364 $ K8 g7 }$ g# g; `
xdelay read rd5a at 8719 K/ g) K" r) U8 [
xdelay write wrt6a at 8720 6 q; C6 L Y0 P' a
xdelay read rd6a at 9907+ h; r, q1 A0 E% N5 A- i
xdelay write wrt7a at 9908
9 a8 O" ~1 A2 R5 ]* V: \1 Uxdelay read rd7a at 11023
' u3 I, x$ @- M* \, Y
7 a5 F9 z+ {' ?% w0 Q0 Z2 E; right : m/ X6 R+ n) P' @8 x6 A1 {- q3 G
xdelay write wrt0b at 11024 3 S1 c! _8 u; Q* J/ v3 K
xdelay read rd0b at 12603) s3 _3 S3 [" [- O7 e
xdelay write wrt1b at 12604 " x2 \/ f* S0 K e0 h$ C& X$ A/ d
xdelay read rd1b at 14243
1 k {6 ?7 ]; u: k3 m# T" pxdelay write wrt2b at 14244 ! D% g) Z( {; N, D) [, m
xdelay read rd2b at 15757
/ T9 G( h5 @ b6 f; dxdelay write wrt3b at 15758
* S. V/ I1 f3 w( a3 |xdelay read rd3b at 17202% Z& h6 j% O# w' i: ]- K
xdelay write wrt4b at 17203
2 K2 _# g" y3 N+ R$ |+ L( Fxdelay read rd4b at 18502 b2 Q7 y- ~9 h1 F
xdelay write wrt5b at 18503 # b. N9 V4 w6 p4 e3 n+ p6 v8 P9 |
xdelay read rd5b at 19881- t" T1 L" B' b5 R
xdelay write wrt6b at 19882
4 l6 I" v$ I4 o/ Sxdelay read rd6b at 21092/ g+ G# W+ |( x' V
xdelay write wrt7b at 21093
$ s2 v8 P) n. Q- exdelay read rd7b at 22231
8 t6 V1 y" b$ v/ ~" u2 X9 s
% P& ?& v: {: m3 L; lexicon 480l/ medium hall/ first 8 peaks4 `9 X: @% S; ~" k8 k' o
; early reflections iir/fir
% L8 v* ~; e! F; left ; {3 l2 ^/ R0 T* n
xdelay write wrt12a at 22232 1 F9 I; P9 l& z! k5 K
xdelay read rd12a at 23566
0 V6 E6 j h) C R2 j: k/ b! @xdelay read rd13a at 23850- s$ G% U( V! o9 i, c/ h
xdelay read rd14a at 240332 t3 x; U4 J2 I/ ]8 l+ ?+ J" e+ @8 T- f
xdelay read rd15a at 24134, q! K+ H- v/ |' _ _( c* Q% H9 `
xdelay read rd16a at 24317
( L2 L6 [6 W7 u* y7 ^7 H6 Bxdelay read rd17a at 24376
2 P. R8 A8 _! _* U, F- pxdelay read rd18a at 24418
" |9 \( A1 W+ ]9 K7 Q/ Dxdelay read rd19a at 24500
9 }" A# p# |$ g0 S8 {% ?
6 E2 k2 c. D( ]6 y+ Z9 _+ \2 g; right( [1 {2 T9 w7 \
xdelay write wrt12b at 24501
* |/ `' J P! ~3 x' H- K( ~9 X) nxdelay read rd12b at 26715
/ J7 z0 Y) R+ pxdelay read rd13b at 269619 P$ s; s, n8 i$ V0 `9 Z
xdelay read rd14b at 269848 g( L0 X3 W+ ?$ U. N. y& p- V' T
xdelay read rd15b at 27101/ q2 G+ Z' ~1 `/ \' L* ~' f
xdelay read rd16b at 27207) D: D2 m' O3 |" X! j% x. f
xdelay read rd17b at 27268. S% [7 T/ E8 J" c: S
xdelay read rd18b at 27347
7 ^9 j% q$ S* C/ D7 T* cxdelay read rd19b at 27454
9 W5 a: W1 S* K' C9 q( o" w7 \) o7 u( ~6 ^
4 s+ _# s( @4 g7 [1 I: \
itramsize 3218 & i" d* O- U) b) O9 M, P, b1 v
; allpasses iir2 z$ ?0 y! e( i1 X0 I
; left % W/ x8 ?8 U0 ?5 a
idelay write wrt8a at 0
) ]3 c1 w" f4 z/ k0 J) J5 `idelay read rd8a at 224
7 m; [( \& _ _) W7 Midelay write wrt9a at 225 - `8 D [# M0 m' K* I J# H
idelay read rd9a at 780% R! d( E+ R9 _
idelay write wrt10a at 781 7 A7 n% K; e( ^ i
idelay read rd10a at 1221
* q& O1 ]; x% a6 `2 Aidelay write wrt11a at 1222 " l: G- w- g. @. s: T. d
idelay read rd11a at 1562
. ?; Z& q3 I3 y7 j/ g7 x# h
# B( r/ p3 x1 l; E: ~5 T+ Q; right
8 }4 e: B: _3 v0 n- I# ~. didelay write wrt8b at 1563
8 H/ F& B2 |) Kidelay read rd8b at 1811
8 @5 m$ e' X7 K! N9 oidelay write wrt9b at 1812 2 ~: u% c- i. g# E9 t( C) q q
idelay read rd9b at 2390
# r. T$ u; \' H/ r/ Y( Yidelay write wrt10b at 2391 7 V! A/ }9 S, L# i
idelay read rd10b at 2854
1 ~# ?1 x; ]8 H [. V9 ]idelay write wrt11b at 2855 0 W" N7 q( h% v9 H: R% K* d* `
idelay read rd11b at 3218
' O3 D( @ `. V- |1 n! q; i, d& W% I* b
; input level
( S* m! I9 q- umacs ina, 0, in1, input_level ; default 0.5
) M+ V' j. M0 Z1 m E& X' ]macs inb, 0, in2, input_level8 j2 \- p) O- S6 H$ o
?6 G: l% z2 ^3 E$ Q0 v9 ^) o
; add early reflections) W6 D- ~9 t: R% g4 l0 [
; lexicon 480l, medium hall; H% u8 G+ Y: I- A" B
; left
0 ?1 v% t4 j$ N* S+ i/ g j8 {macs wrt12a, ina, rd19a, 0.2. U1 j& ]5 y) f5 h/ D
macs ga, 0, rd12a,-0.272302037
" L* i& a/ p+ w5 gmacs ga, ga, rd13a,-0.197265388% H" X- g6 t# m O% a* }
macs ga, ga, rd14a,-0.319926998+ z9 ]! h; e9 L
macs ga, ga, rd15a, 0.1531266882 U3 h3 _! Z+ X# R2 e+ |( R; f
macs ga, ga, rd16a,-0.17181097+ R. N) c5 ^$ y0 h: ^) R9 r0 [( e
macs ga, ga, rd17a, 0.489836215
. P( ^2 t$ ^6 ^2 y' i, Qmacs ga, ga, rd18a,-0.1202405329 m. x* u; T; [5 m
macs ga, ga, rd19a, 0.195007309/ m- W( f$ U9 Y6 \% u8 u! C+ J. M
7 ^, O' t5 O6 T% \! h: i; right
& U6 b6 I! A& T, rmacs wrt12b, inb, rd19b, 0.2" S$ f6 U4 a) W% o' n! [- x; y
macs gb, 0, rd12b,-0.333553451
4 E# v5 h. p& w) ~5 l' h4 lmacs gb, gb, rd13b,-0.20098583
. e; h! J* u& A" v* C: ^+ Amacs gb, gb, rd14b, 0.345275242- q, U: Y- f8 Z, Z5 g$ ] ~ ]# ^7 Y
macs gb, gb, rd15b,-0.333553451
4 S' ?/ m* @1 ]7 r8 F f& R) \macs gb, gb, rd16b, 0.163367416 F3 p: Y. i- L5 s
macs gb, gb, rd17b, 0.215360196
V) R: H) [& amacs gb, gb, rd18b,-0.208048907
# P, {; F6 ^- L# R8 i( Umacs gb, gb, rd19b, 0.540960355
6 r( k3 J9 N! B; |7 a$ G: U
6 [6 H7 h( j4 E; early reflections level+ Z( q# {- N. h# d, v# {
macs ga, 0, ga, early_level - `; i; i1 ~# _ z; K; @
macs gb, 0, gb, early_level, {( t" _1 e/ m4 x1 J1 a& v, L
0 b) F- m+ T4 M' L9 t
; late input + early reflections % e; G! H& f% p9 U% D' O2 y
macs ina, ina, ga, 0.5
. g% N- B2 g5 K( h* w8 _; amacs inb, inb, gb, 0.5
0 R* d/ f5 A" m5 S& H6 ]+ q. q! t. n ( |' s9 D- W, l& p1 {( u
; trim sliders
3 p, j* b+ D7 ~log f, late_decay, 0x3, 0 ; logaritmic decay fader E$ h# I7 I& d6 C J' c! @8 Y
6 x3 |! g ^3 D
; 8 delay lines (comb filters with lowpass damping); |( X0 M1 {: G& s6 ]$ N9 x" D
; left
' U- I2 J# e0 T1 ]- n) E: [( Smacs wrt0a, ina, a0a, f ; decay set to
5 P: `% Y D$ l \6 sinterp a0a, a0a, late_damp, rd0a ; lp damping set to
0 C# n: J0 V7 X' o/ D j' vmacs wrt1a, ina, a1a, f8 P, }6 ~% E& w1 ]% w8 R, u
interp a1a, a1a, late_damp, rd1a* n( d7 k; L% `* Q7 c
macs wrt2a, ina, a2a, f
+ y% r* ?/ S4 a: ?! _interp a2a, a2a, late_damp, rd2a- }; b; @8 w3 u
macs wrt3a, ina, a3a, f 5 [2 L$ ~3 W: Z7 E
interp a3a, a3a, late_damp, rd3a
$ @) C& n- G$ z4 ]' `( f& Zmacs wrt4a, ina, a4a, f
" X0 x8 D2 X9 ]7 dinterp a4a, a4a, late_damp, rd4a
|+ K! a& Q% f/ w* _5 {, Zmacs wrt5a, ina, a5a, f6 _$ Z2 L' J. O
interp a5a, a5a, late_damp, rd5a
' n' h7 l# I" Dmacs wrt6a, ina, a6a, f; L3 Y. P0 z; E% ?, y! [( O Z
interp a6a, a6a, late_damp, rd6a 1 I6 z8 e/ a* b* t! K
macs wrt7a, ina, a7a, f7 v/ n! U( Q7 A$ s6 ]
interp a7a, a7a, late_damp, rd7a
! E9 ~7 J) s6 a( g: x! m
: ?; S2 u- N* F6 k# ~& ^; right 6 i6 H4 Q) K3 U9 x/ B( t, |
macs wrt0b, inb, a0b, f ; decay set to
! {. `+ w6 J- k- s; S; ]interp a0b, a0b, late_damp, rd0b ; lp damping set to " f4 s! v0 h, z. W, G4 I+ N
macs wrt1b, inb, a1b, f
8 G' V: h% r2 L, O& n- S- [interp a1b, a1b, late_damp, rd1b q: I3 z* P9 ^ S8 X8 G& o9 @+ I
macs wrt2b, inb, a2b, f0 x5 W0 w6 v* S, \, a( R
interp a2b, a2b, late_damp, rd2b
! b1 Q0 B) O4 M5 |macs wrt3b, inb, a3b, f
; R, u3 T+ J3 V, f: T0 J5 j, Minterp a3b, a3b, late_damp, rd3b
% X1 A) V( N- {) Smacs wrt4b, inb, a4b, f
: f3 Y) n2 ?6 X' kinterp a4b, a4b, late_damp, rd4b : Y! ]$ @$ {* |
macs wrt5b, inb, a5b, f
* F" W( }9 z2 A( k8 k4 K5 ~' V Pinterp a5b, a5b, late_damp, rd5b
. s( J% ~% k) z5 ?6 ]- emacs wrt6b, inb, a6b, f( B. b! h, Y. b X+ F. E
interp a6b, a6b, late_damp, rd6b
i& y7 t% I$ b( r; vmacs wrt7b, inb, a7b, f( d0 I! P k# c' S
interp a7b, a7b, late_damp, rd7b
9 J4 s" B# C2 S) \
) K- A2 O$ V) w. p; add & gain taps / \" g+ G+ q# E7 K* J' e
; left. J6 q9 V$ t0 A
macs b1a, 0, a0a, 0.125
( ]9 z" f0 R/ L2 ~4 J3 v" m5 `macs b1a, b1a, a1a, 0.125 ; post gain
) H/ f! i& I# h( U8 y2 s: e" emacs b1a, b1a, a2a, 0.125
J' ^, y: z- K( j+ Y: Y/ L& r( vmacs b1a, b1a, a3a, 0.125 . }9 e2 D* U4 V. r
macs b1a, b1a, a4a, 0.125! C. f3 b; y) X" A% @5 X2 e) v7 B5 D
macs b1a, b1a, a5a, 0.125 * g3 s- b2 c; H# \
macs b1a, b1a, a6a, 0.125
Q3 q- t3 {: O# @) ~$ e1 Zmacs b1a, b1a, a7a, 0.125
: {* o/ W! B5 w/ r0 R5 L ! b( [6 F6 f% |8 j3 ~7 N9 M# T
; right$ Q9 _$ i; i4 s' C: X
macs b1b, 0, a0b, 0.125
. ~ p4 g/ C/ i' V. m' Amacs b1b, b1b, a1b, 0.125 ; post gain
# j# D7 _- E; S: r" v! s9 D: Vmacs b1b, b1b, a2b, 0.125
: o g& l- t2 G0 ]/ emacs b1b, b1b, a3b, 0.125
; K" y! Z* v* O; w# a: d+ X; }, zmacs b1b, b1b, a4b, 0.125
: {$ i, `$ d3 P! F" L; V/ bmacs b1b, b1b, a5b, 0.125
. O4 H8 Z( h S* amacs b1b, b1b, a6b, 0.1255 Q- q! Z8 ]* u
macs b1b, b1b, a7b, 0.125
* g$ f Z4 H+ s0 e% O! |. M) Z# F; m% p3 i: W
; allpasses (fixed feedback), diffusor
" |' k! g4 q$ Q( y W2 \% A9 q; left
* o0 j. u6 |4 j* Jmacsn h, b1a, rd8a, ap_q ; ap 1! m6 I/ t$ z3 l9 E# ~( H5 y4 ]
macs wrt8a, h, 0, 0
" n2 q3 G1 g2 y( r4 V: W* c2 ymacs d1a, rd8a, h, ap_q
$ F Y% J$ T$ m) \ A
5 B2 M' e# R {8 vmacsn h, d1a, rd9a, ap_q ; ap 2: u; o3 x: I9 _& l& Q- L7 }% p2 Q1 j
macs wrt9a, h, 0, 0
4 j# i! s2 G1 Q# o9 }/ Kmacs d2a, rd9a, h, ap_q
6 V+ _. C4 z5 v
6 ^0 V! R3 `6 A) U1 [5 [macsn h, d2a, rd10a, ap_q ; ap 3) O; J! |& T$ K
macs wrt10a, h, 0, 0
: p4 M2 V- \5 s# @3 c/ c Pmacs d3a, rd10a, h, ap_q
2 i* B; \3 Y- X6 P( N1 W - q' Y* {8 [5 Z" i
macsn h, d3a, rd11a, ap_q ; ap 4
; z' N+ z2 h) q) B* }+ q3 O8 m( P3 Mmacs wrt11a, h, 0, 0 * g9 I+ M) S( K4 W7 _
macs d4a, rd11a, h, ap_q * k) P, F# O) c4 K
7 D6 E4 J8 ]% J+ I0 [
; right
" G6 n" |" }3 t1 Nmacsn h, b1b, rd8b, ap_q ; ap 1& O3 O- t# z/ F1 t- T W9 w
macs wrt8b, h, 0, 0 4 j6 ^" X8 y5 K- B5 B$ K
macs d1b, rd8b, h, ap_q ; O& R) r1 \2 {6 D c5 w/ d0 h
/ D! E W/ `1 v, A) ~macsn h, d1b, rd9b, ap_q ; ap 2
# N0 m* h1 s' ~5 G6 B3 n+ Omacs wrt9b, h, 0, 0
* {% e6 E8 V/ Y5 l7 v, m1 k& Pmacs d2b, rd9b, h, ap_q A+ m) r4 `# o
+ v8 ?. x( p, Lmacsn h, d2b, rd10b, ap_q ; ap 3
1 X" x* a4 ?4 `- G$ l, [macs wrt10b, h, 0, 0
( l( v" X( Z4 E9 y# x; G. {macs d3b, rd10b, h, ap_q
) V4 I* B5 s, M) ?8 o& l1 O) V( a n2 l & b6 x' G, y3 |+ j
macsn h, d3b, rd11b, ap_q ; ap 4
! x" Z. b; g) k0 v4 f5 Cmacs wrt11b, h, 0, 0 7 z$ c2 s6 j& W2 t/ h* I6 E1 q
macs d4b, rd11b, h, ap_q
/ d6 A% f6 Q& v- H, a6 c# {, w3 r) `
; late reflections level5 X) `2 ~+ U' |1 Z+ P9 W
macs d4a, 0, d4a, late_level ! n( \8 U) X# f3 q; f, o: t
macs d4b, 0, d4b, late_level1 |2 n1 {. M, B3 m. h% c+ x% i
6 P% k7 V$ Y/ Z% v. O) q( H; mix late & early reflections
# X, d1 f# T1 o2 `macs d4a, d4a, ga, 1
/ ]( q7 L/ w% N! l$ `macs d4b, d4b, gb, 1& D9 M/ Y5 b. B) F) \
4 z* T! `1 b/ A
; lowpass
% ?" `4 {+ R5 O2 K) |' [3 q; left
8 u; |4 M; u% o" E! |" U5 s5 m; hmacs d4a, d4a, ea, lp_q ; q) ^. w4 `5 D P, ~& w1 a
interp ea, ea, lp_cut, d4a ; cutoff
% F7 m c J, A$ n5 Y 2 l; o! K$ P# {# p
; right
2 E, i: _- R* W9 M7 fmacs d4b, d4b, eb, lp_q ; q! [8 }- s/ C2 N/ w) X! b* b* y
interp eb, eb, lp_cut, d4b ; cutoff * J# A- S& Y; n6 r* ^: O
' k) d0 g; o4 N1 p3 s/ J
; output mix
6 i4 D) b- m! @! D' f( e3 [$ pinterp out1, in1, dry_wet, ea
. d) \# N: X& qinterp out2, in2, dry_wet, eb9 J) F# z* r# Z# z
" x' b; F) J2 i/ U7 D9 `4 g Qend |
|