Embedded Files
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););
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
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; );
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; );
desc:Minimeters Waveform Replica (Pure Color - No Burn)
//tags: analysis waveform visualizer
//author: Gemini
slider1:0<0,3,1{Left,Right,Mid,Side}>Channel 1
slider2:1<0,4,1{Off,Left,Right,Mid,Side}>Channel 2
slider3:1<0,1,1{Static (White),Multi-band (Dynamic Map)}>Color Mode
slider4:1<0,2,1{Off,Fast,Slow}>History (Ghost Trail)
slider5:6<1,10,1>Zoom / Speed
in_pin:left input
in_pin:right input
options:no_meter
@init
gfx_ext_retina == 0 ? gfx_ext_retina = 1;
// Configuración de Memoria
max_len = 16384;
b1_m = 0; b1_l = 20000; b1_md = 40000; b1_h = 60000; b1_pk = 80000;
b2_m = 100000; b2_l = 120000; b2_md = 140000; b2_h = 160000; b2_pk = 180000;
w_idx = 0;
lp_f = 200; hp_f = 2500;
env1 = 0; env2 = 0;
@slider
ch1_s = slider1;
ch2_s = slider2 - 1;
ch2_on = (slider2 > 0);
col_mode = slider3;
hist_mode = slider4;
speed_zoom = slider5;
decay = (hist_mode == 1) ? 0.92 : 0.98;
samps_per_px = (11 - speed_zoom) * 40;
@block
alp = exp(-2 * $pi * lp_f / srate);
ahp = exp(-2 * $pi * hp_f / srate);
@sample
function get_s(sel, l, r) ( sel==0?l:sel==1?r:sel==2?(l+r)*0.5:(l-r)*0.5 );
s1 = get_s(ch1_s, spl0, spl1);
s2 = ch2_on ? get_s(ch2_s, spl0, spl1) : 0;
// --- PROCESO 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));
acc1_m = max(acc1_m, abs(s1));
acc1_l = max(acc1_l, abs(l1));
acc1_md= max(acc1_md, abs(m1));
acc1_h = max(acc1_h, abs(h1));
// --- PROCESO 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));
acc2_m = max(acc2_m, abs(s2));
acc2_l = max(acc2_l, abs(l2));
acc2_md= max(acc2_md, abs(m2));
acc2_h = max(acc2_h, abs(h2));
);
cnt += 1;
cnt >= samps_per_px ? (
b1_m[w_idx] = acc1_m; b1_l[w_idx] = acc1_l; b1_md[w_idx] = acc1_md; b1_h[w_idx] = acc1_h; b1_pk[w_idx] = env1;
ch2_on ? (
b2_m[w_idx] = acc2_m; b2_l[w_idx] = acc2_l; b2_md[w_idx] = acc2_md; b2_h[w_idx] = acc2_h; b2_pk[w_idx] = env2;
);
w_idx = (w_idx + 1) % max_len;
acc1_m=0; acc1_l=0; acc1_md=0; acc1_h=0;
acc2_m=0; acc2_l=0; acc2_md=0; acc2_h=0;
cnt = 0;
);
@gfx 600 300
// Fondo Negro Absoluto
gfx_r=0; gfx_g=0; gfx_b=0; 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_pure_slice(x, v_m, v_l, v_md, v_h, v_pk, cy, h) (
max_h = (h/2) * 0.95;
// 1. DIBUJAR GHOST TRAIL (Detrás)
hist_mode > 0 ? (
ph = v_pk * max_h;
gfx_r=0.15; gfx_g=0.15; gfx_b=0.15; gfx_a=1;
gfx_rect(x, cy - ph, 1, ph*2);
);
// 2. DIBUJAR ONDA DINÁMICA
len = v_m * max_h;
col_mode == 1 ? (
// Algoritmo de Color por Dominancia (Evita el blanco quemado)
total = v_l + v_md + v_h + 0.0001;
// Calculamos la influencia de cada banda
r = (v_l / total);
g = (v_md / total);
b = (v_h / total);
// Asignamos el color final a la onda única
gfx_r = r * 1.2; // Un poco de boost al rojo para los bajos
gfx_g = g * 0.9;
gfx_b = b * 1.5; // Boost al azul para los brillos
) : (
gfx_r=1; gfx_g=1; gfx_b=1;
);
gfx_a=1;
gfx_rect(x, cy - len, 1, len*2);
);
// RENDER LOOP
read_p = w_idx - 1;
i = 0;
gfx_mode = 0; // Modo normal para evitar sumas de brillo indeseadas
loop(gfx_w,
read_p < 0 ? read_p += max_len;
x = gfx_w - 1 - i;
draw_pure_slice(x, b1_m[read_p], b1_l[read_p], b1_md[read_p], b1_h[read_p], b1_pk[read_p], cy1, lane_h);
ch2_on ? draw_pure_slice(x, b2_m[read_p], b2_l[read_p], b2_md[read_p], b2_h[read_p], b2_pk[read_p], cy2, lane_h);
read_p -= 1;
i += 1;
);
// Labels
gfx_r=1; gfx_g=1; gfx_b=1; gfx_a=0.3;
gfx_x=5; gfx_y=cy1 - (lane_h/2) + 5;
ch1_s==0?gfx_drawstr("L"):ch1_s==1?gfx_drawstr("R"):ch1_s==2?gfx_drawstr("M"):gfx_drawstr("S");
ch2_on ? (
gfx_x=5; gfx_y=cy2 - (lane_h/2) + 5;
sel=slider2-1;
sel==0?gfx_drawstr("L"):sel==1?gfx_drawstr("R"):sel==2?gfx_drawstr("M"):gfx_drawstr("S");
gfx_a=0.1; gfx_line(0, gfx_h/2, gfx_w, gfx_h/2);
);
Page updated
Google Sites
Report abuse