kx驱动部分支持lexicon混响了

JoshuaChang

声音可以秒杀现有任意kx的混响了(aps,efx之类)，但是高频比较粗，本想自己提高精度的，一看资源，mb外存操作已经几乎吃满了(50/64)，看来这是emu10k2的极限了，不知emu专业卡的10k2.5有没有提升外存操作能力，把下面的代码存为.da文件即可加载

: D3 O3 _+ ?" y# A

' H% B! _- O8 Fname "superspace mh v1.0";
% V! q$ q" A2 P( K# Icopyright "2009. stylus, http://stylus.siteboard.de"
7 v  K+ _" W( ~created ""
- Q3 `5 d. v( X  b( I% pengine "kX";
& v) ]4 Q& z" @, ]comment "high end true stereo reverb, medium hall";
* X  k! Z5 r8 k% Jguid "32295c17-f0ea-4f2c-b1e2-942e4b4e0f7d";

9 Y! u/ X0 ]+ f+ M5 O3 P; late reverb algorithm from freeverb by "Jezar at Dreampoint"
; early reflections from impulse response "lexicon 480l"
, i" P; }6 u! R, S; H: s/ L9 ]+ w; true stereo

, [0 r. b( g3 Q& F& m, p; registers
input in1, in2
output out1, out2  
static a0a, a1a, a2a, a3a, a4a, a5a, a6a, a7a, b1a, d1a, d2a, d3a, d4a, ea
9 {0 S: B" _! r: o" l- Cstatic a0b, a1b, a2b, a3b, a4b, a5b, a6b, a7b, b1b, d1b, d2b, d3b, d4b, eb
static ap_q=0.5, f, ga, gb, h, ina, inb
7 s9 D+ X6 ^8 q! i( Y$ C' n1 Z3 ycontrol input_level=0.7
. e1 [/ K+ Y, ^. {6 Acontrol early_level=0.25
control late_decay=0.85
control late_damp=0.95
! T) }1 P" b# \/ m8 Lcontrol late_level=0.75
; Z1 J4 q, `4 `) pcontrol lp_cut=1
* z$ q& l9 c  b$ k/ ]8 Fcontrol lp_q=0.3
control dry_wet=0.75
8 `  P0 {/ @+ T. D1 }, O# t3 t
2 l. W7 ~& C2 {  hxtramsize    27454
3 D  f5 ^- }- H# A  a9 z0 m
' T* I$ b5 Z8 E+ C6 K9 l) o9 d3 w* g; late reflections iir
5 k1 }/ S7 t& w0 n8 a. w6 w; left        
2 A5 p# c3 a& u: }. n4 Pxdelay write wrt0a at    0   
; V/ V6 D+ N8 V# D7 U3 b+ Wxdelay read rd0a at        1556
xdelay write wrt1a at    1557   
xdelay read rd1a at        3173
0 [$ @4 K0 x3 Y/ P( i" n0 c3 ~, Pxdelay write wrt2a at    3174   
/ y1 o8 S& m2 a$ e$ r. R9 fxdelay read rd2a at        4664
# z* @# p8 i+ p# J7 mxdelay write wrt3a at    4665   
xdelay read rd3a at        6086
" l. a' T; x8 l6 M  Hxdelay write wrt4a at    6087   
xdelay read rd4a at        7363
3 U  G* D" e0 n% D4 J) E- Uxdelay write wrt5a at    7364   
9 g4 i5 [! A/ p( Q8 [8 Txdelay read rd5a at        8719
# P3 @' Z5 k9 X9 {xdelay write wrt6a at    8720   
3 _4 U7 l, ?# J) qxdelay read rd6a at        9907
xdelay write wrt7a at    9908   
xdelay read rd7a at        11023

9 B* [( C! v4 _+ `( Y; right        
; {% r( X2 Y% R+ G  F$ r' `xdelay write wrt0b at    11024   
xdelay read rd0b at        12603
xdelay write wrt1b at    12604   
xdelay read rd1b at        14243
xdelay write wrt2b at    14244   
xdelay read rd2b at        15757
/ I/ ^; D% b! q( L& K5 K- Pxdelay write wrt3b at    15758   
9 L: }& @- _+ K' Y+ }/ i6 u, Qxdelay read rd3b at        17202
4 i6 R6 X( r+ n9 v$ ixdelay write wrt4b at    17203   
xdelay read rd4b at        18502
; Z5 K: b: J7 g3 g4 d' \6 Z7 Mxdelay write wrt5b at    18503   
xdelay read rd5b at        19881
xdelay write wrt6b at    19882   
8 k8 G1 I( n0 Z$ V4 lxdelay read rd6b at        21092
xdelay write wrt7b at    21093   
xdelay read rd7b at        22231
: ^" t% `% s! @* b: S# m' [0 p: c' ?
+ L+ p+ Z! |+ X4 k; lexicon 480l/ medium hall/ first 8 peaks
; early reflections iir/fir
; left        
  G' {  g5 `/ pxdelay write wrt12a at    22232   
3 K  g3 l, S: a* j( ixdelay read rd12a at        23566
2 g& \+ T# W" J" R2 O2 \! ^xdelay read rd13a at        23850
xdelay read rd14a at        24033
xdelay read rd15a at         24134
% G) _; r/ W! b5 W7 i! u- Uxdelay read rd16a at        24317
xdelay read rd17a at        24376
xdelay read rd18a at        24418
xdelay read rd19a at        24500

; right
4 ]2 ~# u/ U& G/ K% Y" Uxdelay write wrt12b at    24501   
5 A$ X, o: a3 i; Q! ^xdelay read rd12b at        26715
  s% @) k4 N, ~9 c4 Zxdelay read rd13b at        26961
4 {( m6 ]$ f8 F$ bxdelay read rd14b at        26984
; M' e6 Z% U) L' [xdelay read rd15b at         27101
xdelay read rd16b at        27207
xdelay read rd17b at        27268
xdelay read rd18b at        27347
- i5 Q: p" g4 s7 \9 V! O; ]1 m1 \xdelay read rd19b at        27454


itramsize    3218   
; allpasses iir
' {$ J% O. H* s9 }0 t. B# n; left        
idelay write wrt8a at    0   
idelay read rd8a at        224
6 b! h$ w9 G& q9 yidelay write wrt9a at    225   
- l6 u$ r( i5 Bidelay read rd9a at        780
) `2 {. Q- A; q7 kidelay write wrt10a at    781   
idelay read rd10a at    1221
idelay write wrt11a at    1222   
idelay read rd11a at    1562

; right        
. c( O0 \2 h7 W4 A: }' kidelay write wrt8b at    1563   
idelay read rd8b at        1811
idelay write wrt9b at    1812   
) i6 H: A3 Y8 e0 G3 Fidelay read rd9b at        2390
idelay write wrt10b at    2391   
idelay read rd10b at    2854
' `2 C- i/ H1 y' O, fidelay write wrt11b at    2855   
idelay read rd11b at    3218
( }% k4 V% g( D' X+ u
; a) p5 |& N+ P5 c; input level
macs ina, 0, in1, input_level ; default 0.5
3 i+ C" J( R$ h6 u5 zmacs inb, 0, in2, input_level

; J$ \- M" `: Y& }- H: P% V; add early reflections
0 G6 K4 _. j, g, N3 @/ c* N" ?/ f; lexicon 480l, medium hall
; left  
: d  S6 `4 s/ C4 a! `( Kmacs wrt12a, ina, rd19a, 0.2
macs ga, 0,  rd12a,-0.272302037
macs ga, ga, rd13a,-0.197265388
( D" d0 G4 q& s4 Imacs ga, ga, rd14a,-0.319926998
macs ga, ga, rd15a,    0.153126688
macs ga, ga, rd16a,-0.17181097
macs ga, ga, rd17a,    0.489836215
macs ga, ga, rd18a,-0.120240532
macs ga, ga, rd19a,    0.195007309
- b* f1 Y; X# |  y9 n
; right
macs wrt12b, inb, rd19b, 0.2
macs gb, 0,  rd12b,-0.333553451
macs gb, gb, rd13b,-0.20098583
/ H  C! F" D5 ^( n2 U) Vmacs gb, gb, rd14b,    0.345275242
macs gb, gb, rd15b,-0.333553451
macs gb, gb, rd16b,    0.163367416
" j  S* J& @" b+ _: f  jmacs gb, gb, rd17b,    0.215360196
( _( ~6 F( f. q3 P4 ]7 Z0 c( D9 ^macs gb, gb, rd18b,-0.208048907
' C) r) g9 e; g+ [) Jmacs gb, gb, rd19b,    0.540960355

6 A2 M+ i# }! ^2 R( e6 k; early reflections level
& L+ P3 {% T  r( \) Imacs ga, 0, ga, early_level
macs gb, 0, gb, early_level
% P7 D$ [4 I1 G- b( }' C# X: H
; late input + early reflections
! K# Z2 {% z1 \) j% V9 a4 N# kmacs ina, ina, ga, 0.5
macs inb, inb, gb, 0.5
6 Y2 i  a. a, G: v+ ~0 J* D2 X$ i   
; trim sliders
log f, late_decay, 0x3, 0 ; logaritmic decay fader

; 8 delay lines (comb filters with lowpass damping)
; left
# f# g3 E2 c# p- `  j% M3 Omacs wrt0a, ina, a0a, f ; decay set to
/ C2 b' a+ G, @7 |$ winterp a0a, a0a, late_damp, rd0a ; lp damping set to
macs wrt1a, ina, a1a, f
interp a1a, a1a, late_damp, rd1a
macs wrt2a, ina, a2a, f
interp a2a, a2a, late_damp, rd2a
+ q- e* j. {% z9 Rmacs wrt3a, ina, a3a, f
interp a3a, a3a, late_damp, rd3a
macs wrt4a, ina, a4a, f
9 J2 y0 _! n; ginterp a4a, a4a, late_damp, rd4a
- Z8 {1 t1 C. nmacs wrt5a, ina, a5a, f
( t; W  J) z) ?1 S, \& winterp a5a, a5a, late_damp, rd5a   
+ E; Q9 N/ p+ C% _! _4 Ymacs wrt6a, ina, a6a, f
interp a6a, a6a, late_damp, rd6a
macs wrt7a, ina, a7a, f
interp a7a, a7a, late_damp, rd7a  
* ^" F; i) J- G  @0 j  
- F% h) k$ K. T% f; right   
5 f9 {) a; [8 I9 wmacs wrt0b, inb, a0b, f ; decay set to
interp a0b, a0b, late_damp, rd0b ; lp damping set to
macs wrt1b, inb, a1b, f
interp a1b, a1b, late_damp, rd1b
macs wrt2b, inb, a2b, f
3 X' Y: y4 A) J2 T" C( l3 Ginterp a2b, a2b, late_damp, rd2b
macs wrt3b, inb, a3b, f
interp a3b, a3b, late_damp, rd3b
macs wrt4b, inb, a4b, f
9 J8 ], e3 i# H' t  \8 u& L1 sinterp a4b, a4b, late_damp, rd4b
macs wrt5b, inb, a5b, f
interp a5b, a5b, late_damp, rd5b   
macs wrt6b, inb, a6b, f
interp a6b, a6b, late_damp, rd6b
macs wrt7b, inb, a7b, f
2 a. ]4 A4 [; G6 L- Zinterp a7b, a7b, late_damp, rd7b
   
) v' _4 Y' P+ \5 {; add & gain taps
; left
- F: H3 B; Z( W2 i1 J) amacs b1a, 0, a0a, 0.125
9 d) u- Q. F/ C5 Umacs b1a, b1a, a1a, 0.125   ; post gain
macs b1a, b1a, a2a, 0.125
macs b1a, b1a, a3a, 0.125
' O2 b3 ^7 u- g7 p8 A: Tmacs b1a, b1a, a4a, 0.125
macs b1a, b1a, a5a, 0.125
: v5 N. p- ?5 ~& I( ^. q( vmacs b1a, b1a, a6a, 0.125
macs b1a, b1a, a7a, 0.125
" I* p4 {# a/ y* A  k- D( m: l   
; right
macs b1b, 0, a0b, 0.125
macs b1b, b1b, a1b, 0.125   ; post gain
" H( _2 d7 T+ x: M% Kmacs b1b, b1b, a2b, 0.125
. w7 r, n6 j9 L4 z  Qmacs b1b, b1b, a3b, 0.125
macs b1b, b1b, a4b, 0.125
macs b1b, b1b, a5b, 0.125
macs b1b, b1b, a6b, 0.125
macs b1b, b1b, a7b, 0.125
$ O; Q4 ?, A/ ?) m& \8 l9 J. W+ t
; allpasses (fixed feedback), diffusor
; left
macsn h, b1a, rd8a, ap_q ; ap 1
: X5 l/ ?1 |" Y; _; D6 R4 J1 Imacs wrt8a, h, 0, 0
macs d1a, rd8a, h, ap_q   

0 ~" q* i& K+ C/ ~macsn h, d1a, rd9a, ap_q ; ap 2
4 A" R* ?4 E. H$ ~* xmacs wrt9a, h, 0, 0
macs d2a, rd9a, h, ap_q
) O! I( `. s4 c/ A; q$ _- [  O
macsn h, d2a, rd10a, ap_q ; ap 3
9 m" r" t5 O1 n+ j" I9 fmacs wrt10a, h, 0, 0
9 [7 s* `6 X: F( I. Y6 n. bmacs d3a, rd10a, h, ap_q
" x& d9 g4 x( r5 f$ I
' @# D) K  h* X# f, T) Wmacsn h, d3a, rd11a, ap_q ; ap 4
( D8 p/ U% |1 Q" ?! T2 b' \; n2 d' smacs wrt11a, h, 0, 0
macs d4a, rd11a, h, ap_q
  
, M( e7 G3 j0 s9 o; right
8 D: ^' a; S) r# M, _macsn h, b1b, rd8b, ap_q ; ap 1
) Q9 E% Y9 ^* i! Y, ^macs wrt8b, h, 0, 0
macs d1b, rd8b, h, ap_q   

macsn h, d1b, rd9b, ap_q ; ap 2
macs wrt9b, h, 0, 0
macs d2b, rd9b, h, ap_q
  {- B3 d" G" S5 h
2 |' p2 u& Q9 Rmacsn h, d2b, rd10b, ap_q ; ap 3
4 V' P% }" L! Z$ Z! H# {macs wrt10b, h, 0, 0
4 e: E7 m5 H* x$ a* dmacs d3b, rd10b, h, ap_q
) z2 o7 K' O& ?5 y5 [
macsn h, d3b, rd11b, ap_q ; ap 4
macs wrt11b, h, 0, 0
macs d4b, rd11b, h, ap_q
& Y& S5 z% }* z: v  h# Q7 K
; late reflections level
macs d4a, 0, d4a, late_level  
macs d4b, 0, d4b, late_level
  
; mix late & early reflections
macs d4a, d4a, ga, 1
) R/ [5 N% g& ~# zmacs d4b, d4b, gb, 1

2 P% Y# e3 \+ T; lowpass
1 `% c$ W# S. @* d; left
macs d4a, d4a, ea, lp_q   ; q
interp ea, ea, lp_cut, d4a  ; cutoff   
  
; right
macs d4b, d4b, eb, lp_q   ; q
interp eb, eb, lp_cut, d4b  ; cutoff     
  
/ r3 Z2 _5 S+ H; output mix
, i6 L+ V) |: l+ v$ J" T; k: @interp out1, in1, dry_wet, ea
7 Q2 f, H) C3 ~3 R" ]% Kinterp out2, in2, dry_wet, eb

( |) D0 X5 M9 U$ B0 Q2 f* Kend

JoshuaChang

另～kx3547出了，2003 x64总算是能装了，但是bug还是有的修……

JoshuaChang

psps:似乎此插件emu10k1(live系列)不能跑了，32的外存操作能力不够，不过手里暂时没有live，不怕挫折的可以试试

sd-iori

LZ，，好久不见了，，，

: y. q" P' {3 {4 w& I& m' j# b1 t到什么地方水？？

是不是日全食了，，，天黑了，，
, t" c. k( y* M- U1 d4 J, T你才偷偷的回到地球？？

JoshuaChang

这都被你看出来啦～

landyh

具体要怎么用?在哪里存为.DA文件?KX驱动里?

JoshuaChang

记事本即可

landyh

明白了.谢谢~

linengai

感谢JO大大的分享，就是PCI的限制，要一行一行的复制，复制了半天还是有复制错的，能不能发个附件上来！顺便有几个问题请教JO大大，因为你不在群里了，只能这里请教你了！
1.KX现在哪个版的驱动能支持4G以上的内存了？
2.看到了LEXICON可以DSP插件了，不知道精度如何？比起CPU运算插件如何？能达到本尊几层？
3.在某个帖子里曾看到有人写过"直流偏壓調整" 和 "仿平衡輸入"这两个插件来提高S/N，不知道阁下有否？
4.请问A2或者A4如何绕过DSP输出呢？
( B" _9 }' x) g盼望JO大大详细回复！

cfscy

用在什么型号的声卡上？A2 ZS可用不？需要修改什么吗？？

xxm669

还是发个附件上来吧,复制了老半天还是出错

JoshuaChang

JoshuaChang

感谢JO大大的分享，就是PCI的限制，要一行一行的复制，复制了半天还是有复制错的，能不能发个附件上来！顺便有几个问题请教JO大大，因为你不在群里了，只能这里请教你了！
, d: a. A4 {: e' q; V; H1.KX现在哪个版的驱动能支持4G以上的内存了 ...
linengai 发表于 2009-7-25 02:44

1.我这里8g好像从来没啥子问题
5 x6 a* S! g* C; |4 s2.自己听
9 a2 k2 i6 v+ H9 \# F3 A5 ~3.dc offset本来就有：http://www.electricstart.de/plug/dcoffset.da，那个模拟平衡的话，你有平衡输出的设备？而且只能单声道，你真要有兴趣自己写吧
4.用hq设备，然后24/96里面禁用emu10k2的输出就是绕过了

JoshuaChang

用在什么型号的声卡上？A2 ZS可用不？需要修改什么吗？？
, a6 @' F: G" m1 e% lcfscy 发表于 2009-7-25 06:18

1 c; D- s8 I! f+ s/ H2 e) jaudigy 1以上级别即可

linengai

感谢JO大大的即使回复，感谢老群主依然战斗在KX的前线。由于很久没用KX了，还有弱弱的问题请教。
; A+ l$ }, L  J% T1 |5 a0 w1.你的8G无问题是用的最新的3547吗？
6 z2 ]/ D* J( \+ X( J! G2 U' Q2.现在KX里有没有比较好的压缩插件？有新出的吗？
2 C/ b& s/ i0 G% H$ t  B3.配合3547的PROFX能提供一下吗？

JoshuaChang

3547是x64，不能用大内存才有鬼了，我3545在x86下都好好的
无
无

不折腾kx很多年了，偶尔插花而已，不要想太多