|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载
0 |& _7 B' s* m) S! V: L5 L$ T @" I' a6 X
3 N) V$ Z8 _' t8 v6 z/ H s9 O) Q; J+ Q& u0 o& [
name "superspace mh v1.0";: ~1 W1 I' n, E4 i8 c. D, }! G7 x
copyright "2009. stylus, http://stylus.siteboard.de"
, Q: L! w, Y; l3 lcreated ""7 b9 G S1 j& @, q, h3 b! R: c
engine "kX";( l9 E, h8 S* @ F
comment "high end true stereo reverb, medium hall";( j( I6 \& O- |- f# O0 m
guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";
) j& n( g3 g4 G1 t& }' c
4 d% o0 A2 y8 W: l, o. d; late reverb algorithm from freeverb by "Jezar at Dreampoint"
! r5 I7 n5 h9 b$ Z; early reflections from impulse response "lexicon 480l" . N* m: }+ h* C% k' f
; true stereo
" ], i( [- |8 O- |5 ^5 d$ i- |- e) L/ F/ q2 D& F
; registers
5 w6 S, s$ n+ ] o* |input in1, in2
4 ^; W( k0 q8 |: ?% Woutput out1, out2 & G7 ?5 ]- Q$ r6 p
static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
% _, c/ H4 {+ _0 t+ J: v$ Nstatic a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb0 o7 v5 D( F( u! ~9 ^
static ap_q=0.5, f, ga, gb, h, ina, inb2 v1 L5 m7 Q9 n4 L5 g8 U% f. c( ?
control input_level=0.78 j' N( m: [# z4 v0 U" X
control early_level=0.258 U8 T2 b* R- U% f
control late_decay=0.85' M+ q3 S9 |( ~+ I- S ?+ i
control late_damp=0.95( F C7 b5 L4 z+ V; @- r
control late_level=0.752 q/ e% j9 b b% }
control lp_cut=1
+ r# n. e2 p: a# T% qcontrol lp_q=0.3
: g3 o" b+ o8 i+ s; g* dcontrol dry_wet=0.75
$ Q! M. [9 D0 c* T% Y1 C- g4 B H9 ?2 L+ Q5 Y& p
xtramsize 27454
' h5 F3 _# ]8 K o( y/ J
* I! \2 J) C0 v$ j" I& L) h: o; late reflections iir
0 F' k& J5 P8 w* T; left
1 C0 P% @; K+ e8 [) V5 T, W& hxdelay write wrt0a at 0
r5 m9 C2 A# c8 U. p5 G9 ixdelay read rd0a at 1556
+ ?& {6 w, n8 c9 {7 X2 o# g' @xdelay write wrt1a at 1557
4 X/ M5 Z5 @( h) e3 D$ Txdelay read rd1a at 3173+ L; i, {; f; j) E. E: E
xdelay write wrt2a at 3174 0 T& H, a! t3 W9 m+ Q
xdelay read rd2a at 4664
: R+ V: N* F c) B3 q- qxdelay write wrt3a at 4665 : s1 K+ V/ G9 }7 \' o; X
xdelay read rd3a at 6086; L0 }/ }/ W E/ j1 ~1 Y
xdelay write wrt4a at 6087
/ w+ [+ r. g0 e' Q5 {/ |# @- z! hxdelay read rd4a at 7363
; d1 j6 x- B5 S/ `/ s! m: q7 {# bxdelay write wrt5a at 7364
; Q, V) l( N4 P2 [4 hxdelay read rd5a at 8719
0 A0 }1 \. K b7 p1 Z$ T1 Dxdelay write wrt6a at 8720 2 q" J+ P# {: E5 S
xdelay read rd6a at 9907
& ~* E. g. Z2 Q9 Q7 |6 Jxdelay write wrt7a at 9908 ) t. E, u2 u4 N) j
xdelay read rd7a at 11023) p8 E; f- _- n
4 X9 J2 p& v p' m, ]3 E' \
; right ; I& q# f5 o" L7 } y) K* f
xdelay write wrt0b at 11024 8 e: Q4 I7 t0 ~2 ^- o
xdelay read rd0b at 12603
( v0 K, d( _7 |% Z) ?2 t$ } _+ Qxdelay write wrt1b at 12604
) Z6 n, j' U7 |2 w& qxdelay read rd1b at 14243
. x/ p# l6 c2 L8 @5 \xdelay write wrt2b at 14244
0 X5 [) F- v3 l5 O+ |+ Mxdelay read rd2b at 15757
( n) B; E7 Z8 I! D8 Z+ B# ?xdelay write wrt3b at 15758 3 S+ r" G8 G' D8 r x6 b
xdelay read rd3b at 17202/ @% y7 A% J4 j- w0 ~( l# J
xdelay write wrt4b at 17203 5 Q1 ^1 B& T, C9 Y3 C8 U9 H, Y& o8 X/ ]
xdelay read rd4b at 18502
/ W- b, h1 T( q: G" oxdelay write wrt5b at 18503
! d5 C! y7 { ]xdelay read rd5b at 19881
1 \+ I6 L# h9 r% s* ~xdelay write wrt6b at 19882
* ?" g6 b/ I* [& D/ qxdelay read rd6b at 21092- ~+ b1 T/ {& m. \
xdelay write wrt7b at 21093 ( O) M |2 v% |2 y5 E$ a T
xdelay read rd7b at 22231$ a+ r+ r3 P8 {) v) L5 J
* t% U/ H8 b X. w F+ s
; lexicon 480l/ medium hall/ first 8 peaks+ o4 ~' t% F, k+ [
; early reflections iir/fir 5 y E3 u5 C7 D- x3 k
; left
9 T6 m# e7 t- F5 y6 Rxdelay write wrt12a at 22232 ! e6 H/ I: s* P( G# W
xdelay read rd12a at 23566! e5 [1 e8 O( T
xdelay read rd13a at 23850( L/ `" y7 J3 V/ j; C E6 l3 H" F
xdelay read rd14a at 24033
6 n# S3 F4 R5 b" x* N# A, |xdelay read rd15a at 24134
# R/ w/ |4 S- ? [xdelay read rd16a at 24317
! d" {! m( F. j6 Z5 rxdelay read rd17a at 24376& D' t U: R0 s5 v! O0 \% [
xdelay read rd18a at 24418& M5 v0 b8 L, |
xdelay read rd19a at 24500
1 e, U5 i0 M- V! l- w7 ~' Q! M* }) \3 y) }! f: e0 l
; right9 j) N% b! t; s! N+ f* z6 `
xdelay write wrt12b at 24501 + `$ ^6 \$ |: ~0 s" F9 s% n
xdelay read rd12b at 26715: D" C. X* y/ ]( V
xdelay read rd13b at 26961
; z3 B4 g0 V# pxdelay read rd14b at 26984
4 ]# m* K0 O! ^8 Z, M2 {xdelay read rd15b at 27101/ }; H3 f& h6 A. |+ R
xdelay read rd16b at 272077 y6 E3 f9 r8 B2 u) e6 @- I) J( [0 x2 j
xdelay read rd17b at 272687 } D2 V3 P T) \$ ^$ | f: n
xdelay read rd18b at 27347
- p4 a3 X a+ R- [xdelay read rd19b at 27454* e, R* `2 U- T" c& q3 F/ C" |
: y3 {/ E) Q5 Q2 ~
8 Z4 l0 O' x9 i! J) q, {6 o' C
itramsize 3218 ( s& B9 L$ Y& Y4 ^
; allpasses iir8 r- M; i# I! P/ I% y' f
; left
6 d; G5 k, y/ @2 w ]idelay write wrt8a at 0 % t, k) \ W! e( L
idelay read rd8a at 2243 ?: R- ^ E6 m" Y2 @$ P
idelay write wrt9a at 225
7 z& i; k, K) B/ Q0 Midelay read rd9a at 780
( R1 h, B( e- @4 \idelay write wrt10a at 781 % I, u' l; B, z: R, R
idelay read rd10a at 1221; a7 }+ f4 J/ F6 E8 t) @
idelay write wrt11a at 1222
6 M! }& F8 z- oidelay read rd11a at 1562
- {. t5 O, k8 r) b
T9 N6 A6 e4 P; r/ {9 B; right : {. i8 [1 c- g9 y+ P3 b2 v
idelay write wrt8b at 1563
5 p: p. } A$ r" ?' ~4 W3 a$ Fidelay read rd8b at 1811
- H# h6 J" F5 ^: d( }% i- a, Y$ Sidelay write wrt9b at 1812 % ]% W4 z7 S% }( v4 \
idelay read rd9b at 2390% [+ G9 P0 z9 e; Q2 p2 |' E/ ]
idelay write wrt10b at 2391 5 _0 z! b H) D& z. z! H& [$ H
idelay read rd10b at 2854
) N, k( W8 J( K8 z1 Eidelay write wrt11b at 2855 0 Z, \. |( b. C( p" U" I# C r
idelay read rd11b at 3218
/ F7 u0 t4 S [, M$ |( Q* U
5 a. |: m7 k, m) t* M; input level% j0 w& W; H2 s3 y; z' M) Z
macs ina, 0, in1, input_level ; default 0.5* S; Z5 _: I; ], d" l4 d8 I
macs inb, 0, in2, input_level
6 B( `$ z; |7 R+ G; e( L; y# L, r2 M! c' ~* w
; add early reflections. z. x; i1 g% T& z
; lexicon 480l, medium hall. [1 V( i" [2 U" e) ?/ U
; left
* Z& y2 X/ s: K& nmacs wrt12a, ina, rd19a, 0.2* Z: |5 n+ k2 Q- }! { w0 |
macs ga, 0, rd12a,-0.272302037( t4 o M3 ], f
macs ga, ga, rd13a,-0.197265388( k Q. F/ }: p+ G
macs ga, ga, rd14a,-0.319926998
2 u* E: x0 f" J1 E" A0 fmacs ga, ga, rd15a, 0.153126688
f/ s) L. n7 M: {% J7 \macs ga, ga, rd16a,-0.171810971 a- X7 E5 g( q- S* _9 J
macs ga, ga, rd17a, 0.489836215; }& L& q% b" l3 m. j: h. M
macs ga, ga, rd18a,-0.120240532% B8 L Z& R M/ G% w& K
macs ga, ga, rd19a, 0.195007309
( |" b- Y" s4 Z) X w/ n- r2 q: G% M3 v$ m: |+ o
; right
) G7 z1 r5 b+ ?3 C0 I4 v, Mmacs wrt12b, inb, rd19b, 0.2
9 [, d) h4 C4 V4 C7 H4 d* i; Kmacs gb, 0, rd12b,-0.333553451% N1 A1 {$ K1 q, i+ T* w3 b
macs gb, gb, rd13b,-0.20098583
) v) \/ u7 c! Y( k) A; imacs gb, gb, rd14b, 0.345275242- K5 f& f& @' c& d" ]( ?
macs gb, gb, rd15b,-0.333553451# W. ~- F; }% F3 k( n$ e$ C
macs gb, gb, rd16b, 0.163367416
$ I u% D' e! N" Imacs gb, gb, rd17b, 0.215360196
! D8 Y. O. f5 F. C7 xmacs gb, gb, rd18b,-0.208048907& c* w# C, Q0 K! ?3 Z
macs gb, gb, rd19b, 0.540960355
) n: o1 X( E, j. Z, q% [9 h q, |0 S. x
4 v. G9 D& K" {; ~/ J) O; early reflections level. A1 K# G7 W2 S, H4 M
macs ga, 0, ga, early_level
- @9 I9 w# U! g# Fmacs gb, 0, gb, early_level
# W8 K; f! x6 J: i) A: u K6 l
; late input + early reflections 3 U/ n+ q% O1 C8 ^6 k) o' e4 h
macs ina, ina, ga, 0.5
4 N" n9 O* U( E4 z6 Zmacs inb, inb, gb, 0.5; c1 y& S0 ~( F# S/ l8 m* \
1 T; I2 [; D& v/ X1 F& s
; trim sliders( |) z. h# W3 {0 e. L6 _
log f, late_decay, 0x3, 0 ; logaritmic decay fader5 w+ O( U0 B7 r# M6 K% o g; l( k
# P# f* \2 G# x7 a4 N0 ? X
; 8 delay lines (comb filters with lowpass damping)' Z& R) v# `, r2 J9 Q1 h: M, G& ~
; left
$ Z ~6 `* I! w0 V3 y# pmacs wrt0a, ina, a0a, f ; decay set to ( Q$ i3 G. T/ R$ d, n
interp a0a, a0a, late_damp, rd0a ; lp damping set to
, v" s. G! V+ J% q% X6 Ymacs wrt1a, ina, a1a, f
+ r3 @# _4 z. |8 c minterp a1a, a1a, late_damp, rd1a
5 c' N) _7 @+ ]0 D* ^ V$ b- {macs wrt2a, ina, a2a, f
- N7 R$ B# h' e6 Binterp a2a, a2a, late_damp, rd2a; A8 |% z7 \# o+ L d
macs wrt3a, ina, a3a, f
; L0 J/ x7 x5 C2 s9 @7 t% Rinterp a3a, a3a, late_damp, rd3a5 P, H* [- a8 y) Q5 p# }
macs wrt4a, ina, a4a, f" l, t- `% m0 k8 v
interp a4a, a4a, late_damp, rd4a : ~, K# Q' k! X, z' q
macs wrt5a, ina, a5a, f
$ k& h* H% o1 N! w" l. {8 H# tinterp a5a, a5a, late_damp, rd5a
5 H, G$ N# I& v& U& Mmacs wrt6a, ina, a6a, f
8 v4 u* u( s. X3 g; P2 q; X2 Finterp a6a, a6a, late_damp, rd6a & ^, `+ I' |- t) [2 B: b
macs wrt7a, ina, a7a, f6 Q* x- I8 E+ M9 j S1 }% \2 a( D
interp a7a, a7a, late_damp, rd7a
/ Z0 f6 p9 i( S6 J$ k% d
0 d5 m4 Y. L6 ?( O; right $ e7 U, i7 H {% n
macs wrt0b, inb, a0b, f ; decay set to 4 Q. z$ Q8 l, Y, }0 [: d( i; N8 D
interp a0b, a0b, late_damp, rd0b ; lp damping set to
2 K, r9 T" S6 k7 nmacs wrt1b, inb, a1b, f3 R0 z! K. o/ d1 @
interp a1b, a1b, late_damp, rd1b
8 m! m O' i6 l+ `( |: U; s% w6 qmacs wrt2b, inb, a2b, f
8 w) G b' _! x& yinterp a2b, a2b, late_damp, rd2b. m; {' {+ `* S! v' z
macs wrt3b, inb, a3b, f
t. Y d& k( Q# l- Vinterp a3b, a3b, late_damp, rd3b6 h3 L6 ~, V! A) I% }9 T2 ^7 [ F
macs wrt4b, inb, a4b, f% e+ c$ y, B* Q$ H# U% N+ b
interp a4b, a4b, late_damp, rd4b 8 M, m7 d2 _4 B; D7 _
macs wrt5b, inb, a5b, f
' k* A/ ]& U( ]interp a5b, a5b, late_damp, rd5b 0 C$ ~/ @3 P; o
macs wrt6b, inb, a6b, f
4 c1 Z, T3 ~3 g% zinterp a6b, a6b, late_damp, rd6b ; Z$ b. y2 ]( r; r$ {8 A* \
macs wrt7b, inb, a7b, f5 T- u O+ U0 o. X: L5 x8 _
interp a7b, a7b, late_damp, rd7b) v* _4 Z* n, W) L; u/ L
0 T/ C( |! ` H% R
; add & gain taps + |6 J0 |5 Y9 c! H) f+ c4 V. f- W
; left4 ^2 h9 T/ a6 G, D, ], ?
macs b1a, 0, a0a, 0.125; E9 x6 O8 n9 f' b
macs b1a, b1a, a1a, 0.125 ; post gain
8 ~6 m, d, B7 G& j I' Nmacs b1a, b1a, a2a, 0.125
5 R9 s* }0 {. gmacs b1a, b1a, a3a, 0.125 : c# ~7 w' G0 G9 g
macs b1a, b1a, a4a, 0.125: Y; o. q" K8 p; v
macs b1a, b1a, a5a, 0.125 & p8 Y5 Y$ }1 K( @: q( k z
macs b1a, b1a, a6a, 0.125
8 z( o. r/ ?! Z" w) d8 ~! Hmacs b1a, b1a, a7a, 0.125
+ t1 s1 G1 e( y0 `0 f 0 U0 T8 E7 m- N; N5 y6 V, A
; right
k! f, l; ]$ i) a5 X8 m* vmacs b1b, 0, a0b, 0.125" F; ~1 b! I$ R' F, T6 L
macs b1b, b1b, a1b, 0.125 ; post gain
9 |3 ?4 U6 z2 M( Emacs b1b, b1b, a2b, 0.125
) R* F# O9 Y# T( W" k; ^macs b1b, b1b, a3b, 0.125 ; I1 y6 X0 y# G1 ~1 K- s
macs b1b, b1b, a4b, 0.125
* J. X9 O; a( emacs b1b, b1b, a5b, 0.125 3 w( g2 F9 {9 F7 f& {
macs b1b, b1b, a6b, 0.125
W2 e$ r! e5 k* ~" y" l3 U7 Hmacs b1b, b1b, a7b, 0.125
+ \3 L9 a2 X d6 e+ ]
7 i- g. l% H ?$ n& T. a5 A; allpasses (fixed feedback), diffusor
: n7 m1 M5 P) ^8 J* a; left# _# ^9 ~ K3 ?8 Z0 ~. k/ h
macsn h, b1a, rd8a, ap_q ; ap 1
1 L+ l$ [! H- B- o! @macs wrt8a, h, 0, 0
% W; T& A# o$ hmacs d1a, rd8a, h, ap_q
5 m2 j2 a3 j/ i. ?/ Q* y 9 p: K* p) e+ A' \% ?+ H
macsn h, d1a, rd9a, ap_q ; ap 2
0 O& u. Q( z! Nmacs wrt9a, h, 0, 0
# v L% {0 ?1 U- |macs d2a, rd9a, h, ap_q 7 M& J) p) C* A( N
# V/ o: J. m) R( M! F
macsn h, d2a, rd10a, ap_q ; ap 3
1 d% s9 a( D' Rmacs wrt10a, h, 0, 0
. T/ I+ m) y4 J; F/ emacs d3a, rd10a, h, ap_q % }) B+ H4 u4 V4 A$ i
- q4 }: \ V9 n, T/ f% Imacsn h, d3a, rd11a, ap_q ; ap 4
9 C* Y. D8 s; q3 q( Kmacs wrt11a, h, 0, 0
% r3 V9 {% j0 T; B, T1 lmacs d4a, rd11a, h, ap_q + ` l; \7 i. x9 F/ b0 c- ~& `
# R8 |$ A" ?) l3 Y; right
1 J5 H1 p# V. F+ ?2 Fmacsn h, b1b, rd8b, ap_q ; ap 1- Q% _0 s9 s5 d) k. c9 ]7 n
macs wrt8b, h, 0, 0
+ w! M6 l0 Y: R* t2 dmacs d1b, rd8b, h, ap_q
* j3 z* k8 c! ^. k6 r; L2 ?; b+ i, e
2 c9 B; M- G' u) J& Amacsn h, d1b, rd9b, ap_q ; ap 2& x* s# Q- P4 p* {) N
macs wrt9b, h, 0, 0 ; ^; j5 D7 g; R8 o5 Z0 E4 B
macs d2b, rd9b, h, ap_q 4 `' i' m( \, e3 I2 F6 i$ R3 v+ m
5 D8 s3 x5 z5 {macsn h, d2b, rd10b, ap_q ; ap 3
+ H( z& Y0 `$ v( Hmacs wrt10b, h, 0, 0 2 A0 e% w$ K$ e: Y
macs d3b, rd10b, h, ap_q
+ \* H0 y) N" P! D; l! H1 p* S
' C4 F4 o! T ^& Q9 b" S# ` t" Cmacsn h, d3b, rd11b, ap_q ; ap 4$ t; m2 R1 c7 M# x' Q P- L/ f
macs wrt11b, h, 0, 0 " s+ ^% v# L5 Y% o1 C% B4 z+ g* S
macs d4b, rd11b, h, ap_q f6 p6 x( w! q7 D
. {) H3 j* x) J* m: p0 s, P$ k; late reflections level b3 h8 B$ a: W5 V6 l6 s' T/ p
macs d4a, 0, d4a, late_level 1 m5 m5 d! q8 T" P8 n7 H
macs d4b, 0, d4b, late_level6 Z- G3 l" V9 ], L# X
8 O! b: v, q& r- I: s; mix late & early reflections9 X# B* o$ ^, i8 O0 _: _8 K
macs d4a, d4a, ga, 16 Z( D, z' R) A9 H5 S4 X* F
macs d4b, d4b, gb, 1
. }% C7 f, h, O& t% e: p' m2 k
$ J7 P$ P* v" W; lowpass
. J' M8 p! d9 d' ]; left
5 v$ n' g% T% c4 Y) | ymacs d4a, d4a, ea, lp_q ; q
! j: }5 U: D; V1 {0 C" linterp ea, ea, lp_cut, d4a ; cutoff 7 j% p( J9 q5 ^1 x6 K: i% C- a( x
# B) Z% ?& h, d: H# ^3 ?- T; right
+ B8 [* y0 H0 p! G4 p; Y* imacs d4b, d4b, eb, lp_q ; q
, A, Q; }) f+ A1 H. p# h0 Hinterp eb, eb, lp_cut, d4b ; cutoff 1 T* X3 @0 \! _; ]) P2 U
3 z5 t% x# @% T" _
; output mix6 u5 ^2 z# X1 x' G6 p
interp out1, in1, dry_wet, ea( j/ Z0 v9 i1 S# Z) M3 d0 j _
interp out2, in2, dry_wet, eb
+ w& p" y; T$ K. ]* ?7 D; X. U6 z$ G9 K1 P/ [! _
end |
|
IP卡
狗仔卡
发表于 2009-7-24 12:54
QQ好友和群
收藏
分享
好贴
烂贴
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
