JSFX JESUSONICFX

WAVEFORM METER

desc:WAVEFORM METER//tags: analysis scope meter//author: PROYECTOS DRZ based on Cockos
slider1:0<0,3,1{Left,Right,Mid,Side}>Channel 1 Modeslider2:1<0,4,1{Off,Left,Right,Mid,Side}>Channel 2 Modeslider3:1<0,2,1{Static (Cyan/Pink),Custom Hex Colors,Color Map (Heat)}>Color Modeslider4:1<0,2,1{Off,Fast,Slow}>History (Ghost Trail)slider5:100<5,5000,10>Speed / Zoom (ms)slider6:0<-12,24,0.1>Visual Gain (dB)
in_pin:left inputin_pin:right inputoptions:no_meter
@initgfx_ext_retina == 0 ? gfx_ext_retina = 1;
// ==========================================================// --- TUS COLORES (MODIFICA ESTO) ---// ==========================================================
color_low_hex = 0xFF0000; // BAJOS (Rojo)color_mid_hex = 0x00FF22; // MEDIOS (Verde)color_hi_hex = 0x0015FF; // AGUDOS (Azul)
// ==========================================================
// --- CONVERSION DE COLORES (No tocar) ---c_l_r = ((color_low_hex & 0xFF0000) / 65536) / 255;c_l_g = ((color_low_hex & 0x00FF00) / 256) / 255;c_l_b = (color_low_hex & 0x0000FF) / 255;
c_m_r = ((color_mid_hex & 0xFF0000) / 65536) / 255;c_m_g = ((color_mid_hex & 0x00FF00) / 256) / 255;c_m_b = (color_mid_hex & 0x0000FF) / 255;
c_h_r = ((color_hi_hex & 0xFF0000) / 65536) / 255;c_h_g = ((color_hi_hex & 0x00FF00) / 256) / 255;c_h_b = (color_hi_hex & 0x0000FF) / 255;
// --- CONFIGURACIÓN DE UI ---UI_SLIDER_MASK = (1<<15)-1; sliders_showing = 0; slider_show(UI_SLIDER_MASK, 0);
// --- MEMORIA CIRCULAR ---MAX_TIME_S = 5; histsize = srate * MAX_TIME_S;
// Offsets de memoriamem_c1_l = 0;mem_c1_m = histsize;mem_c1_h = histsize * 2;mem_c1_pk = histsize * 3; mem_c1_raw = histsize * 4;
mem_c2_l = histsize * 5;mem_c2_m = histsize * 6;mem_c2_h = histsize * 7;mem_c2_pk = histsize * 8;mem_c2_raw = histsize * 9;
recpos = 0; lp_f = 200; hp_f = 3000; env1 = 0; env2 = 0;
@sliderch1_mode = slider1; ch2_mode = slider2 - 1; ch2_on = (slider2 > 0);col_mode = slider3; hist_mode = slider4; view_msec = slider5; vis_gain = 10^(slider6/20);
decay = (hist_mode == 1) ? 0.92 : 0.99;
@blockalp = exp(-2 * $pi * lp_f / srate);ahp = exp(-2 * $pi * hp_f / srate);
@samplefunction get_src(sel, l, r) ( sel==0?l:sel==1?r:sel==2?(l+r)*0.5:(l-r)*0.5 );
s1 = get_src(ch1_mode, spl0, spl1);s2 = ch2_on ? get_src(ch2_mode, spl0, spl1) : 0;
// --- C1 ---l1 = (s1*(1-alp)) + (ll1*alp); ll1=l1; h1 = s1-ls1+(lh1*ahp); lh1=h1; ls1=s1; m1 = s1 - l1 - h1;env1 = max(env1 * decay, abs(s1));
mem_c1_l[recpos] = abs(l1);mem_c1_m[recpos] = abs(m1);mem_c1_h[recpos] = abs(h1);mem_c1_pk[recpos] = env1;mem_c1_raw[recpos] = abs(s1);
// --- C2 ---ch2_on ? (    l2 = (s2*(1-alp)) + (ll2*alp); ll2=l2;     h2 = s2-ls2+(lh2*ahp); lh2=h2; ls2=s2;     m2 = s2 - l2 - h2;    env2 = max(env2 * decay, abs(s2));        mem_c2_l[recpos] = abs(l2);    mem_c2_m[recpos] = abs(m2);    mem_c2_h[recpos] = abs(h2);    mem_c2_pk[recpos] = env2;    mem_c2_raw[recpos] = abs(s2););
recpos = (recpos + 1);recpos >= histsize ? recpos = 0;
@gfx 640 360
has_click = (mouse_cap&1) && !(last_cap&1);last_cap = mouse_cap;
gfx_r=0.05; gfx_g=0.05; gfx_b=0.05; gfx_a=1;gfx_rect(0,0,gfx_w,gfx_h);
lane_h = ch2_on ? gfx_h / 2 : gfx_h;cy1 = ch2_on ? lane_h / 2 : gfx_h / 2;cy2 = ch2_on ? lane_h + (lane_h / 2) : 0;
function draw_grid(cy, h) (    scale_6db = 0.5 * (h/2) * 0.95 * vis_gain;    scale_3db = 0.707 * (h/2) * 0.95 * vis_gain;    gfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.1;    gfx_line(0, cy - scale_6db, gfx_w, cy - scale_6db);    gfx_line(0, cy + scale_6db, gfx_w, cy + scale_6db);    gfx_a=0.05;    gfx_line(0, cy - scale_3db, gfx_w, cy - scale_3db);    gfx_line(0, cy + scale_3db, gfx_w, cy + scale_3db););
draw_grid(cy1, lane_h);ch2_on ? draw_grid(cy2, lane_h);
viewsize_spls = (view_msec * 0.001 * srate) | 0;rdptr_start = recpos - viewsize_spls;rdptr_start < 0 ? rdptr_start += histsize;viewadv = viewsize_spls / gfx_w;
function draw_lane(start_ptr, cy, h, m_l, m_m, m_h, m_pk, m_raw, is_ch2) (    max_h = (h/2) * 0.95;     curr_ptr_float = start_ptr;    x = 0;        loop(gfx_w,         v_l=0; v_m=0; v_h=0; v_pk=0; v_raw=0;        read_idx = floor(curr_ptr_float);        scan_count = max(1, floor(viewadv));        step_scan = 1;        scan_count > 64 ? ( step_scan = scan_count / 64; scan_count = 64; );
        i = 0;        loop(scan_count,            idx = floor(read_idx);            idx >= histsize ? idx -= histsize;            v_l = max(v_l, m_l[idx]);            v_m = max(v_m, m_m[idx]);            v_h = max(v_h, m_h[idx]);            v_pk = max(v_pk,m_pk[idx]);            v_raw = max(v_raw, m_raw[idx]);            read_idx += step_scan;            i+=1;        );                v_raw *= vis_gain;        v_pk *= vis_gain;
        // History        hist_mode > 0 ? (           ph = v_pk * max_h;           ph > h/2 ? ph = h/2;           gfx_a = 0.2;            gfx_r=1; gfx_g=1; gfx_b=1;           gfx_rect(x, cy - ph, 1, ph*2);        );
        // Onda Principal        len = v_raw * max_h;        len > h/2 ? len = h/2;                 col_mode == 0 ? (             is_ch2 ? (gfx_r=1; gfx_g=0.4; gfx_b=0.8) : (gfx_r=0.2; gfx_g=1; gfx_b=1);        ) : col_mode == 1 ? (             // --- MODO PERSONALIZADO VIVID ---            // Usamos la misma formula de intensidad del original            // pero aplicamos tus colores.                        total = v_l + v_m + v_h;            tot_div = total + 0.0001;                        // Calculamos intensidad de cada banda (curva Vivid)            int_l = pow(v_l/tot_div, 0.7) * 1.6;            int_m = pow(v_m/tot_div, 0.7) * 1.2;            int_h = pow(v_h/tot_div, 0.7) * 1.9;
            // Mezcla ADITIVA (Suma de luces) con tus colores            gfx_r = (c_l_r * int_l) + (c_m_r * int_m) + (c_h_r * int_h);            gfx_g = (c_l_g * int_l) + (c_m_g * int_m) + (c_h_g * int_h);            gfx_b = (c_l_b * int_l) + (c_m_b * int_m) + (c_h_b * int_h);
            // Limitamos a 1 para que no se "queme" (opcional, pero seguro)            gfx_r = min(gfx_r, 1);            gfx_g = min(gfx_g, 1);            gfx_b = min(gfx_b, 1);
        ) : (             // Heatmap            hot = min(v_raw*3, 1);            gfx_r = hot;             gfx_g = max(hot-0.5, 0)*2;             gfx_b = 1-hot;        );
        gfx_a=1;        gfx_rect(x, cy - len, 1, len*2);                x += 1;        curr_ptr_float += viewadv;        curr_ptr_float >= histsize ? curr_ptr_float -= histsize;    ););
