|
声音可以秒杀现有任意kx的混响了(aps,efx之类),但是高频比较粗,本想自己提高精度的,一看资源,mb外存操作已经几乎吃满了(50/64),看来这是emu10k2的极限了,不知emu专业卡的10k2.5有没有提升外存操作能力,把下面的代码存为.da文件即可加载
% j1 a* a" c5 w& _- u# f" ^0 F$ h P( J! N( P
0 K1 a* o- R& ~7 C4 b" {+ Q, c2 b3 x( u# I5 M
name "superspace mh v1.0";, R1 G3 c( P2 ^% u8 ~
copyright "2009. stylus, http://stylus.siteboard.de") b4 ?( G4 x& O9 \5 T
created ""& Z5 t6 |; _. {9 M' P0 }$ B
engine "kX";2 E: T/ @5 E4 E# N% U u
comment "high end true stereo reverb, medium hall";
5 N8 o; }; Y4 g# q4 _; n1 K9 Pguid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";! x# i8 {6 u2 a6 t K* H# }
0 u4 e1 { N% K2 T$ U! N2 I( s
; late reverb algorithm from freeverb by "Jezar at Dreampoint"
7 K* M, B0 r- d7 R+ f3 @$ V; early reflections from impulse response "lexicon 480l"
& A$ v9 l$ m! P2 f+ E# x5 F; true stereo$ h4 j& B& v4 ` C" h
6 ]8 W& {' Q2 a) O5 g x; registers, X- w8 ^1 p# d- O8 q7 z; S$ [
input in1, in2
7 N" P2 [3 I1 N( f# \output out1, out2 - z+ I9 Z9 G: x" X. r. e
static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea4 }1 f! K1 c; z' }- n
static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
" ~( Y$ R/ k9 T# L! g+ d- Astatic ap_q=0.5, f, ga, gb, h, ina, inb
! b; [6 v: M$ lcontrol input_level=0.7; D" M& g4 w5 R' \- {4 D
control early_level=0.251 J) i0 G }+ u( Q3 l' S
control late_decay=0.85
Y) t4 ?8 m2 d" O1 M- @control late_damp=0.95
5 q' U5 o: M" k1 ?' g! Z2 ncontrol late_level=0.754 w5 [7 U2 H7 N3 {3 i# L
control lp_cut=1
4 T* w; I# O; Q+ b. ucontrol lp_q=0.31 N( m, r- q: |/ v' h
control dry_wet=0.75
) U8 z; D4 F+ s3 V4 I, Z1 Z3 _3 T. N6 x
xtramsize 27454
; x, }2 D, H f; z0 C7 C% l7 S# D7 ]1 l; W, W" R% E
; late reflections iir
# _+ Y1 d' ?3 U9 i& \6 n" S; left
& ~ [ }8 X7 B& vxdelay write wrt0a at 0
; O! f) W) t9 f/ v1 ?7 }xdelay read rd0a at 15562 d0 ]7 w+ a6 w* Z6 ]
xdelay write wrt1a at 1557 9 t! u- I) o# z( c; I }( H4 a% T
xdelay read rd1a at 3173
7 |0 R+ z! W. e( Txdelay write wrt2a at 3174
1 R' E5 H+ y; `. q# H. N: o/ ?xdelay read rd2a at 4664
1 p7 s2 I+ L( Vxdelay write wrt3a at 4665
9 Z- f4 Y& v9 k8 V: N) R: Wxdelay read rd3a at 6086
( `: r+ p9 r9 z' @: G8 @* oxdelay write wrt4a at 6087 3 I& L/ U7 }& K4 a) B# F3 i: Q
xdelay read rd4a at 7363
! h& ^6 `: t4 {! r3 W% q; v. fxdelay write wrt5a at 7364
) R: `' F {$ X. P; mxdelay read rd5a at 87194 t8 p6 D$ \' I) i# O
xdelay write wrt6a at 8720 8 g2 O/ }/ n& M: s6 Y
xdelay read rd6a at 9907/ ?9 q3 i2 `& ]5 Z
xdelay write wrt7a at 9908 & |* b' K7 I4 a" c, J0 p5 D
xdelay read rd7a at 11023
( l! M j n6 a# K% b- h- w( [+ s' F4 g
; right
4 l; b) P8 `" `+ yxdelay write wrt0b at 11024
& u6 q) K e, H& @. R# b) {* W4 h9 ^0 sxdelay read rd0b at 12603
6 p U( O* c2 D9 I* {xdelay write wrt1b at 12604 7 g4 t5 K3 l3 K) ~
xdelay read rd1b at 14243
7 Q* ^8 N2 {! `9 f9 G: ^xdelay write wrt2b at 14244 4 K w+ r) N8 Q. W; ]; k F9 W
xdelay read rd2b at 15757
1 W% I1 ~+ H/ C U9 cxdelay write wrt3b at 15758 $ Z! F( C% u% i" L, |! f6 i/ a
xdelay read rd3b at 17202# S7 O9 B( M5 u
xdelay write wrt4b at 17203
+ |8 [. G: t0 J5 S8 kxdelay read rd4b at 18502' e7 ?6 s" l" z5 K
xdelay write wrt5b at 18503 ! Z$ b+ E* E! w% q- v
xdelay read rd5b at 19881
) g4 e" U' g# q0 M+ t. v( h2 x. sxdelay write wrt6b at 19882
) X) _" N7 K8 p9 Dxdelay read rd6b at 210921 E I5 l2 d. Q+ i5 `
xdelay write wrt7b at 21093
; d" ]9 B& v1 X, X3 o0 z& wxdelay read rd7b at 22231
( \; N% o9 w: ?( b+ w6 s9 L
4 ?# b# W0 {+ L! {1 }9 I; lexicon 480l/ medium hall/ first 8 peaks1 J/ |( ?/ A& l1 U! j- n
; early reflections iir/fir 9 K( r% O) H+ w* z
; left
, O( G, j. H: o* M- h) |! Q5 {' t" jxdelay write wrt12a at 22232
# g" b6 c: v1 j4 c2 X0 axdelay read rd12a at 23566
- j( c- X q$ }3 txdelay read rd13a at 23850
- b# I; l: s$ f" m. z; `xdelay read rd14a at 24033
7 o) ]8 s5 J* Lxdelay read rd15a at 24134
- t1 @1 h. H- T. G+ Sxdelay read rd16a at 24317
`4 ?5 V- [ h" d, U' _xdelay read rd17a at 24376
$ A8 }* f. _1 g! Gxdelay read rd18a at 24418
; y, Y( d: g* Ixdelay read rd19a at 24500* c7 M) k9 ?+ T' x/ J4 K
/ Q; l$ i+ ^$ d. a# }
; right* `1 ]( x- g+ K7 i9 S; l
xdelay write wrt12b at 24501
2 m& P, m, J4 z8 j2 E( Yxdelay read rd12b at 26715+ I0 c8 h; ?$ C( g4 x$ i
xdelay read rd13b at 26961
. q5 @% f# o- g nxdelay read rd14b at 26984
- F5 S9 m2 W1 o9 Uxdelay read rd15b at 27101
, x1 G7 b5 {" L( R1 M Exdelay read rd16b at 27207
: c3 j! c% J- W3 a6 d8 Pxdelay read rd17b at 272682 p3 }: U' s2 Q+ H/ V
xdelay read rd18b at 27347, n3 } M( z4 W/ [# v
xdelay read rd19b at 27454
! ~" j2 v4 u( R: d
# Z' ^) c) q2 a# `
0 V3 O" p: d ~6 Y+ ^9 citramsize 3218 ) \( L- T8 F8 ?* y
; allpasses iir% |& s2 ]8 q$ W1 C# t
; left : A2 c) g4 I; r9 p8 H
idelay write wrt8a at 0
# g( G/ f( ]% _3 u$ [idelay read rd8a at 224$ ^- B( s3 u" A) W, m, G9 ]4 k
idelay write wrt9a at 225
# s" }! V) I2 t" ^$ [" D5 Nidelay read rd9a at 780 `7 y+ W0 R r+ U6 M, k$ e) i
idelay write wrt10a at 781 8 B( G a1 j# |7 c* L6 ]4 M9 }' \
idelay read rd10a at 12214 r' o% P* |8 K e# _4 m
idelay write wrt11a at 1222 5 O6 i! M: ~$ R; B- s5 S5 A
idelay read rd11a at 1562
0 U: S" x/ w3 {# B" l: K$ D# e7 F/ r7 t$ T$ j! P- L+ R, ]
; right $ g9 u; i) ^- J$ e
idelay write wrt8b at 1563
& j! h S1 L; i5 p9 r# midelay read rd8b at 1811
: Y& j- d; u: n; C. u" w$ eidelay write wrt9b at 1812
$ q! A2 c5 ]2 pidelay read rd9b at 2390
1 z+ w- a% _. aidelay write wrt10b at 2391
/ ]! Q2 c4 r5 p) Sidelay read rd10b at 2854/ e" ?8 q, H$ i% B( D% ~; c# `
idelay write wrt11b at 2855
' V9 |2 Q) F, [2 }idelay read rd11b at 3218 b9 n4 C% h/ q% U9 A; i5 I2 ]. a
\$ k: c( {& K8 c: F# ~; input level. [/ V+ s/ \# S- G; Y
macs ina, 0, in1, input_level ; default 0.5
6 q7 R; A1 G3 A: Nmacs inb, 0, in2, input_level- l: I0 {5 X8 N0 q: G5 p
[4 U1 m) u, R3 t& [; add early reflections- g' J! D8 r) Q$ D) k4 e
; lexicon 480l, medium hall
- s5 }) I1 {7 p+ c; left 3 D' \, _7 u) o0 J k3 H
macs wrt12a, ina, rd19a, 0.2( b( t5 i) _: ~9 |6 v5 l C
macs ga, 0, rd12a,-0.272302037
8 A: @/ X t' M1 e% Y6 Q% wmacs ga, ga, rd13a,-0.1972653889 w. O. E" U5 g+ M/ R
macs ga, ga, rd14a,-0.3199269980 z0 _" f) ]1 J' N: a1 E. O1 ]1 m: V
macs ga, ga, rd15a, 0.1531266885 {, _: k8 ?8 m% O9 ]5 F
macs ga, ga, rd16a,-0.17181097
5 m# R) w, q5 i$ n/ Smacs ga, ga, rd17a, 0.4898362156 ~' m4 s0 P! O" _2 G; x& S( \/ @5 R
macs ga, ga, rd18a,-0.120240532
* l& K: n& J& b W& Ymacs ga, ga, rd19a, 0.195007309
) U$ \# A& t9 I7 ]4 Y3 X
H9 e- ^6 y, W" V2 Y' j, Z; right
4 y) D4 q; f, z' Z2 {* F( z) ~macs wrt12b, inb, rd19b, 0.2
8 b) S8 o7 D% Z. b/ `! ~' ~macs gb, 0, rd12b,-0.333553451; J# |% T, _; i9 t$ _7 c6 m
macs gb, gb, rd13b,-0.20098583
7 P' [: T; U2 b0 X; Q$ nmacs gb, gb, rd14b, 0.345275242( Q( m/ g: M% Q& E f
macs gb, gb, rd15b,-0.333553451
/ Z9 P. F4 G4 b# D8 c; kmacs gb, gb, rd16b, 0.163367416: j+ q& N+ T; T/ z: Y
macs gb, gb, rd17b, 0.215360196
% S9 I% A h3 q4 R) \( fmacs gb, gb, rd18b,-0.2080489076 |7 l+ \2 R6 p9 X% a
macs gb, gb, rd19b, 0.540960355" t" T0 d" L& z2 K1 F* s: r. \
: T4 V2 W5 P4 P3 {! F2 c
; early reflections level4 F4 K8 J* `5 |+ _2 C7 p
macs ga, 0, ga, early_level
1 j5 K4 o- a) ymacs gb, 0, gb, early_level/ p" P9 Q0 d- s) }
% v" I0 {1 h: h3 `5 k
; late input + early reflections
+ a6 D* H$ N9 F/ Zmacs ina, ina, ga, 0.54 r5 u; ~9 u# V/ O5 P4 a
macs inb, inb, gb, 0.5
; u' F) X$ U2 S# F& V/ d
, y$ o; c. r8 s" [; trim sliders5 d* M0 Y) h* I2 R' f( q
log f, late_decay, 0x3, 0 ; logaritmic decay fader
8 Q! o# V3 e" r
$ y. ]4 A% ?) j/ x+ u; 8 delay lines (comb filters with lowpass damping)
) o5 x4 j8 J$ C; t7 t! ^1 }* _; left
/ Y( p1 d! A5 K3 S! r! ?macs wrt0a, ina, a0a, f ; decay set to
5 A3 \: n# X9 B- ~7 b5 I7 pinterp a0a, a0a, late_damp, rd0a ; lp damping set to
4 v9 D/ d/ S$ \( Cmacs wrt1a, ina, a1a, f
& b: L( N' L% ]0 i+ ]9 D: Ointerp a1a, a1a, late_damp, rd1a
# z, P9 U; t6 {: Omacs wrt2a, ina, a2a, f
, I8 n- ?% w2 }" r$ N8 Z, kinterp a2a, a2a, late_damp, rd2a" I6 T2 v, u; Z' ~$ p( ^
macs wrt3a, ina, a3a, f 6 h5 g; {) @6 d! [4 F
interp a3a, a3a, late_damp, rd3a
; V6 V) R+ N! C4 O' dmacs wrt4a, ina, a4a, f
1 F+ `+ {- ^1 S* ^interp a4a, a4a, late_damp, rd4a ' |8 p9 y* z3 x+ ?: B$ n e2 [5 n
macs wrt5a, ina, a5a, f
* t& G7 W- {7 |; e8 ]3 yinterp a5a, a5a, late_damp, rd5a ( x% m4 x y# M) [7 Y
macs wrt6a, ina, a6a, f
! e0 o3 A( X% M2 }interp a6a, a6a, late_damp, rd6a 3 ~6 ?" P: U: R3 \7 i* l
macs wrt7a, ina, a7a, f3 B# B3 I% ]( c) o" ~9 m; \
interp a7a, a7a, late_damp, rd7a ( n! R2 C0 m! }/ Q7 u: W4 ^4 L0 I- w
% b1 x, z* e2 B% w3 W! Y7 t; right 0 g- U q3 ^2 @3 H
macs wrt0b, inb, a0b, f ; decay set to % T4 Q2 N$ ~9 u$ w% g
interp a0b, a0b, late_damp, rd0b ; lp damping set to 8 \& U9 ~: B5 y7 R6 f2 O: V( K
macs wrt1b, inb, a1b, f1 b* p" [4 m! ] U# @
interp a1b, a1b, late_damp, rd1b
" H8 _7 k/ i/ Cmacs wrt2b, inb, a2b, f
2 }$ U9 ]5 @; s. {7 Minterp a2b, a2b, late_damp, rd2b* c" j. i0 b2 x) \
macs wrt3b, inb, a3b, f ' G l+ K. y$ O) t
interp a3b, a3b, late_damp, rd3b: X3 X' L8 G7 L6 o$ ^+ Q t5 t; A; B
macs wrt4b, inb, a4b, f
8 X; [7 K% X2 U: |' Xinterp a4b, a4b, late_damp, rd4b
+ m7 C& E* q2 O; `8 f7 Omacs wrt5b, inb, a5b, f, ]! }7 V4 u$ Q# \* O: U7 t( A( @
interp a5b, a5b, late_damp, rd5b
0 I b- B4 H* N4 F3 \. r* W3 E$ Hmacs wrt6b, inb, a6b, f
. G; d7 q7 z i9 y2 a9 cinterp a6b, a6b, late_damp, rd6b
: E" Z: d6 t; ^' o& smacs wrt7b, inb, a7b, f' T9 d( [* c; I& `
interp a7b, a7b, late_damp, rd7b" d0 i( q- K% [- c- T
0 t% d1 u# y+ @; |7 m8 \; add & gain taps 4 w% ?4 T! I7 R0 p. Q+ ~$ W
; left
z( l1 T" m$ B9 a; t$ t& m& Mmacs b1a, 0, a0a, 0.125
9 v; l+ L' @" ymacs b1a, b1a, a1a, 0.125 ; post gain
' {; U" C" E" a1 y' E% L) F- @macs b1a, b1a, a2a, 0.125
n; m# |% r' Pmacs b1a, b1a, a3a, 0.125
4 N- M* D0 Q1 m$ P5 w8 l5 K# Smacs b1a, b1a, a4a, 0.1258 K# |( t. K3 \
macs b1a, b1a, a5a, 0.125
$ a% \: u' ?# N1 V& f- imacs b1a, b1a, a6a, 0.125( l& n$ m9 ^! U) s0 Z
macs b1a, b1a, a7a, 0.125
; j! r+ J8 b4 F( u. K7 ` ( v* o. e" \7 i( I% J, \
; right
9 h9 X( |1 i! C7 Q8 tmacs b1b, 0, a0b, 0.125
: E: b% }9 \3 K% Xmacs b1b, b1b, a1b, 0.125 ; post gain& n. f, `6 r n6 E
macs b1b, b1b, a2b, 0.125) h' n$ Z% u% H/ z
macs b1b, b1b, a3b, 0.125 - f) {0 O7 ~* |! \9 y
macs b1b, b1b, a4b, 0.125* `8 A9 d5 R' l, s4 N% s% f
macs b1b, b1b, a5b, 0.125 : G7 z1 C/ s0 |: h1 H6 ~
macs b1b, b1b, a6b, 0.125
. q0 f5 D2 x! z o q2 ?8 W/ {macs b1b, b1b, a7b, 0.125
& L' ~5 p+ k$ r/ O, |) g8 T6 R0 `) E9 M' a2 d/ s9 |* M
; allpasses (fixed feedback), diffusor1 ]+ S' k' z- h3 g) ^- b& B4 h4 T$ K
; left
/ ^4 V+ ?9 U. C8 omacsn h, b1a, rd8a, ap_q ; ap 1
9 U/ x" C4 v1 n1 l- gmacs wrt8a, h, 0, 0 7 a+ |6 a" {) i1 q
macs d1a, rd8a, h, ap_q 2 |2 p/ _6 {. j
. L5 w9 {4 ~1 M2 ?% \$ g
macsn h, d1a, rd9a, ap_q ; ap 2! {/ T U3 M8 B2 c
macs wrt9a, h, 0, 0 w! {% r0 }3 B
macs d2a, rd9a, h, ap_q 9 v( o5 F$ w. T- O4 U, b* p
+ F4 P1 f! D& c: ?$ W4 w6 xmacsn h, d2a, rd10a, ap_q ; ap 3$ d) M* `) _% ~3 u3 N
macs wrt10a, h, 0, 0 " E; O' [% y/ [% y3 Y: z. {
macs d3a, rd10a, h, ap_q ( M! K- i! _9 x2 q5 S6 c. a
, D) U/ U; [5 D+ j7 [7 p
macsn h, d3a, rd11a, ap_q ; ap 4) ^. C6 O: d5 S8 K) V
macs wrt11a, h, 0, 0
6 F9 r( C2 t7 h) J$ G' Jmacs d4a, rd11a, h, ap_q * D+ \7 g& Q0 z6 Y9 ]. w
$ s; K; ]2 @ Q, M5 ?, `. r9 s; right
$ u" E+ }7 G: I |$ B, g* o3 Y) J$ hmacsn h, b1b, rd8b, ap_q ; ap 1
& h. }- Z) P: l; omacs wrt8b, h, 0, 0
; x7 G$ [* F" d% t0 r) Cmacs d1b, rd8b, h, ap_q
+ Q+ X" g. ]% C: S: ] C2 a6 p
" l# B# t, F5 C% r! ^( _* M3 d w( Zmacsn h, d1b, rd9b, ap_q ; ap 2! S4 ~' ]8 G; q" T" N
macs wrt9b, h, 0, 0
, h" ^5 c0 r8 ?macs d2b, rd9b, h, ap_q
& h! D$ N0 [2 a/ V! P
# }; D5 a$ G1 G1 ^, k: Mmacsn h, d2b, rd10b, ap_q ; ap 3
3 s' @8 N. s' N4 {! Smacs wrt10b, h, 0, 0
- ?* @0 }$ T: v3 ^6 r. U3 r0 ^macs d3b, rd10b, h, ap_q + p% H( D. G% P- I+ l8 ^. O8 v: Z* a
( w, E$ y- }( t1 B7 @& ~; |, Imacsn h, d3b, rd11b, ap_q ; ap 4
$ V5 W M) T- Y4 G! r, Vmacs wrt11b, h, 0, 0
! }3 D( L- v5 V. F* smacs d4b, rd11b, h, ap_q
3 h' ~8 Y5 S0 z. s
* j7 y; x$ o3 N& r8 f; late reflections level/ l: {+ g) P$ ~& T# |
macs d4a, 0, d4a, late_level % P; K- |; W5 \' G+ n0 i
macs d4b, 0, d4b, late_level
. ~4 v4 @6 |- B
3 o7 Z5 c9 K# `) Q2 z; mix late & early reflections
; x% X2 g- u, |3 S; d+ Q5 k: ~macs d4a, d4a, ga, 1
! \- M% e, u0 W# Emacs d4b, d4b, gb, 1
2 j0 v+ D# P9 Z, S! P% H3 b
6 ]% R4 w8 {* E, G; lowpass
2 i- r4 M$ U% {& R$ A) i/ n; left: c1 T! E5 `6 N& h$ o$ ?
macs d4a, d4a, ea, lp_q ; q
; _" ] j# T! u% u- ointerp ea, ea, lp_cut, d4a ; cutoff ! w% w! ^6 [9 n( M
?, J$ y' E+ J* A6 e' z' O, W
; right0 L ?' u3 X. p0 e+ _( B; c. H# i5 [
macs d4b, d4b, eb, lp_q ; q
3 Q, M$ c9 ?# e5 ^interp eb, eb, lp_cut, d4b ; cutoff
% V1 D+ U; ?% d8 u: w
0 C2 C' R( s5 E6 u6 y; output mix) t- m' @2 P5 {5 ^# p
interp out1, in1, dry_wet, ea
7 R$ v) o( a5 Zinterp out2, in2, dry_wet, eb
0 B- T% O6 T( y# b- }
9 G7 ]1 e6 x- L: s6 B0 send |
|