|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载 O. F, k$ q6 `% g, ~' U- `" l
- ~: Z% E4 g" v, x/ `9 j& C$ o8 b5 r' Q+ }
9 \& l) K/ A4 r& Q7 Oname "superspace mh v1.0";" n$ ~6 ^4 Z$ A$ C
copyright "2009. stylus, http://stylus.siteboard.de"& J* d h7 W& q1 N8 V/ }
created ""
! U; k8 M H# @. p/ jengine "kX";
0 g( a. o j7 a0 K- k2 w) Fcomment "high end true stereo reverb, medium hall";
2 r' O7 n% @& x6 U# k- _' hguid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";; e# Y, W$ Z) e% A0 w& e
2 N( I- f) U8 g7 v; late reverb algorithm from freeverb by "Jezar at Dreampoint"+ U6 }% a4 R {9 z( s) t# i2 R7 P) @
; early reflections from impulse response "lexicon 480l"
4 Z' u7 ^) R; F2 X; Y7 Y6 w; true stereo+ |/ X4 b4 {/ I6 r$ E
- i2 y" @1 J9 T
; registers3 Y1 p9 R# q1 Y+ ]4 I7 ]
input in1, in2" ?" B/ K) U* |4 z) T
output out1, out2
2 U) N% z" v( ]static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
x# o* O7 f( A: U, s* vstatic a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb: a. I O! ^+ I
static ap_q=0.5, f, ga, gb, h, ina, inb
6 ~+ e/ }% z; W0 T7 \% Q" k% gcontrol input_level=0.7) b$ x, p+ x3 }2 a
control early_level=0.25
8 B. [, [: _, j9 mcontrol late_decay=0.85* ?9 j2 O1 |: C3 O0 U' M2 j+ x: K
control late_damp=0.95
) c1 @" [# P: S |- U" x' v; m& jcontrol late_level=0.75
2 \3 ?4 d/ }: y, k7 ~& ycontrol lp_cut=1
$ [* u" G M) x7 @# c$ m O! xcontrol lp_q=0.3
9 q, F3 B# {& P6 {+ ~control dry_wet=0.758 q7 e' j. O+ j' D7 e$ c7 `
7 o `& i/ F$ d9 j9 m$ I
xtramsize 27454
! c$ @1 F# N9 c1 H2 h5 Y* {
0 k( x6 `) F# s4 v; late reflections iir4 E' A% d/ L3 P8 i% s
; left C$ w- G( ^; C4 X3 |8 w
xdelay write wrt0a at 0 7 {" G/ h4 H. @, V& Z9 i
xdelay read rd0a at 1556
# z, M* O7 c3 O- E$ y0 d& qxdelay write wrt1a at 1557
5 [, ^# ]# ~0 z. \xdelay read rd1a at 3173
% z7 v3 K" j/ v7 \: }& ]xdelay write wrt2a at 3174
& ]1 e3 f0 V) H( t! h1 Mxdelay read rd2a at 4664( L/ {( `$ p ]9 g4 J% b
xdelay write wrt3a at 4665 % S; Q" D$ ] z3 n8 Q' L
xdelay read rd3a at 6086
. H7 B8 c; a. b8 u( R9 p' _" vxdelay write wrt4a at 6087
9 P/ e5 b ?4 e: j- oxdelay read rd4a at 7363) S! m8 ^- \ U3 ~% x
xdelay write wrt5a at 7364
5 Z" q" R1 G. D% Z9 S4 y* o5 J+ h hxdelay read rd5a at 8719. T' u, ?3 M( x1 n2 V/ l- S
xdelay write wrt6a at 8720
7 i& ?: k4 V T- _8 E- _xdelay read rd6a at 9907
0 W( A/ [ v- g1 Q# gxdelay write wrt7a at 9908 / \- |$ q+ }& k9 y2 h
xdelay read rd7a at 11023* Z) o. U; G- A) R, f7 Y
, b' x4 h+ [# {; E- r
; right
! P) r& U5 d3 Uxdelay write wrt0b at 11024 6 J; a7 I/ ^0 D# c* D* z( p1 }
xdelay read rd0b at 12603
. ?! L0 s+ r* x% }xdelay write wrt1b at 12604 $ t2 h) a; \( U/ s# C. r9 P
xdelay read rd1b at 14243# C, P3 z5 N" V: p) ?/ S
xdelay write wrt2b at 14244 ^0 z" \: i/ U
xdelay read rd2b at 15757
3 p: ]6 b2 n/ Z" Fxdelay write wrt3b at 15758
1 F7 m$ c1 U8 T6 @" {xdelay read rd3b at 17202
0 h% @- ?* w5 c! hxdelay write wrt4b at 17203 ; e0 @& g" U0 d; t/ s0 T: Q9 ]
xdelay read rd4b at 18502+ Z- C+ S) h% Q5 q1 l3 B: j
xdelay write wrt5b at 18503
! S$ G7 ?" A% zxdelay read rd5b at 198819 g9 R. Q% y9 ]
xdelay write wrt6b at 19882 ( V/ @8 i% Z1 X* F* f8 w
xdelay read rd6b at 21092
0 V" P1 i4 N3 `) x! mxdelay write wrt7b at 21093 / @& {: t4 l6 M3 u N4 T0 \
xdelay read rd7b at 222315 e$ v: D" ?2 i7 J {1 R: H; |
) x7 c4 X0 W5 o7 J! T$ K! a- o( n; lexicon 480l/ medium hall/ first 8 peaks
% j) _4 E+ X& T. m) W) p; early reflections iir/fir ' W/ ^ n& y/ R n! F1 f
; left ) S) J; M/ ]% e0 B" E7 e/ g, p1 @
xdelay write wrt12a at 22232
% h' L, e6 ]) \& h2 p4 P9 }, I- h/ Exdelay read rd12a at 23566
/ f5 f3 G4 X$ P. V( X4 Cxdelay read rd13a at 23850
8 }6 G. n( V7 Y$ e- E( {xdelay read rd14a at 24033; s4 G9 V* m u! u; S
xdelay read rd15a at 24134 N2 B a, M% x4 F3 C Z9 u% Y
xdelay read rd16a at 24317 f+ V( w; S# D! d# ?4 q) f
xdelay read rd17a at 243764 M/ l5 U. ? E0 C
xdelay read rd18a at 24418
( I8 ?9 P J# a9 ~3 h Kxdelay read rd19a at 245007 ^ I2 o8 E& ], \9 J) f# D
' R4 L% M# y% Q
; right. f5 `9 {( w7 i7 A
xdelay write wrt12b at 24501
" N9 i" O Q, A8 N8 sxdelay read rd12b at 26715
, c' V7 ^' Q2 u' h; b4 B1 A+ Axdelay read rd13b at 26961
, ^% x( f7 t3 C- C' ?: Rxdelay read rd14b at 269847 x4 V; ]8 D% H: `/ w$ K
xdelay read rd15b at 27101
6 c# V' ^3 G6 F5 @/ @/ Y% jxdelay read rd16b at 27207! O B( ~& [0 Y; n+ n; k
xdelay read rd17b at 27268
' }6 l% h8 L4 e0 fxdelay read rd18b at 27347. u4 j; t, _( f' A" k4 C
xdelay read rd19b at 27454
" v i1 b+ G8 C* b L% f0 r& N& e+ D$ N1 e9 o/ R' k
$ Q$ @4 I# n! } e! Eitramsize 3218
2 q V8 R3 ^. S+ h! x3 h1 K% q! R; allpasses iir
1 A. `+ I, E+ q3 a; left 6 G$ Z8 V! v; W5 v) u: X
idelay write wrt8a at 0 9 [. w7 h0 F5 u+ |/ t
idelay read rd8a at 224
5 I" k7 m/ t l/ Q$ B+ z5 |, T; ?idelay write wrt9a at 225
1 [8 o1 s1 y q, J) k* ^0 yidelay read rd9a at 780
- _7 Y% c5 ]' [idelay write wrt10a at 781 2 r2 N! v# p; t% a
idelay read rd10a at 12219 \) p' x3 e9 d z
idelay write wrt11a at 1222 * a. K7 L' e0 D& h4 N, a0 a
idelay read rd11a at 1562
. K* y; p/ k x) e/ b# N8 o0 s D% w% u; S* w! {) F
; right % C) r& W6 j7 ~; `2 w
idelay write wrt8b at 1563 / l, Z0 ~/ X1 a& a9 c- b7 v" q J8 W2 C
idelay read rd8b at 18118 @$ d- H" n) ?. O
idelay write wrt9b at 1812
* w8 ^' s& B1 Hidelay read rd9b at 2390
+ p7 S; b+ _9 b* k1 i; Kidelay write wrt10b at 2391
$ ~5 d( F& k" A4 Xidelay read rd10b at 2854
7 P8 `8 s+ V% @% f& v7 z. e Gidelay write wrt11b at 2855
$ g+ b7 N2 Z$ O1 I. gidelay read rd11b at 3218* F/ k- F" w# {4 Q1 x- H7 Y; s
8 i% F5 m8 @/ `
; input level( P- F$ I) D" u' u) k
macs ina, 0, in1, input_level ; default 0.5
: U4 F5 x! v5 a2 z& F+ Mmacs inb, 0, in2, input_level
& S. y' Z- V# a2 |- b. |
% |' b- v6 f4 N- `, O; add early reflections
7 u* ~. u( x1 N3 o6 G% [% [; lexicon 480l, medium hall' t0 v- j# d0 X& z
; left
. Z% ]+ B# z2 Umacs wrt12a, ina, rd19a, 0.2! z6 G9 ~6 d$ y$ ~' y& P; w
macs ga, 0, rd12a,-0.2723020374 \, ]8 N$ r0 S' _* s
macs ga, ga, rd13a,-0.1972653884 w" N' ?# i4 L; X
macs ga, ga, rd14a,-0.319926998
0 o# j | O M9 umacs ga, ga, rd15a, 0.153126688$ `3 ], X1 O# a0 t8 x
macs ga, ga, rd16a,-0.17181097
+ {1 O e. }2 a( v, mmacs ga, ga, rd17a, 0.489836215
$ H: ?7 i2 Y7 Z8 u- Mmacs ga, ga, rd18a,-0.1202405324 D- _% L- t4 N3 B( n5 \. J
macs ga, ga, rd19a, 0.195007309
# Z& N$ Z! f" x# e$ `, M7 X7 { }5 w4 p* p/ J
; right- H, G- h8 q4 m) X' g: d4 _4 D
macs wrt12b, inb, rd19b, 0.2
& F6 \% J0 b0 Zmacs gb, 0, rd12b,-0.333553451
. @3 O" {5 c( {& A7 p1 y6 a7 umacs gb, gb, rd13b,-0.200985839 c% P/ o, ~2 B8 K
macs gb, gb, rd14b, 0.345275242
* Z. o }% H: b) L( omacs gb, gb, rd15b,-0.3335534516 [0 w% H+ x4 N! o3 |# Y
macs gb, gb, rd16b, 0.163367416
5 J9 c5 ^/ j" O) U9 imacs gb, gb, rd17b, 0.215360196# F+ z8 e* p" t% D. y
macs gb, gb, rd18b,-0.208048907
; y: ^' a+ r, N. \3 ]5 G% q: Mmacs gb, gb, rd19b, 0.5409603553 s# ], y9 x# I3 P2 p
0 t1 g, h) x( y" A( I! |* g6 {& U4 u& G; early reflections level
* U' A" T/ |0 y2 Qmacs ga, 0, ga, early_level - N7 E$ e4 K& H9 B2 C6 M3 ~( J7 H) a- G
macs gb, 0, gb, early_level
/ p- \& ^) f( \+ N0 R9 Z* k' T J' D S5 w- z' b% X' b
; late input + early reflections
5 g F2 K1 t' tmacs ina, ina, ga, 0.5
. I; g. o6 o y3 {7 b Y3 F- jmacs inb, inb, gb, 0.5
. r$ ~: w7 r: h) e
: Y4 p B+ C# Q" C* L; trim sliders
- [0 o Z4 Q9 m& X( Flog f, late_decay, 0x3, 0 ; logaritmic decay fader
) V: A6 Z; d( O' Q6 @$ { . g& H p D! r6 X5 Z/ |
; 8 delay lines (comb filters with lowpass damping)
0 C6 T R* l# C- Y; left
1 `, m( J& B& ]1 R' u# Wmacs wrt0a, ina, a0a, f ; decay set to
; {, e8 \2 z0 \! Jinterp a0a, a0a, late_damp, rd0a ; lp damping set to : {; e3 `8 F, _9 d+ ^
macs wrt1a, ina, a1a, f. m7 j9 o8 @# v% `1 w" l L
interp a1a, a1a, late_damp, rd1a
! W3 |% @. R4 E7 D" dmacs wrt2a, ina, a2a, f7 X, Z0 W9 w2 [, }: z) ]# g+ l
interp a2a, a2a, late_damp, rd2a
" ]* P2 g8 p1 \- X6 Q( zmacs wrt3a, ina, a3a, f ; `' K1 H [: {4 E1 _. t1 Y
interp a3a, a3a, late_damp, rd3a
# H- d$ @. Z. P' v0 F! Zmacs wrt4a, ina, a4a, f
5 M0 y: B( g, W+ M4 V8 Zinterp a4a, a4a, late_damp, rd4a
3 B4 ^. e% { E9 j! T' h6 }5 |" b# Lmacs wrt5a, ina, a5a, f
0 ]- v$ w( d+ einterp a5a, a5a, late_damp, rd5a + l% L9 q! R& L: C" ]
macs wrt6a, ina, a6a, f4 `! r& l: b# ^' v4 c
interp a6a, a6a, late_damp, rd6a
- ~% F5 Q( i* h- }0 pmacs wrt7a, ina, a7a, f
$ `$ G: g# H. y) }interp a7a, a7a, late_damp, rd7a : U9 d( N6 ^! z" p3 m, Q
8 E& u$ n+ X7 q) ]9 u
; right
: K/ |; N* J* qmacs wrt0b, inb, a0b, f ; decay set to 3 H3 P: T% D% Q5 p$ |0 Z
interp a0b, a0b, late_damp, rd0b ; lp damping set to
# r3 U- `2 o% F6 L9 E. ^macs wrt1b, inb, a1b, f# z0 V4 M0 F7 C! K2 N
interp a1b, a1b, late_damp, rd1b, N. Y+ n9 H/ h% q5 h1 Y
macs wrt2b, inb, a2b, f
- g8 l7 F) |, V4 G9 Ainterp a2b, a2b, late_damp, rd2b
6 S3 G6 G$ C. s* x1 Tmacs wrt3b, inb, a3b, f
8 F& ~! H4 a! R8 ninterp a3b, a3b, late_damp, rd3b
1 r$ R- u% b( ]macs wrt4b, inb, a4b, f
6 B& k( P" x0 r: Z* vinterp a4b, a4b, late_damp, rd4b
0 q1 c0 g, }9 z6 J; Gmacs wrt5b, inb, a5b, f
- s( U: K+ C0 A9 X; E0 @interp a5b, a5b, late_damp, rd5b
2 q( K. n' B- d1 n- t9 w( Gmacs wrt6b, inb, a6b, f
( D1 r' R6 b& F5 B) j7 G1 zinterp a6b, a6b, late_damp, rd6b % h; M9 D0 ^8 U: G. B
macs wrt7b, inb, a7b, f
: C! a6 Z# j8 Dinterp a7b, a7b, late_damp, rd7b
/ }- ]7 k4 ^/ O- q! T* a
& S6 }# _# p J6 k; d9 i2 e& ?; add & gain taps
/ o! ~. h& q! R$ s; K; left o& y5 ?* ?6 y) b$ u
macs b1a, 0, a0a, 0.125
! `3 p$ J1 o0 O; k; H4 c+ Wmacs b1a, b1a, a1a, 0.125 ; post gain. O! z* r/ X0 `$ n I$ I9 I
macs b1a, b1a, a2a, 0.125
% ?! P, ^9 }$ B" _4 A$ Emacs b1a, b1a, a3a, 0.125 / M0 I2 v* H! H( {5 X
macs b1a, b1a, a4a, 0.125! v$ i0 q! g3 X2 [, N) u' X
macs b1a, b1a, a5a, 0.125
7 Z3 `, o! Q' t& g) s! J' qmacs b1a, b1a, a6a, 0.125
! i9 v/ c/ M3 N! ^7 f6 Omacs b1a, b1a, a7a, 0.125
' O N' g( w7 Z/ R
. a) W: j' R* ?. v2 K/ _; right8 [* s& f9 T( M S# y6 P% p
macs b1b, 0, a0b, 0.1256 i& e7 c5 t3 M6 H0 H" k
macs b1b, b1b, a1b, 0.125 ; post gain
- r# \7 I( H* j5 l# ]5 t9 E, U xmacs b1b, b1b, a2b, 0.125
- A6 Z8 H3 t7 M% I! x( v: ]1 e nmacs b1b, b1b, a3b, 0.125
( y0 z' E2 Y% i- G) L- Zmacs b1b, b1b, a4b, 0.125
/ f. t. E, i" u7 g: a6 Emacs b1b, b1b, a5b, 0.125
% H" @/ @' m: f1 v; H6 T( nmacs b1b, b1b, a6b, 0.1257 b1 b4 ?; \( u8 H
macs b1b, b1b, a7b, 0.125; h: T" g3 O a. Q1 N" t
" {6 O% M/ q, B
; allpasses (fixed feedback), diffusor6 y& b/ m; L9 f
; left
v/ g! R, ^4 J. e: Qmacsn h, b1a, rd8a, ap_q ; ap 1 D& q% y+ Y) m+ `% @
macs wrt8a, h, 0, 0
. T; x3 ?& i6 e% pmacs d1a, rd8a, h, ap_q . i) i7 L5 j3 Q* e/ d2 Z
2 X ?# @+ y) A) \+ N
macsn h, d1a, rd9a, ap_q ; ap 2# t1 Q2 l# p8 O* A
macs wrt9a, h, 0, 0
# |! V- H8 K$ j& C4 j- Rmacs d2a, rd9a, h, ap_q 9 W# M2 |: p l5 m/ M/ v
( V0 y$ y4 c" d: ?. i6 i! Q) F
macsn h, d2a, rd10a, ap_q ; ap 3
4 `# @3 ]6 f. C( x& z0 Kmacs wrt10a, h, 0, 0
8 b! v$ {2 f) J9 i% Mmacs d3a, rd10a, h, ap_q / p8 N' u/ b( w: E1 m
# @! C G8 j8 U! X' t+ |$ ^2 N2 X2 nmacsn h, d3a, rd11a, ap_q ; ap 4: [8 _; T' T8 B7 x' G
macs wrt11a, h, 0, 0
& y3 ?7 u- h# Mmacs d4a, rd11a, h, ap_q
" W, J; X7 |3 T/ D
6 Q/ T2 u& ^+ N9 r; right( g* q6 [6 A4 j3 ]' K$ k. }
macsn h, b1b, rd8b, ap_q ; ap 1; z$ |! ?9 L- k& q3 c( T% y0 ^
macs wrt8b, h, 0, 0 : Z+ ?4 y% ]2 S$ u1 t& v
macs d1b, rd8b, h, ap_q
2 v Z9 w7 k+ ?+ C& b0 X6 \
2 S& v2 ~$ k" }6 c, X$ w- [% ?macsn h, d1b, rd9b, ap_q ; ap 2
( c. _- l6 b; h7 a& S" umacs wrt9b, h, 0, 0 2 j, I0 A$ {8 {) s3 o1 D- z) F
macs d2b, rd9b, h, ap_q
1 g$ `. }. a# [( i, A9 h
% C5 h) c, L1 K' }) amacsn h, d2b, rd10b, ap_q ; ap 3- \* _6 ]3 d( U
macs wrt10b, h, 0, 0 ! Z$ @9 p* \+ L/ X7 Z* g: q- I
macs d3b, rd10b, h, ap_q + M+ ~+ o2 c2 F+ }
A3 ~# e* c; |: ]' m+ Tmacsn h, d3b, rd11b, ap_q ; ap 4
7 N. o5 n7 n: e) S9 Amacs wrt11b, h, 0, 0 / y' J. [: d+ S9 ] H" k
macs d4b, rd11b, h, ap_q9 d$ [. n `+ _# A2 Y0 p
+ Z. q/ i1 L) X- L' k
; late reflections level$ p) O$ O( j+ d) Q
macs d4a, 0, d4a, late_level . I3 [0 e1 [2 _ a, N! J
macs d4b, 0, d4b, late_level
' O8 l1 z4 c& B/ a
5 E9 o3 ?3 w# X; mix late & early reflections
: v& h5 ~1 v# P0 k6 ^$ Tmacs d4a, d4a, ga, 1
+ g9 S2 m' {" t5 b: G0 Dmacs d4b, d4b, gb, 1' V0 N5 B: [( W- y3 w
* p8 O6 i/ O$ J0 `; lowpass
% e$ X1 D& j7 c) L- O; left
; ^$ B& ?4 R+ ~macs d4a, d4a, ea, lp_q ; q- j* Y9 Q$ B: G; W
interp ea, ea, lp_cut, d4a ; cutoff
+ f0 X9 v- H+ G. a
% f3 H8 j- ~ `# f& F; right
% W; F0 _. L+ p9 S. @/ i jmacs d4b, d4b, eb, lp_q ; q! Y7 {( O/ \3 O, K
interp eb, eb, lp_cut, d4b ; cutoff
4 A& _2 y( R: b) Q! B, @ : M- `4 t0 P( ?& B3 P
; output mix4 Q9 u0 W m1 z; }* L
interp out1, in1, dry_wet, ea
( }3 C* m0 V, v6 @. ginterp out2, in2, dry_wet, eb
# @1 W. E0 ?2 B( ~
& y' a* F7 l! I' H Pend |
|
IP卡
狗仔卡
发表于 2009-7-24 12:54
QQ好友和群
收藏
分享
好贴
烂贴
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