draw_lane(rdptr_start, cy1, lane_h, mem_c1_l, mem_c1_m, mem_c1_h, mem_c1_pk, mem_c1_raw, 0);
ch2_on ? (    draw_lane(rdptr_start, cy2, lane_h, mem_c2_l, mem_c2_m, mem_c2_h, mem_c2_pk, mem_c2_raw, 1);    gfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.1;    gfx_line(0, gfx_h/2, gfx_w, gfx_h/2););
// Textogfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.8; gfx_setfont(1, "Arial", 12, 'b');
gfx_x=10; gfx_y=cy1 - lane_h/2 + 10;gfx_drawstr("CH1: ");ch1_mode==0?gfx_drawstr("Left"):ch1_mode==1?gfx_drawstr("Right"):ch1_mode==2?gfx_drawstr("Mid"):gfx_drawstr("Side");
ch2_on ? (    gfx_x=10; gfx_y=cy2 - lane_h/2 + 10;    gfx_drawstr("CH2: ");    sel=slider2-1;     sel==0?gfx_drawstr("Left"):sel==1?gfx_drawstr("Right"):sel==2?gfx_drawstr("Mid"):gfx_drawstr("Side"););
// Botón Ajustesgfx_mode = 0; btn_w = 60; btn_h = 20;btn_x = gfx_w - btn_w - 5; btn_y = 5;
is_hover = (mouse_x >= btn_x && mouse_x <= btn_x+btn_w && mouse_y >= btn_y && mouse_y <= btn_y+btn_h);gfx_r=0.3; gfx_g=0.3; gfx_b=0.3; gfx_a=1;is_hover ? (gfx_r+=0.2; gfx_g+=0.2; gfx_b+=0.2;);gfx_rect(btn_x, btn_y, btn_w, btn_h);
gfx_setfont(1, "Arial", 12, 'b');gfx_x = btn_x + 5; gfx_y = btn_y + 4;gfx_r=1; gfx_g=1; gfx_b=1;gfx_drawstr("[AJUSTES]");
has_click && is_hover ? (    sliders_showing = !sliders_showing;    slider_show(UI_SLIDER_MASK, -1););

