|
|
声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载0 A+ v# t8 T7 S! D* f
! w* H. J* [6 ^: ^& P' R S, T. R: O
6 M9 P; S9 x9 C- w/ b1 B1 Q3 h
name "superspace mh v1.0";! }; V; j" R. b1 P/ R: x; Q% m
copyright "2009. stylus, http://stylus.siteboard.de"
2 U2 r0 ~, H2 g/ g$ b! l8 o" Ecreated ""
3 r9 D \, w* M2 x- gengine "kX";
2 o, w3 u ^% {9 d/ C; a. N- e4 ecomment "high end true stereo reverb, medium hall";8 b+ u3 G! m( h9 e: E+ P$ Q# P
guid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";
8 y9 D0 f% \" g C. Q3 e: T3 e3 h' {; e# Y4 ]5 A7 w) ?
; late reverb algorithm from freeverb by "Jezar at Dreampoint"
" ~4 e/ n4 _7 H7 K( l/ @; early reflections from impulse response "lexicon 480l" 4 s7 K9 K( [! B+ s1 `
; true stereo3 o0 d- }9 Y, S* _2 A4 ]! ]
! J( p |* S0 t) f$ g+ j$ [; registers" t' s- p/ m, b4 R: W5 C, H9 ^
input in1, in26 M4 J3 H/ z1 v3 R% C
output out1, out2 5 F1 D; m p& n6 i4 ^5 R
static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
' y6 \8 M% e* m7 ^static a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
, a2 C' y4 ]( @- \. @static ap_q=0.5, f, ga, gb, h, ina, inb" H: i! @0 a, e( {, O. p
control input_level=0.7' }# S& o' M& ~* w l
control early_level=0.25/ h# o$ u' S9 p) X
control late_decay=0.85! b/ | Y1 J' I5 v
control late_damp=0.95
% l' D# | d* Zcontrol late_level=0.750 c& S" i9 G+ A
control lp_cut=1
4 L0 y$ |/ ?8 ]; Y* jcontrol lp_q=0.34 o. P* b0 W" a4 ?0 x% T- c
control dry_wet=0.754 G1 q: A& f% J2 J5 R
2 f% }$ M) X# Q; v* i- p' G$ t
xtramsize 27454; ~. W3 O$ s, n. y: B! p
* `+ o: |: J; o0 P0 c4 D) R9 h# y. W; late reflections iir
. W% w2 j! s2 r; left
, \$ O8 [9 y+ |* axdelay write wrt0a at 0 % G5 U0 B) s: @9 h$ a" t
xdelay read rd0a at 1556
7 M- D8 I; Y" C0 E: l& F8 W! n0 E0 Qxdelay write wrt1a at 1557
+ B3 [3 {+ I8 J3 f3 V+ t7 _xdelay read rd1a at 3173
0 g# Y9 ]% b/ t; h/ I0 r! G5 l4 Txdelay write wrt2a at 3174
: W2 ]$ a+ ?2 U/ s/ x1 h: ?+ \ ^xdelay read rd2a at 4664
# y4 U- a+ Q) C5 j9 rxdelay write wrt3a at 4665
, j. r, W3 o4 n nxdelay read rd3a at 6086& _' `* G# I% C4 }$ c
xdelay write wrt4a at 6087 `) ~ I# `# I0 t
xdelay read rd4a at 7363+ Z# I, [4 _0 j8 z# ]
xdelay write wrt5a at 7364
# \+ C9 _1 S8 Y' k; kxdelay read rd5a at 8719; l; k+ K5 x& F0 K2 Q1 b) J |; I
xdelay write wrt6a at 8720
$ K+ d7 \4 {5 @1 J0 d" H! gxdelay read rd6a at 99075 D; G3 V2 |+ w0 Q, Y
xdelay write wrt7a at 9908
' s% [8 V3 [5 z/ lxdelay read rd7a at 110230 ], J- e+ }. ^$ K* K
2 `) |7 y9 K; d
; right
( }8 u* D n% t) `xdelay write wrt0b at 11024 2 D6 F6 b& L# ?! m7 w
xdelay read rd0b at 12603
! a1 F+ Y% h: Y& ~xdelay write wrt1b at 12604
$ c4 V9 H( y" c" s$ Hxdelay read rd1b at 14243$ c3 d& D0 r T
xdelay write wrt2b at 14244 0 Z7 `- u+ E8 I/ [- N, z
xdelay read rd2b at 15757
! ~- n8 T- D4 G$ w9 [xdelay write wrt3b at 15758 - O$ f8 p# w/ D) o
xdelay read rd3b at 172029 l- c" c# Z+ v! i
xdelay write wrt4b at 17203
( q/ r& ^3 O6 Y+ g' x5 h. uxdelay read rd4b at 18502- g. u6 s; e! I$ }8 D( P- e; ^
xdelay write wrt5b at 18503 7 O6 s+ s$ J- ^7 r5 z% l
xdelay read rd5b at 19881* W1 X! J) T* L7 w2 u- j
xdelay write wrt6b at 19882 $ |; c' f$ o/ E3 M; C$ ]) f. I) w# p/ a
xdelay read rd6b at 210923 C; ]9 v- W1 s% A B4 J
xdelay write wrt7b at 21093
+ {5 T% j. C- \ @; ^ z( o2 L: `xdelay read rd7b at 22231# e9 l3 C8 s3 I8 A: ^
) ]5 J2 E- j* H+ n" O4 U+ R# {7 Q" d: i
; lexicon 480l/ medium hall/ first 8 peaks. n2 W" }# y2 x# ~# ]6 P# P
; early reflections iir/fir
+ B8 b2 l. P9 `: w; left ( K: i4 @1 d, B- ]" B. O( X
xdelay write wrt12a at 22232 + Q7 S9 U* d" P4 b' y. ?
xdelay read rd12a at 23566: [, M' ^! q W* z7 g4 |' S
xdelay read rd13a at 23850
O5 B/ O8 Q U! C) G: k' Dxdelay read rd14a at 24033
# {' g. S/ m: \- P! l, zxdelay read rd15a at 24134/ y( u8 L# g+ u( n7 E0 g) [ C
xdelay read rd16a at 24317 E! g4 u8 d5 R1 T4 _# n" q
xdelay read rd17a at 24376% `0 z5 r3 e" d; W: k7 B5 W: t4 ~! Q: t' n
xdelay read rd18a at 24418
8 v; r, `+ f$ Q9 j4 `9 j; sxdelay read rd19a at 24500
. k% b$ r, ?( R. a" s) E! {( k( Q) B: [
; right
# Y* U- v1 z. w5 p2 Dxdelay write wrt12b at 24501 1 g( G, D6 I$ j
xdelay read rd12b at 26715
; j6 Y3 Q' V; K/ G( h- Dxdelay read rd13b at 26961
& H5 A: v8 ]% R0 T$ t+ qxdelay read rd14b at 26984
3 z# e4 n" }( l) f& k$ Z n/ j7 \xdelay read rd15b at 27101
* e' }) h3 c: M/ \) l, x) ^xdelay read rd16b at 27207$ Q: ~! ^* b) f7 m4 V# q
xdelay read rd17b at 27268! }5 b p6 _1 T' C# n& W7 C
xdelay read rd18b at 27347
5 g2 L6 A& J( F( h1 ]1 T3 ] E) vxdelay read rd19b at 27454' e9 Y& \ N% D4 b
: {3 U) U/ k5 {4 D" v5 O( E
) B0 S* V D! ^+ n2 z# D) _" q0 i4 r
itramsize 3218
9 O# L& c& r5 o$ s7 Q% ] I" G7 B; allpasses iir5 x2 o" S3 [4 a& ~0 U
; left
4 ^, c; O6 o/ L) zidelay write wrt8a at 0 5 K0 y8 [" L" B1 |: V( x7 z; e
idelay read rd8a at 2246 \+ L7 g7 f% l7 f1 [* G; ^7 v( A
idelay write wrt9a at 225
: b6 i9 v8 e* k2 P4 Tidelay read rd9a at 780
1 x- t& C6 q- f% k3 ^$ P# c2 \idelay write wrt10a at 781
# t; X; z/ s9 [0 Z2 \9 w9 Nidelay read rd10a at 1221
' r" _2 B! \& R8 Videlay write wrt11a at 1222
* ^* m' ]! B& q2 s3 s( D Videlay read rd11a at 15622 B N* n( e/ J+ ^3 } h: k, ]
& w, s- e0 a4 Y0 a3 F4 H* }4 I9 S; right ! ]: M! s" o/ t2 M3 B! u
idelay write wrt8b at 1563 ?7 y b9 \- N( Y/ N
idelay read rd8b at 1811, j8 P' }. V4 ?* r9 d) k
idelay write wrt9b at 1812 5 a4 i1 c0 n6 g8 f4 r* K9 J
idelay read rd9b at 2390; M- Y* I: ]" D' k2 r4 }% w, W# I
idelay write wrt10b at 2391 1 b! p% B3 i. P* r) W
idelay read rd10b at 2854
& f% K8 @) G/ R' sidelay write wrt11b at 2855 : A! N: g: F9 M( B( c) I' N8 [
idelay read rd11b at 32180 f# M* {( U5 ]' p
, g+ L0 }, ^+ l& u, r- b
; input level
: l9 v% p! I( r6 d3 d# }1 {# z3 Fmacs ina, 0, in1, input_level ; default 0.5
* ^+ N% v1 J+ l# O$ ~2 umacs inb, 0, in2, input_level2 u: I+ ]- R2 H5 M; h v3 _
9 j8 B/ Y1 a/ T; g6 k; add early reflections" Z! Q0 u7 D" W# ?% T1 }. c4 J
; lexicon 480l, medium hall
, Z6 [0 _/ C' j9 C; left
" ^- t ~4 _# l5 l5 o* smacs wrt12a, ina, rd19a, 0.2
& v0 D4 q1 v! [' O0 x. Jmacs ga, 0, rd12a,-0.272302037
8 i& X! l* `" z8 F2 bmacs ga, ga, rd13a,-0.1972653882 {( `9 x/ Z* Y9 j1 m
macs ga, ga, rd14a,-0.3199269980 A; B5 ^ j2 H5 `
macs ga, ga, rd15a, 0.153126688! }. M1 w" a& I P& F
macs ga, ga, rd16a,-0.17181097
5 M& ~$ J0 [# ?9 {6 Dmacs ga, ga, rd17a, 0.489836215* L. L) J- q1 x( w' s; i: e5 Z
macs ga, ga, rd18a,-0.1202405322 ~- @1 B# o) k
macs ga, ga, rd19a, 0.195007309, u8 p6 o, Q7 K8 F
- V8 Q/ n! `3 J6 g3 N
; right+ F7 P, x* L6 Y5 }" I( O( |
macs wrt12b, inb, rd19b, 0.25 q2 p/ |* v& Z0 x F8 ]2 H% K! m2 D
macs gb, 0, rd12b,-0.333553451
! h0 e. z8 C) `+ c7 h" qmacs gb, gb, rd13b,-0.20098583' v7 ^7 ]" Z9 t, g% {: I/ M; S9 c
macs gb, gb, rd14b, 0.345275242
5 Y- }+ z4 ]# V& q* A2 dmacs gb, gb, rd15b,-0.333553451
+ s' [8 D ^* H0 U+ X% _$ r* cmacs gb, gb, rd16b, 0.1633674161 A w: o& n: R! P, f
macs gb, gb, rd17b, 0.215360196
8 U0 M2 l* P K" Smacs gb, gb, rd18b,-0.2080489077 C8 u2 V1 T6 I3 h' _
macs gb, gb, rd19b, 0.5409603556 J2 n) }) F) ~+ E5 K
) @& O/ {7 C2 b9 G( ~" |9 X( q6 I; early reflections level0 J( O6 i7 R0 O0 D. L! X# b
macs ga, 0, ga, early_level
1 m* z' B! e8 U0 b8 u% Y, l3 M: Imacs gb, 0, gb, early_level
+ G ?3 A# M" {
$ j/ u0 q) s3 }3 H* V; late input + early reflections 4 _0 l$ V; c( E7 P" M: @
macs ina, ina, ga, 0.5+ I1 q$ Y- _4 z% f& _9 r0 O$ G
macs inb, inb, gb, 0.5
0 y2 G& R, d% A) C+ N & B2 W, s! _, U9 E
; trim sliders
! x& A" |0 A( C" m: O/ v* zlog f, late_decay, 0x3, 0 ; logaritmic decay fader9 ^* @ p) c# y6 `9 N# i
; Y! f3 h* m. N, y
; 8 delay lines (comb filters with lowpass damping). z ?3 J0 v8 H# n+ w
; left 6 z* n O5 t( g
macs wrt0a, ina, a0a, f ; decay set to ' ? J. z8 }8 J i7 M( J! m# M
interp a0a, a0a, late_damp, rd0a ; lp damping set to
# Y. C, x9 w3 jmacs wrt1a, ina, a1a, f
; b8 y& D9 l& b" s j0 Ointerp a1a, a1a, late_damp, rd1a
2 Q; O) k+ S+ [3 P6 Emacs wrt2a, ina, a2a, f5 H7 V/ R7 ?' h4 {: D) j6 @
interp a2a, a2a, late_damp, rd2a
7 E+ E4 r; K) {. r, mmacs wrt3a, ina, a3a, f 4 U% J# c+ r& S8 T
interp a3a, a3a, late_damp, rd3a
) g1 L! p( p) ~. A! Hmacs wrt4a, ina, a4a, f
8 |$ i. ?4 S0 i" s7 d6 Dinterp a4a, a4a, late_damp, rd4a
6 ~0 E3 [# o2 l: t- Cmacs wrt5a, ina, a5a, f
! N& _# C z5 O zinterp a5a, a5a, late_damp, rd5a
6 ^+ i: Q; F2 jmacs wrt6a, ina, a6a, f ?5 Q9 t3 h8 L/ Q. c
interp a6a, a6a, late_damp, rd6a ' m, l8 F- f4 G# |. S8 V
macs wrt7a, ina, a7a, f; ~/ J5 u9 Z& H- c/ ]9 h' Q4 Q
interp a7a, a7a, late_damp, rd7a ( W3 h3 [# E2 S7 ]* J/ a1 p
( u# F5 x6 J4 }; right 4 V. F6 ~( G0 b, P/ G1 T
macs wrt0b, inb, a0b, f ; decay set to 8 E' W9 W& `5 Z, @4 t
interp a0b, a0b, late_damp, rd0b ; lp damping set to ; e8 Q% l) M) B$ Z7 [3 L
macs wrt1b, inb, a1b, f
! R( E: @- n; J" W+ x% A- X2 [interp a1b, a1b, late_damp, rd1b
/ g* a, Z4 A% T. ~. W/ qmacs wrt2b, inb, a2b, f
- T2 M; t) l4 w, x' einterp a2b, a2b, late_damp, rd2b
K% }4 V+ z) G/ S0 Z0 H1 P0 t7 Rmacs wrt3b, inb, a3b, f
) {# t/ z# L+ p$ D# I* @interp a3b, a3b, late_damp, rd3b
& L: a6 H+ j: V, x- ^2 }macs wrt4b, inb, a4b, f9 g& g' v$ O. L6 A y: O0 O$ y7 s8 r
interp a4b, a4b, late_damp, rd4b
7 V, `& x* ~; H3 }macs wrt5b, inb, a5b, f! g9 t' U/ b4 K, M
interp a5b, a5b, late_damp, rd5b 1 ?: Z% K- S7 V
macs wrt6b, inb, a6b, f
( z6 V: R6 B/ V7 j: q7 ]+ {interp a6b, a6b, late_damp, rd6b 4 k7 p$ x4 X: M# P4 s
macs wrt7b, inb, a7b, f# A: {' J4 z/ n4 j+ Q& P
interp a7b, a7b, late_damp, rd7b
F% X: R, g: V: Z( _$ h
/ L1 ~) m% e8 W* ~6 n; _4 R3 r6 K; add & gain taps 7 G. ^# e# P1 E: R
; left5 Z9 h7 Y, b" y) d' A- S; p
macs b1a, 0, a0a, 0.125+ D+ Q/ X; c* O; a/ L
macs b1a, b1a, a1a, 0.125 ; post gain# J# k0 [+ r" L$ j+ T
macs b1a, b1a, a2a, 0.125
1 q* w& U9 n! _macs b1a, b1a, a3a, 0.125 + [# z) I* S( J& X% M# H& u0 }2 x" B
macs b1a, b1a, a4a, 0.125! q$ G& {8 A6 D
macs b1a, b1a, a5a, 0.125
6 l$ Y, @# A2 l; O4 ]& imacs b1a, b1a, a6a, 0.125; `- _/ H3 H4 [! M
macs b1a, b1a, a7a, 0.125
& \8 A/ c" m: `! H$ M( n; C3 l
* C% W) |: f5 g ~; right* J, O, b4 b9 w- z; k8 ]
macs b1b, 0, a0b, 0.125* n2 ^+ I. Q, b, l9 f9 Z, k
macs b1b, b1b, a1b, 0.125 ; post gain- y* ^( K: c* a6 B. i' E1 v
macs b1b, b1b, a2b, 0.1254 r+ Z6 N/ \; i# [' s
macs b1b, b1b, a3b, 0.125
: @" T" p9 g4 }) k$ S8 xmacs b1b, b1b, a4b, 0.1253 v& Y! [; s, _5 w% w: V0 _& D7 G; k: @. [
macs b1b, b1b, a5b, 0.125 9 I2 Z+ f7 }& ^" G& B. `) B9 I
macs b1b, b1b, a6b, 0.125
' N+ X; Z" ], dmacs b1b, b1b, a7b, 0.125
! A5 f& U8 {/ s: |9 ]/ p% c
5 U1 D- R5 h$ ]" v- e; allpasses (fixed feedback), diffusor: Z8 Z) [# k$ V2 ]& e O
; left3 p6 a' w7 q) ?* B9 J
macsn h, b1a, rd8a, ap_q ; ap 1
# \4 ` ~- P w4 i& T7 n# cmacs wrt8a, h, 0, 0 8 V% r( [+ r$ R, O3 f
macs d1a, rd8a, h, ap_q
, U( g, t. W8 C( l * D% B' b2 d" L2 r+ U h; v
macsn h, d1a, rd9a, ap_q ; ap 2
) v# R3 n0 x9 q, I/ d* }, Omacs wrt9a, h, 0, 0
+ ~- N: `: g1 E5 omacs d2a, rd9a, h, ap_q 4 S/ e t% i- i
; V a3 a8 x) Emacsn h, d2a, rd10a, ap_q ; ap 3
2 A& v \; a, i9 M7 k' Ymacs wrt10a, h, 0, 0
' J$ n! U" h7 ]" n/ O, amacs d3a, rd10a, h, ap_q
. {, o0 a: z- R1 | A * W. j% \+ L) }5 l4 G! l
macsn h, d3a, rd11a, ap_q ; ap 4
1 ~) C1 a( W) p3 J) \) j* u+ dmacs wrt11a, h, 0, 0 , X! A( o; n2 D) X. \- {: X! r
macs d4a, rd11a, h, ap_q
2 S6 [' z( r% |, d* }' I6 E H 6 q: u+ S4 n9 T' I* `4 T# V+ [
; right( U! H5 Y3 N* |8 A
macsn h, b1b, rd8b, ap_q ; ap 1& T( W6 W& n/ S; B% E: z; ^
macs wrt8b, h, 0, 0
. f- @7 N2 }) _: X1 ^; Rmacs d1b, rd8b, h, ap_q
, i6 l1 \9 N+ ~8 X
9 m% l& a6 Q: T C' g; @macsn h, d1b, rd9b, ap_q ; ap 2) @$ V! H0 R# T# `
macs wrt9b, h, 0, 0
0 G! ?8 S8 C' J/ D0 Q( ^5 _macs d2b, rd9b, h, ap_q
: @* n; E3 X( t( V7 S" H8 j$ j; { 7 @5 M m% r! V; `( s5 k. _
macsn h, d2b, rd10b, ap_q ; ap 3/ ]% K) f0 g! V: B6 l8 h8 G$ N
macs wrt10b, h, 0, 0
- K- n& `; t( b- `3 @macs d3b, rd10b, h, ap_q # |- F( R* l: q5 }/ F* x
* J) G. M2 h) S& U% R
macsn h, d3b, rd11b, ap_q ; ap 4# |. ^ X5 W8 `5 g4 r3 j0 n
macs wrt11b, h, 0, 0
3 a2 t6 M+ {5 f% A( }macs d4b, rd11b, h, ap_q
' N% [. ?% e1 Z+ X+ e4 Q3 n% r$ @+ r/ D6 R& ?) r
; late reflections level ]; A9 f5 ]0 O% j1 P+ X4 N9 k
macs d4a, 0, d4a, late_level
9 B: l7 n; M- smacs d4b, 0, d4b, late_level) _0 \: Z7 w- T: x7 h) a& R6 s/ q [
: z( U y# i( l: E0 c! O/ e# ]! y, b
; mix late & early reflections8 C( o: \) u4 L W+ [8 r+ s
macs d4a, d4a, ga, 1# A" m p3 {! ?- {, N
macs d4b, d4b, gb, 15 n; f$ W9 F# v( f1 e) w. p9 C7 i
* [( o+ _ a0 v& B5 T
; lowpass
8 M* }4 ?2 e5 V7 m# N; left0 U4 F, D* D3 C ?
macs d4a, d4a, ea, lp_q ; q
( \$ _3 ^: n$ p, W$ v6 Ninterp ea, ea, lp_cut, d4a ; cutoff , D* ]+ D* r3 V/ }( x$ ?
( z! I* o- x: Q% }% v) G% a; right
. A6 C2 r! _( H2 g7 ?% Vmacs d4b, d4b, eb, lp_q ; q' |) b" p! Z- o
interp eb, eb, lp_cut, d4b ; cutoff
! A& P4 {: g4 M U# F: o @" N3 |1 E# Y& v
; output mix9 x" O4 M, `' a- N
interp out1, in1, dry_wet, ea
# ^( m) o9 W4 M/ ?7 c! ]interp out2, in2, dry_wet, eb5 F$ f3 O3 B( C: H/ r: l9 G
: e! Z" o- Z" Z9 J1 \end |
|
IP卡
狗仔卡
发表于 2009-7-24 12:54
QQ好友和群
收藏
分享
好贴
烂贴
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
楼主
