|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载& S6 U, O8 g. ?
7 u/ H- L% ^6 P: G. h
, s2 M" N$ m. H% U. {$ h$ U# g I! F) x" C* r# |( D4 p
name "superspace mh v1.0";
: w% a6 @, q/ B& z, T6 X$ ]( ^copyright "2009. stylus, http://stylus.siteboard.de"9 s6 w7 T+ e; ^) `' \2 C
created ""$ ~7 }! ?5 y6 M% }: O: [
engine "kX"; I- V2 H# n# b; X- ?
comment "high end true stereo reverb, medium hall";
- ? p2 j7 `* {guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";. |7 }. V! H0 W, P* F6 c
) t+ e' v1 K9 o: n0 |; late reverb algorithm from freeverb by "Jezar at Dreampoint"& G- a! i2 B( x
; early reflections from impulse response "lexicon 480l" & A8 ]5 O2 u% g7 Y0 P
; true stereo& F" \# {# n) ^+ s- M9 S
: e1 a1 |" w1 ]8 {" T' k
; registers
+ H3 M1 H0 U9 B! finput in1, in2# t* y, o) N% Y, l! F" i0 i
output out1, out2
4 I5 _5 y7 R/ O% u2 F5 Istatic a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
) q) g$ M& j$ X+ R' rstatic a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
' y! M4 \7 Y7 l) n' zstatic ap_q=0.5, f, ga, gb, h, ina, inb; |' |$ E$ _& u: O4 H
control input_level=0.7
7 M# R4 n/ D& E" hcontrol early_level=0.25( l) h/ C: J; w7 u: I# Q! M& Z' _0 f
control late_decay=0.85
4 ~# }& V" X3 z5 o! t/ b7 G# ]control late_damp=0.95
5 ^& P$ f* P w- _6 Econtrol late_level=0.75
+ h# ^% r- ]' B7 ~" ^. p' ocontrol lp_cut=1
I. S/ _! B( p! X6 B& vcontrol lp_q=0.3, T* f% g: q, h% Z
control dry_wet=0.75
+ u* S* @/ p5 \
' B4 S: X9 d: o) axtramsize 27454
" L6 V: \; T) x0 L( V* l! u) {; u( r1 F L# s$ ]2 @
; late reflections iir
: f& a& n" o' s5 `% L. J; left
8 L3 H( [; v$ d" Q* h9 Z8 Kxdelay write wrt0a at 0 2 p1 w! u7 U4 N6 ]% [! W8 o) J
xdelay read rd0a at 1556/ Q7 r1 r. ^' m8 c1 y
xdelay write wrt1a at 1557 8 {# T" j# j; V9 D- b2 w, m( y
xdelay read rd1a at 3173
8 C* D- Y q! lxdelay write wrt2a at 3174
- }1 u U- k* txdelay read rd2a at 46640 t& n" L" j a) _' \" X) x
xdelay write wrt3a at 4665
/ O* R% q. G7 s2 n2 b. d8 f3 q$ dxdelay read rd3a at 6086
8 F& b ]) e1 G( [# Y3 Y* l* P" A/ Fxdelay write wrt4a at 6087 1 b# Q) d- b: w* o* {' Q
xdelay read rd4a at 7363# ~' B2 d4 d# g' t! d& D
xdelay write wrt5a at 7364
: ]4 [3 |- f: V7 _xdelay read rd5a at 8719$ p( E* ]5 M' a) f! [$ q
xdelay write wrt6a at 8720 9 u' d+ p: {$ O; u5 S% x
xdelay read rd6a at 99077 w: ^# o9 O6 P9 }- _
xdelay write wrt7a at 9908
8 D+ a9 E; e) k, k$ ~+ axdelay read rd7a at 11023
6 c2 V) E: v) G2 @6 h! q0 P4 f5 \( {( {0 @9 M8 M( f
; right
( Z. ]- Z" I4 F- @* D9 A1 V$ {2 ~$ uxdelay write wrt0b at 11024
: L% B) G+ D* L/ z6 hxdelay read rd0b at 126037 b& x$ @; r3 w+ }! T9 e
xdelay write wrt1b at 12604 0 Y x* o' ^4 @% S; n
xdelay read rd1b at 14243
, x% H8 h7 L% u' g& kxdelay write wrt2b at 14244 4 l& e& p! g: G9 Q" _
xdelay read rd2b at 15757
! Y% n7 ] @/ {% |" }( Hxdelay write wrt3b at 15758 / k/ @" t; M* {1 S C1 _; m
xdelay read rd3b at 17202* W/ p* z9 n- ~: L3 K& a
xdelay write wrt4b at 17203 1 a+ J9 U* L- e8 M; l0 C
xdelay read rd4b at 18502
+ W( f: i) U& ixdelay write wrt5b at 18503
1 N b2 i# |' O; V# [& Fxdelay read rd5b at 19881
: L8 `$ D. z, y) N, ~2 s* c2 j4 Jxdelay write wrt6b at 19882 0 y( o3 z! W% ~
xdelay read rd6b at 210927 ^; t2 x2 ~* Z7 R
xdelay write wrt7b at 21093
; e5 Y. g. X) {9 lxdelay read rd7b at 22231
* ?: L3 T" t+ p) N" k! f# d) @4 T9 {
; lexicon 480l/ medium hall/ first 8 peaks. r- Y; F6 ]" P$ _" q$ i! I
; early reflections iir/fir ; L$ W$ U7 X: s' K) G
; left 0 U% K9 J5 L, [& |3 a" C' _
xdelay write wrt12a at 22232
8 Q) s" L- P+ Y# Yxdelay read rd12a at 23566
% P8 `8 c) x {. U3 U( axdelay read rd13a at 238506 [* u1 g ]1 V5 D. M
xdelay read rd14a at 24033. G* \# Y1 `7 [# h* Y
xdelay read rd15a at 24134
) B \8 J; w/ b2 bxdelay read rd16a at 24317
' d& C& b( ]: j+ _4 L: Axdelay read rd17a at 24376
+ L3 J( D: o6 u% P' [6 z0 ? \8 hxdelay read rd18a at 24418
0 Y8 X% @% P$ K) s; Ixdelay read rd19a at 245001 M j- D0 g! N
# [$ N4 R7 i: Q* X; right
: B0 Y. W i9 x5 F1 uxdelay write wrt12b at 24501
$ [' w: O3 c2 v5 e& p, uxdelay read rd12b at 26715
9 x# \' a# F" z5 E9 c' ]xdelay read rd13b at 26961
' C9 C! \. G9 U7 o6 [8 \8 nxdelay read rd14b at 26984$ ]. ~. L) { m. b. |( G% l8 j
xdelay read rd15b at 27101
, c2 @' \5 ~, w) A& k: Rxdelay read rd16b at 27207
* Q0 B2 t) H* y# L# W/ [* S, Bxdelay read rd17b at 27268% [/ W" Y0 O2 J. U v1 z$ G9 ^ ~! z
xdelay read rd18b at 27347' `1 U: ?+ I2 i! {
xdelay read rd19b at 27454
- E$ b6 i! Q" U( d! r3 S0 ]0 O& D0 Y3 K
# H. C2 _% o; E+ B! _itramsize 3218 6 |. r4 B7 q. {% `
; allpasses iir
4 E9 A1 y8 J* `2 e0 g; left
3 E3 i2 S5 b& V3 j5 C& b4 W- {! Qidelay write wrt8a at 0
' `, j2 N$ q/ uidelay read rd8a at 224
m& n# F4 [0 m* U" A* _idelay write wrt9a at 225 ! t ]$ b% C: {" i' H- `
idelay read rd9a at 780
9 F: v3 {/ t% `* k0 Didelay write wrt10a at 781
, y4 Y5 t1 p& Qidelay read rd10a at 1221
- h7 [4 @5 `" X" hidelay write wrt11a at 1222
8 v7 X2 J/ p; g9 D* D. |idelay read rd11a at 1562' w; a; B( ~# M5 [
0 b/ x, X9 Z; l ]; l8 u; ~
; right ' Y( t7 n6 p6 L
idelay write wrt8b at 1563 ' g' [/ V: i! l
idelay read rd8b at 1811
9 D7 `7 Z K3 [8 M6 e9 H" ]idelay write wrt9b at 1812
8 l8 i. ]: e4 f1 bidelay read rd9b at 2390
8 s" I2 r$ d, ]" h0 V$ `: eidelay write wrt10b at 2391
" o" T7 D# ?; z0 ~' f& oidelay read rd10b at 2854 ~7 r/ y# F8 [9 b9 [
idelay write wrt11b at 2855
% ~1 R9 h$ V7 r9 L+ b# G, m5 W2 fidelay read rd11b at 3218
$ Z5 j% w8 f4 G
* T" j' F) \/ ?. u1 Q; input level9 G5 a& Q* c. {1 C3 M
macs ina, 0, in1, input_level ; default 0.5
9 a9 k1 V" Q5 z- G4 S1 nmacs inb, 0, in2, input_level6 j! E: T) q0 u8 L
' |+ @! d2 D s0 }# Y) a- d; add early reflections
; w) N, P8 |1 r8 Z! A2 ]; lexicon 480l, medium hall; b# N& ^7 j# N, w) _- V* ~ R7 t
; left
5 x: g3 }) Q, j$ m; Lmacs wrt12a, ina, rd19a, 0.2/ [4 S* m% d% N3 L I
macs ga, 0, rd12a,-0.272302037% D: X3 C1 F0 L! C3 V% ^( d
macs ga, ga, rd13a,-0.197265388
- ~# v& q* Z* L5 @macs ga, ga, rd14a,-0.319926998* Y$ m, A+ Y' n7 a, p$ p
macs ga, ga, rd15a, 0.153126688
6 l) m; d0 G$ x' A! F+ }! Omacs ga, ga, rd16a,-0.17181097
, o9 C1 ?+ b0 Fmacs ga, ga, rd17a, 0.489836215 O: B- ^% a* ?! M7 Z/ g
macs ga, ga, rd18a,-0.120240532
n4 E9 W, t; Smacs ga, ga, rd19a, 0.195007309
: W7 ~. S- Y- j( P9 r4 i- j# y/ c3 |* T# f+ c
; right% t& w& ?0 A' C# _. W% A
macs wrt12b, inb, rd19b, 0.2
& Y- m j( ^) t8 d% n5 Z3 U0 {5 @) omacs gb, 0, rd12b,-0.333553451 W$ O# ]; B) Z( o) y' Z3 Q
macs gb, gb, rd13b,-0.20098583
- |* E2 z# W# ]5 z3 c/ Smacs gb, gb, rd14b, 0.3452752424 H% f& @" y3 g Q* W2 [, ^: M6 f
macs gb, gb, rd15b,-0.333553451
9 c; [2 w& ?$ {3 y6 ~- m+ Zmacs gb, gb, rd16b, 0.163367416' P: |6 T$ k i! M- w
macs gb, gb, rd17b, 0.2153601969 p' C' E$ U+ s6 y2 A0 e
macs gb, gb, rd18b,-0.2080489073 K# @$ K ?, z6 {: F3 k* x! i
macs gb, gb, rd19b, 0.540960355/ k% ~. \1 r6 M3 A3 h
1 V: [: N$ L7 c- c. J( t) O
; early reflections level
0 W, Z# Z+ m8 y! E) [macs ga, 0, ga, early_level 1 i" z4 F6 w9 e( {7 y
macs gb, 0, gb, early_level5 M( u0 I! J- u5 b8 B; R# d! L: L
$ ?2 J( a7 t0 O; O) x6 t
; late input + early reflections 7 n9 \# R, ~, V0 I- Y$ B* z
macs ina, ina, ga, 0.5# t: P6 ]2 v' Z* s4 L6 n
macs inb, inb, gb, 0.5
% T$ ^" R8 u; Z4 t8 Q8 g. c& X
9 z6 g4 H: \8 O' Y6 n: Z; trim sliders; S D! M% k! \& T# I$ f) A
log f, late_decay, 0x3, 0 ; logaritmic decay fader
6 d& _5 E! n$ B
7 s) s- I3 Q* I7 H! X; 8 delay lines (comb filters with lowpass damping)/ [. h$ G% }4 F4 y( K1 p
; left
I5 Q" ]( G4 l, Nmacs wrt0a, ina, a0a, f ; decay set to
9 N1 V4 w0 ^; kinterp a0a, a0a, late_damp, rd0a ; lp damping set to
+ `+ @* H9 G6 a6 o% R3 Gmacs wrt1a, ina, a1a, f/ J1 a" U% o1 [- U, x. D- y) ] a. J6 g
interp a1a, a1a, late_damp, rd1a
4 T3 f6 K; g$ V* d" Hmacs wrt2a, ina, a2a, f& A4 V" U, J" s7 [- @2 _& E& Z! A
interp a2a, a2a, late_damp, rd2a0 e+ ~* X$ A0 g1 r7 L- B
macs wrt3a, ina, a3a, f 9 f2 j6 p: G& E/ [# D
interp a3a, a3a, late_damp, rd3a
) P. P4 I4 V2 M- |' |$ l; cmacs wrt4a, ina, a4a, f
* g& V+ m7 {) w5 J: ?% zinterp a4a, a4a, late_damp, rd4a 0 O% S4 y! t; ]5 a0 P: [7 g
macs wrt5a, ina, a5a, f
! \% s; S) \7 d- T7 s- S. u/ cinterp a5a, a5a, late_damp, rd5a
+ v1 t3 U9 x9 ?5 Xmacs wrt6a, ina, a6a, f
. g8 ?3 G& r8 h f0 T9 Ninterp a6a, a6a, late_damp, rd6a
2 @, [6 a: ]) A+ w+ |5 t6 Mmacs wrt7a, ina, a7a, f2 c; A4 r# R5 P# s2 g/ u( F
interp a7a, a7a, late_damp, rd7a ; _5 ^. Q4 a2 u M: } g! T
( \/ s0 v) F: E% M; right
$ c' M% s! T6 umacs wrt0b, inb, a0b, f ; decay set to
2 G- J7 \2 C6 {5 u6 M% Hinterp a0b, a0b, late_damp, rd0b ; lp damping set to 5 F4 y( }3 }4 L0 D- I
macs wrt1b, inb, a1b, f
: W" \, P' F1 z, v6 T& y; {5 ointerp a1b, a1b, late_damp, rd1b; X0 p, z# S; g/ q: O: v
macs wrt2b, inb, a2b, f* C1 X2 X# @" V& P2 b) X
interp a2b, a2b, late_damp, rd2b
0 E- a1 k2 K$ g$ d+ Tmacs wrt3b, inb, a3b, f
. {8 A( K" `# h( t! Uinterp a3b, a3b, late_damp, rd3b
) e+ r' ]1 Z% l0 D1 Tmacs wrt4b, inb, a4b, f, l i5 B' B( U* d+ M
interp a4b, a4b, late_damp, rd4b
: R2 a8 `1 L0 T2 ^4 `7 kmacs wrt5b, inb, a5b, f) n5 ?6 Y# h) i Q* s% f: S5 ^/ N
interp a5b, a5b, late_damp, rd5b 3 Q- `/ Z/ t* \% l* t% c) J: U) {
macs wrt6b, inb, a6b, f
$ S# B2 s4 q. A9 G' C1 k5 J* R. jinterp a6b, a6b, late_damp, rd6b
4 P; v* L. s* y, F+ nmacs wrt7b, inb, a7b, f. D! r, e2 o- E. }; w# t
interp a7b, a7b, late_damp, rd7b2 v" M: X' @" A3 l; |, |
& G& L3 O8 b) m1 @# p
; add & gain taps : ~# K# |. q' R! @# |- [6 w' ^/ N" A
; left1 ]9 L3 X* g4 n2 D- y" x2 q
macs b1a, 0, a0a, 0.125
7 {6 T! o4 G$ d9 ^" O; \macs b1a, b1a, a1a, 0.125 ; post gain
$ K, o7 x% u9 x% h8 Y$ Zmacs b1a, b1a, a2a, 0.1259 k2 t# m( w3 o
macs b1a, b1a, a3a, 0.125
0 p4 v6 i( b# G# {8 Wmacs b1a, b1a, a4a, 0.1255 I9 j+ j; O7 j. d6 ~: _# L
macs b1a, b1a, a5a, 0.125 ! v2 Y- T9 T3 g' X$ y' f
macs b1a, b1a, a6a, 0.125
; D8 T0 T: ]3 N! M9 Xmacs b1a, b1a, a7a, 0.125
# {* \* L6 x; e. ~$ ?
6 H- D" l! w; R9 V" b3 Q; right x0 {! |" h/ W1 J( U% E; o3 U3 m
macs b1b, 0, a0b, 0.125
3 G* L& p) b/ n* y2 J" @% Tmacs b1b, b1b, a1b, 0.125 ; post gain
, e+ `% D% a. J8 _8 Vmacs b1b, b1b, a2b, 0.1254 p" W: K I) v. u' u& k
macs b1b, b1b, a3b, 0.125
2 q/ m$ Y. Z7 _# t4 dmacs b1b, b1b, a4b, 0.125
2 B i+ b% c# j$ Fmacs b1b, b1b, a5b, 0.125
8 f( y2 n0 b9 u* O) ]1 pmacs b1b, b1b, a6b, 0.125% [0 _2 N' J; k* a
macs b1b, b1b, a7b, 0.1257 Z9 m3 | x8 ~+ n4 k& G
: {/ N# V( k" Q7 F; allpasses (fixed feedback), diffusor
% G: I/ ?" M8 g3 o5 u! n2 c5 ~; left
$ G1 b y6 T; a3 u/ Mmacsn h, b1a, rd8a, ap_q ; ap 1
9 C" c8 o* T& g' b( h/ z5 zmacs wrt8a, h, 0, 0
1 y$ d R" N: W: u }9 {macs d1a, rd8a, h, ap_q 4 g: L2 k( J! N- M0 [% `
8 z( _1 \9 O2 l, T' f+ e: G) }macsn h, d1a, rd9a, ap_q ; ap 2
. n) Y3 p! P0 C- ~( ~macs wrt9a, h, 0, 0 0 N1 Q# p, I/ I. o1 D; u9 N
macs d2a, rd9a, h, ap_q
9 z; l r& b) L$ a2 B8 m; Q, ]9 O& n
" k0 L" Q, G8 e1 n3 ?! a: ^macsn h, d2a, rd10a, ap_q ; ap 3
' K7 S p, Q1 r f( Smacs wrt10a, h, 0, 0 - y* f4 t; U" p8 _7 M2 d6 ?) Q
macs d3a, rd10a, h, ap_q 7 X9 s% Q! t6 S
' B4 s6 b' }( C6 T" Pmacsn h, d3a, rd11a, ap_q ; ap 4
: Y& v2 J- Q, C( Y- qmacs wrt11a, h, 0, 0
2 j/ V4 }% F: |) _0 B# |macs d4a, rd11a, h, ap_q
F& k) L# h# U
# H2 @1 ]: h4 O7 n$ M; right- r, Q6 P9 r& S
macsn h, b1b, rd8b, ap_q ; ap 13 U9 q/ U, }8 V P# S
macs wrt8b, h, 0, 0 + w& k' W+ m! `( ]1 d
macs d1b, rd8b, h, ap_q
4 A/ O4 U4 N1 O% _* l
% l& H, p0 |% Ymacsn h, d1b, rd9b, ap_q ; ap 2
/ f, @0 r I( s' c% r' f2 jmacs wrt9b, h, 0, 0
) j# I' W: l$ Amacs d2b, rd9b, h, ap_q % Z3 V& X( T3 P+ ?# z" O
! E5 ?% N5 ]$ {! }) m4 smacsn h, d2b, rd10b, ap_q ; ap 36 P# v* C9 z" y2 }
macs wrt10b, h, 0, 0
4 ]/ n* t' [$ Umacs d3b, rd10b, h, ap_q
2 v3 d# f! U0 R$ _) o 7 A% ~3 u6 U. K6 F3 c" d3 n
macsn h, d3b, rd11b, ap_q ; ap 4
8 K9 K- m' j4 c, n( Vmacs wrt11b, h, 0, 0
* M- Z# I# M$ C4 f2 Lmacs d4b, rd11b, h, ap_q6 j0 ^9 f. }3 R$ z9 I& R1 z( ]4 t/ Z
3 _! F, m! w( p- P
; late reflections level# A( q( d+ W* F
macs d4a, 0, d4a, late_level
% V7 G: ?) s0 t; {5 O) x; X% pmacs d4b, 0, d4b, late_level
/ U9 k. F8 n0 P; Y- E' _( _1 I 1 H' w2 j {* o" |
; mix late & early reflections
# e0 a) `* {2 c& K) h' C# Dmacs d4a, d4a, ga, 1
# m* h- P" s# N( lmacs d4b, d4b, gb, 1
* a! F5 e+ |% u
! s1 O/ e6 U6 y$ B# @6 W8 k; lowpass
& R" t, H% }' A. ~; left
8 V7 j! W5 H- ~5 D) \" x% hmacs d4a, d4a, ea, lp_q ; q2 [. `0 L; U6 j# I( J3 D* v
interp ea, ea, lp_cut, d4a ; cutoff ( n P$ [% h" u( ]: ]2 Q
9 \+ Q% X$ |5 F. F( u3 \
; right4 N& D- {* R3 F5 A
macs d4b, d4b, eb, lp_q ; q
: w" T' J: \8 h w; einterp eb, eb, lp_cut, d4b ; cutoff ; N! k' f* Y: g7 D" l
6 }# I$ S( g" ?
; output mix" X: _5 v. L# l) i
interp out1, in1, dry_wet, ea; B$ V) i0 e/ P( R- P
interp out2, in2, dry_wet, eb( M; c* E" G; R$ T( |6 M+ A
# k) ]$ R5 L+ U* c5 [& m
end |
|
IP卡
狗仔卡
发表于 2009-7-24 12:54
QQ好友和群
收藏
分享
好贴
烂贴
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