STEREOMETER

desc:Stereometer //tags: analysis goniometer vectorscope visualizer//author: PROYECTOS DRZ based on Cockos
slider1:3<0,4,1{Scaled - Unipolar (Fan),Scaled - Bipolar (Diamond),Linear - Unipolar (Fan),Linear - Bipolar (Diamond),Lissajous (Raw Phase)}>Styleslider2:2<0,2,1{Static (White),RGB (Rainbow),Multi-band (RGB Layers)}>Colorslider3:0<0,10,1>Thickness / Point Size (0=Fine Lines)slider4:1<0,1,1{Off,On}>Normalize (Auto-Gain)slider5:2<0,2,1{Off,Single Band,Multi-band}>Correlationslider6:1<0,1,1{Off,On}>Guidesslider7:15<1,100,1>Decay Speed
in_pin:left inputin_pin:right inputoptions:no_meter
@initgfx_ext_retina == 0 ? gfx_ext_retina = 1;
UI_SLIDER_MASK = (1<<15)-1; sliders_showing = 0; slider_show(UI_SLIDER_MASK, 0);
// --- FUNCIONES ---function draw_corr(val, cx, y, r, g, b, lbl) (    bar_h = 5; max_w = 90;    val = max(-1, min(1, val));    len = val * max_w;    val < 0 ? ( gfx_r=1; gfx_g=0.2; gfx_b=0.2; ) : ( gfx_r=r; gfx_g=g; gfx_b=b; );    gfx_a = 0.9;    val >= 0 ? gfx_rect(cx, y, len, bar_h) : gfx_rect(cx+len, y, -len, bar_h);    gfx_setfont(1, "Arial", 9); gfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.5;    gfx_x = cx - max_w - 35; gfx_y = y - 1;    gfx_drawstr(lbl););
mem_l_main = 0; mem_r_main = 4000;mem_l_low = 8000; mem_r_low = 12000;mem_l_mid = 16000; mem_r_mid = 20000;mem_l_hi = 24000; mem_r_hi = 28000;
buf_size = 2048; w_pos = 0;
lp_freq = 200; hp_freq = 2500;peak = 0.001;c_l=0; c_m=0; c_h=0; c_t=0;
@sliderstyle = slider1;col_mode = slider2;pt_size = slider3;norm_on = slider4;corr_mode = slider5;guides_on = slider6;decay = slider7 / 1000;
is_unipolar = (style == 0 || style == 2);is_scaled = (style == 0 || style == 1);is_lissajous = (style == 4);
@blockalp = exp(-2 * $pi * lp_freq / srate);ahp = exp(-2 * $pi * hp_freq / srate);
@samplelow_l = (spl0*(1-alp)) + (last_ll*alp); low_r = (spl1*(1-alp)) + (last_lr*alp);last_ll=low_l; last_lr=low_r;
hi_l = spl0-l_s0+(last_hl*ahp); hi_r = spl1-l_s1+(last_hr*ahp);last_hl=hi_l; last_hr=hi_r; l_s0=spl0; l_s1=spl1;
mid_l = spl0 - low_l - hi_l; mid_r = spl1 - low_r - hi_r;
mem_l_main[w_pos]=spl0; mem_r_main[w_pos]=spl1;mem_l_low[w_pos]=low_l; mem_r_low[w_pos]=low_r;mem_l_mid[w_pos]=mid_l; mem_r_mid[w_pos]=mid_r;mem_l_hi[w_pos]=hi_l; mem_r_hi[w_pos]=hi_r;w_pos = (w_pos+1)%buf_size;
k=0.005;c_t=(c_t*(1-k)) + (((spl0*spl1)/((spl0*spl0+spl1*spl1)*0.5+0.00001))*k);c_l=(c_l*(1-k)) + (((low_l*low_r)/((low_l*low_l+low_r*low_r)*0.5+0.00001))*k);c_m=(c_m*(1-k)) + (((mid_l*mid_r)/((mid_l*mid_l+mid_r*mid_r)*0.5+0.00001))*k);c_h=(c_h*(1-k)) + (((hi_l*hi_r)/((hi_l*hi_l+hi_r*hi_r)*0.5+0.00001))*k);
@gfx 500 500
has_click = (mouse_cap&1) && !(last_cap&1);last_cap = mouse_cap;
// Fondogfx_r=0.05; gfx_g=0.05; gfx_b=0.06; gfx_a=1;gfx_rect(0,0,gfx_w,gfx_h);
cx = gfx_w/2;off_h = corr_mode > 0 ? 50 : 0;avail_h = gfx_h - off_h;
is_unipolar ? (    cy = avail_h - 10;    dim = min(gfx_w, avail_h) * 0.9;) : (    cy = avail_h / 2;    dim = min(gfx_w, avail_h) * 0.45;);
norm_on ? (    max_s = 0; i=0;    loop(50, idx=rand(buf_size); s=abs(mem_l_main[idx])+abs(mem_r_main[idx]); s>max_s?max_s=s; i+=1;);    peak = max(peak*(1-decay), max_s);    scale = dim / (peak + 0.001);) : ( scale = dim; );
guides_on ? (    gfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.15;    is_unipolar ? (        gfx_line(cx, cy, cx, cy-dim);        spread = dim * 0.707;        gfx_line(cx, cy, cx-spread, cy-dim);        gfx_line(cx, cy, cx+spread, cy-dim);        gfx_circle(cx, cy, dim*0.5, 0);         gfx_circle(cx, cy, dim, 0);    ) : (        gfx_line(cx, cy-dim, cx, cy+dim);        gfx_line(cx-dim, cy, cx+dim, cy);        d_in = dim * 0.5;        gfx_line(cx, cy-d_in, cx+d_in, cy);        gfx_line(cx+d_in, cy, cx, cy+d_in);        gfx_line(cx, cy+d_in, cx-d_in, cy);        gfx_line(cx-d_in, cy, cx, cy-d_in);        gfx_a = 0.3;         gfx_line(cx, cy-dim, cx+dim, cy);         gfx_line(cx+dim, cy, cx, cy+dim);         gfx_line(cx, cy+dim, cx-dim, cy);         gfx_line(cx-dim, cy, cx, cy-dim);     ););
function draw_scope(buf_l, buf_r, r, g, b, alpha) (    gfx_r=r; gfx_g=g; gfx_b=b; gfx_a=alpha;    ii = 0; step = 1; idx_d = w_pos; first = 1;    use_lines = (pt_size == 0);
    loop(buf_size/step,        idx = (idx_d + ii) % buf_size;        l = buf_l[idx]; r = buf_r[idx];                // --- AQUÍ ESTÁ EL ARREGLO ---        // Si el "Auto-Gain" (Normalize) está apagado,        // forzamos que la señal nunca pase de 1.0 (el borde de la guia)        // Esto evita el desbordamiento.        norm_on == 0 ? (           l = max(-1, min(1, l));           r = max(-1, min(1, r));        );        // ---------------------------                side = (l - r) * 0.707;        mid = (l + r) * 0.707;                is_unipolar ? (            mid = abs(mid);             is_scaled ? ( side = (side>=0?1:-1)*pow(abs(side), 0.6); mid = pow(mid, 0.6); );            px = cx + side * scale;            py = cy - mid * scale;        ) : (            is_scaled ? (                 side = (side>=0?1:-1)*pow(abs(side), 0.6);                 mid = (mid>=0?1:-1)*pow(abs(mid), 0.6);             );            px = cx + side * scale;            py = cy - mid * scale;        );                use_lines ? (             first ? ( gfx_x=px; gfx_y=py; first=0; ) : ( gfx_lineto(px,py,1); );         ) : (             gfx_circle(px, py, pt_size, 1);         );        ii += step;    ););
// Rendergfx_mode = 1;
// Capas suavescol_mode == 2 ? (     draw_scope(mem_l_hi, mem_r_hi, 0.2, 0.6, 1.0, 0.15);     draw_scope(mem_l_mid, mem_r_mid, 0.2, 1.0, 0.2, 0.15);     draw_scope(mem_l_low, mem_r_low, 1.0, 0.3, 0.2, 0.20); ) : col_mode == 1 ? (     draw_scope(mem_l_main, mem_r_main, 0.8, 0.8, 0.9, 0.15); ) : (     draw_scope(mem_l_main, mem_r_main, 0.9, 0.9, 0.95, 0.15););
gfx_mode = 0;corr_mode > 0 ? (    y_start = gfx_h - 45;    gfx_r=0; gfx_g=0; gfx_b=0; gfx_a=0.7;    corr_mode == 2 ? gfx_rect(cx-95, y_start, 190, 40) : gfx_rect(cx-95, y_start+15, 190, 20);    corr_mode == 1 ? ( draw_corr(c_t, cx, y_start+22, 0.9, 0.9, 0.9, "Corr"); ) :     (        draw_corr(c_h, cx, y_start+5, 0.2, 0.8, 1.0, "High");        draw_corr(c_m, cx, y_start+15, 0.2, 1.0, 0.2, "Mid");        draw_corr(c_l, cx, y_start+25, 1.0, 0.3, 0.2, "Low");    ););
gfx_mode = 0; btn_w = 60; btn_h = 20;btn_x = gfx_w - btn_w - 5; btn_y = 5;is_hover = (mouse_x >= btn_x && mouse_x <= btn_x+btn_w && mouse_y >= btn_y && mouse_y <= btn_y+btn_h);gfx_r=0.3; gfx_g=0.3; gfx_b=0.3; gfx_a=1;is_hover ? (gfx_r+=0.2; gfx_g+=0.2; gfx_b+=0.2;);gfx_rect(btn_x, btn_y, btn_w, btn_h);gfx_setfont(1, "Arial", 12, 'b');gfx_x = btn_x + 5; gfx_y = btn_y + 4;gfx_r=1; gfx_g=1; gfx_b=1;gfx_drawstr("[AJUSTES]");has_click && is_hover ? ( sliders_showing = slider_show(UI_SLIDER_MASK, -1) > 0; );