Mercurial > audlegacy-plugins
view src/paranormal/wave.c @ 866:d8b8b36d2709 trunk
[svn] - prevent skin list overlap when it's first populated and user quickly switchs to other tabs in the prefswin
author | giacomo |
---|---|
date | Fri, 16 Mar 2007 18:47:24 -0700 |
parents | 3d0b7ca9c8eb |
children | 3b034150d31e |
line wrap: on
line source
#ifdef HAVE_CONFIG_H # include <config.h> #endif #include <math.h> #include "paranormal.h" #include "actuators.h" #include "pn_utils.h" #include "drawing.h" #include "libcalc/calc.h" /* **************** wave_horizontal **************** */ struct pn_actuator_option_desc wave_horizontal_opts[] = { {"channels", "Which sound channels to use: negative = channel 1, \npositive = channel 2, " "zero = both (two wave-forms.)", OPT_TYPE_INT, {ival: -1} }, {"value", "The colour value to use.", OPT_TYPE_INT, {ival: 255} }, {"lines", "Use lines instead of dots.", OPT_TYPE_BOOLEAN, {bval: TRUE} }, { NULL } }; static void wave_horizontal_exec_dots (const struct pn_actuator_option *opts, gpointer data) { int i; int channel = ( opts[0].val.ival < 0 ) ? 0 : 1; guchar value = (opts[1].val.ival < 0 || opts[1].val.ival > 255) ? 255 : opts[1].val.ival; for (i=0; i<pn_image_data->width; i++) { /*single channel, centered horz.*/ if ( opts[0].val.ival ) { pn_image_data->surface[0][PN_IMG_INDEX (i, (pn_image_data->height>>1) - CAP (pn_sound_data->pcm_data[channel] [i*512/pn_image_data->width]>>8, (pn_image_data->height>>1)-1))] = value; } /*both channels, at 1/4 and 3/4 of the screen*/ else { pn_image_data->surface[0][PN_IMG_INDEX( i, (pn_image_data->height>>2) - CAP( (pn_sound_data->pcm_data[0] [i*512/pn_image_data->width]>>9), (pn_image_data->height>>2)-1))] = value; pn_image_data->surface[0][PN_IMG_INDEX( i, 3*(pn_image_data->height>>2) - CAP( (pn_sound_data->pcm_data[1] [i*512/pn_image_data->width]>>9), (pn_image_data->height>>2)-1))] = value; } } } void wave_horizontal_exec_lines (const struct pn_actuator_option *opts, gpointer data) { int channel = ( opts[0].val.ival < 0 ) ? 0 : 1; guchar value = (opts[1].val.ival < 0 || opts[1].val.ival > 255) ? 255 : opts[1].val.ival; int *x_pos, *y_pos; /* dynamic tables which store the positions for the line */ int *x2_pos, *y2_pos; /* dynamic tables which store the positions for the line */ int i; float step; x_pos = g_new0(int, 257); y_pos = g_new0(int, 257); x2_pos = g_new0(int, 257); y2_pos = g_new0(int, 257); step = pn_image_data->width / 256.; /* calculate the line. */ for (i = 0; i < 256; i++) { if (opts[0].val.ival != 0) { x_pos[i] = i * step; y_pos[i] = (pn_image_data->height>>1) - CAP (pn_sound_data->pcm_data[channel][i * 2]>>8, (pn_image_data->height>>1)-1); } else { x_pos[i] = i * step; y_pos[i] = (pn_image_data->height>>2) - CAP (pn_sound_data->pcm_data[0][i * 2]>>9, (pn_image_data->height>>2)-1); x2_pos[i] = i * step; y2_pos[i] = 3*(pn_image_data->height>>2) - CAP (pn_sound_data->pcm_data[1][i * 2]>>9, (pn_image_data->height>>2)-1); } } /* draw the line. */ for (i = 1; i < 256; i++) { pn_draw_line(x_pos[i - 1], y_pos[i - 1], x_pos[i], y_pos[i], value); if ( opts[0].val.ival == 0 ) pn_draw_line(x2_pos[i - 1], y2_pos[i - 1], x2_pos[i], y2_pos[i], value); } g_free(x_pos); g_free(y_pos); g_free(x2_pos); g_free(y2_pos); } static void wave_horizontal_exec (const struct pn_actuator_option *opts, gpointer data) { if (opts[2].val.bval == TRUE) wave_horizontal_exec_lines(opts, data); else wave_horizontal_exec_dots(opts, data); } struct pn_actuator_desc builtin_wave_horizontal = { "wave_horizontal", "Horizontal Waveform", "Draws one or two waveforms horizontally across " "the drawing surface", 0, wave_horizontal_opts, NULL, NULL, wave_horizontal_exec }; /* **************** wave_vertical **************** */ struct pn_actuator_option_desc wave_vertical_opts[] = { {"channels", "Which sound channels to use: negative = channel 1, \npositive = channel 2, " "zero = both (two wave-forms.)", OPT_TYPE_INT, {ival: -1} }, {"value", "The colour value to use.", OPT_TYPE_INT, {ival: 255} }, {"lines", "Use lines instead of dots.", OPT_TYPE_BOOLEAN, {bval: TRUE} }, { NULL } }; static void wave_vertical_exec_dots (const struct pn_actuator_option *opts, gpointer data) { int i; int channel = ( opts[0].val.ival < 0 ) ? 0 : 1; guchar value = (opts[1].val.ival < 0 || opts[1].val.ival > 255) ? 255 : opts[1].val.ival; for (i=0; i<pn_image_data->height; i++) { if ( opts[0].val.ival ) { pn_image_data->surface[0][PN_IMG_INDEX ((pn_image_data->width>>1) - CAP (pn_sound_data->pcm_data[channel] [i*512/pn_image_data->height]>>8, (pn_image_data->width>>1)-1), i)] = value; } else { pn_image_data->surface[0][PN_IMG_INDEX ((pn_image_data->width>>2) - CAP (pn_sound_data->pcm_data[0] [i*512/pn_image_data->height]>>9, (pn_image_data->width>>2)-1), i)] = value; pn_image_data->surface[0][PN_IMG_INDEX ((3*pn_image_data->width>>2) -CAP (pn_sound_data->pcm_data[1] [i*512/pn_image_data->height]>>9, (pn_image_data->width>>2)-1), i)] = value; } } } static void wave_vertical_exec_lines (const struct pn_actuator_option *opts, gpointer data) { int channel = ( opts[0].val.ival < 0 ) ? 0 : 1; guchar value = (opts[1].val.ival < 0 || opts[1].val.ival > 255) ? 255 : opts[1].val.ival; int *x_pos, *y_pos; /* dynamic tables which store the positions for the line */ int *x2_pos, *y2_pos; /* dynamic tables which store the positions for the line */ int i; float step; x_pos = g_new0(int, 129); y_pos = g_new0(int, 129); x2_pos = g_new0(int, 129); y2_pos = g_new0(int, 129); step = pn_image_data->height / 128.; /* calculate the line. */ for (i = 0; i < 128; i++) { if (opts[0].val.ival != 0) { x_pos[i] = (pn_image_data->width>>1) - CAP (pn_sound_data->pcm_data[channel] [i*4]>>8, (pn_image_data->width>>1)-1); y_pos[i] = i * step; } else { x_pos[i] = (pn_image_data->width>>2) - CAP (pn_sound_data->pcm_data[0] [i*4]>>9, (pn_image_data->width>>2)-1); y_pos[i] = i * step; x2_pos[i] = 3*(pn_image_data->width>>2) - CAP (pn_sound_data->pcm_data[1] [i*4]>>9, (pn_image_data->width>>2)-1); y2_pos[i] = i * step; } } /* draw the line. */ for (i = 1; i < 128; i++) { pn_draw_line(x_pos[i - 1], y_pos[i - 1], x_pos[i], y_pos[i], value); if ( opts[0].val.ival == 0 ) pn_draw_line(x2_pos[i - 1], y2_pos[i - 1], x2_pos[i], y2_pos[i], value); } g_free(x_pos); g_free(y_pos); g_free(x2_pos); g_free(y2_pos); } static void wave_vertical_exec (const struct pn_actuator_option *opts, gpointer data) { if (opts[2].val.bval == TRUE) wave_vertical_exec_lines(opts, data); else wave_vertical_exec_dots(opts, data); } struct pn_actuator_desc builtin_wave_vertical = { "wave_vertical", "Vertical Waveform", "Draws one or two waveforms vertically across " "the drawing surface", 0, wave_vertical_opts, NULL, NULL, wave_vertical_exec }; /* FIXME: allow for only 1 channel for wave_normalize & wave_smooth */ /* **************** wave_normalize **************** */ static struct pn_actuator_option_desc wave_normalize_opts[] = { { "height", "If positive, the height, in pixels, to which the waveform will be " "normalized; if negative, hfrac is used", OPT_TYPE_INT, { ival: -1 } }, { "hfrac", "If positive, the fraction of the horizontal image size to which the " "waveform will be normalized; if negative, vfrac is used", OPT_TYPE_FLOAT, { fval: -1 } }, { "vfrac", "If positive, the fraction of the vertical image size to which the " "waveform will be normalized", OPT_TYPE_FLOAT, { fval: .125 } }, { "channels", "Which sound channel(s) to normalize: negative = channel 1,\n" "\tpositive = channel 2, 0 = both channels.", OPT_TYPE_INT, { ival: 0 } }, { NULL } }; static void wave_normalize_exec (const struct pn_actuator_option *opts, gpointer data) { int i, j, max=0; float denom; for (j=0; j<2; j++) { if ( !(opts[3].val.ival) || (opts[3].val.ival < 0 && j == 0) || (opts[3].val.ival > 0 && j == 1) ) { for (i=0; i<512; i++) if (abs(pn_sound_data->pcm_data[j][i]) > max) max = abs(pn_sound_data->pcm_data[j][i]); if (opts[0].val.ival > 0) denom = max/(opts[0].val.ival<<8); else if (opts[1].val.fval > 0) denom = max/(opts[1].val.fval * (pn_image_data->width<<8)); else denom = max/(opts[2].val.fval * (pn_image_data->height<<8)); if (denom > 0) for (i=0; i<512; i++) pn_sound_data->pcm_data[j][i] /= denom; } } } struct pn_actuator_desc builtin_wave_normalize = { "wave_normalize", "Normalize Waveform Data", "Normalizes the waveform data used by the wave_* actuators", 0, wave_normalize_opts, NULL, NULL, wave_normalize_exec }; /* **************** wave_smooth **************** */ struct pn_actuator_option_desc wave_smooth_opts[] = { { "channels", "Which sound channel(s) to smooth: negative = channel 1, \n" "\tpositive = channel 2, 0 = both channels.", OPT_TYPE_INT, { ival: 0 } }, {0} }; static void wave_smooth_exec (const struct pn_actuator_option *opts, gpointer data) { int i, j, k; gint16 tmp[512]; for (j=0; j<2; j++) { if ( !(opts[0].val.ival) || (opts[0].val.ival < 0 && j == 0) || (opts[0].val.ival > 0 && j == 1) ) { for (i=4; i<508; i++) { k = (pn_sound_data->pcm_data[j][i]<<3) + (pn_sound_data->pcm_data[j][i+1]<<2) + (pn_sound_data->pcm_data[j][i-1]<<2) + (pn_sound_data->pcm_data[j][i+2]<<2) + (pn_sound_data->pcm_data[j][i-2]<<2) + (pn_sound_data->pcm_data[j][i+3]<<1) + (pn_sound_data->pcm_data[j][i-3]<<1) + (pn_sound_data->pcm_data[j][i+4]<<1) + (pn_sound_data->pcm_data[j][i-4]<<1); tmp[i] = k >> 5; } memcpy (pn_sound_data->pcm_data[j]+4, tmp, sizeof (gint16) * 504); } } } struct pn_actuator_desc builtin_wave_smooth = { "wave_smooth", "Smooth Waveform Data", "Smooth out the waveform data used by the wave_* actuators", 0, wave_smooth_opts, NULL, NULL, wave_smooth_exec }; /* **************** wave_radial **************** */ static struct pn_actuator_option_desc wave_radial_opts[] = { { "base_radius", " ", OPT_TYPE_FLOAT, { fval: 0 } }, {"value", "The colour value to use.", OPT_TYPE_INT, {ival: 255} }, /* {"lines", "Use lines instead of dots.", OPT_TYPE_BOOLEAN, {bval: TRUE} }, */ { NULL } }; static void wave_radial_exec (const struct pn_actuator_option *opts, gpointer data) { int i, x, y; guchar value = (opts[1].val.ival < 0 || opts[1].val.ival > 255) ? 255 : opts[1].val.ival; for(i=0; i<360; i++) { x = (pn_image_data->width>>1) + (opts[0].val.fval + (pn_sound_data->pcm_data[0][(int)(i*(512.0/360.0))]>>8)) * cos_val[i]; y = (pn_image_data->height>>1) + (opts[0].val.fval + (pn_sound_data->pcm_data[0][(int)(i*(512.0/360.0))]>>8)) * sin_val[i]; pn_image_data->surface[0][PN_IMG_INDEX (CAPHILO(x,pn_image_data->width,0), CAPHILO(y,pn_image_data->height,0))] = value; } }; struct pn_actuator_desc builtin_wave_radial = { "wave_radial", "Radial Waveform", "Draws a single waveform varying" " radially from the center of the image", 0, wave_radial_opts, NULL, NULL, wave_radial_exec }; /* **************** wave_scope **************** */ static struct pn_actuator_option_desc wave_scope_opts[] = { {"init_script", "Initialization script.", OPT_TYPE_STRING, {sval: "n = 800; t = -0.05;"} }, {"frame_script", "Script to run at the beginning of each frame.", OPT_TYPE_STRING, {sval: "t = t + 0.05;"} }, {"sample_script", "Script to run for each sample.", OPT_TYPE_STRING, {sval: "d = index + value; r = t + index * 3.141952924 * 4; x = cos(r) * d; y = sin(r) * d;"} }, {"lines", "Use lines instead of dots.", OPT_TYPE_BOOLEAN, {bval: TRUE} }, { NULL } }; struct pn_scope_data { expression_t *expr_on_init, *expr_on_frame, *expr_on_sample; symbol_dict_t *dict; gboolean reset; }; static void wave_scope_init(gpointer *data) { *data = g_new0(struct pn_scope_data, 1); /* the expressions will need to be compiled, so prepare for that */ ((struct pn_scope_data *)*data)->reset = TRUE; } static void wave_scope_cleanup(gpointer op_data) { struct pn_scope_data *data = (struct pn_scope_data *) op_data; g_return_if_fail(data != NULL); if (data->expr_on_init) expr_free(data->expr_on_init); if (data->expr_on_frame) expr_free(data->expr_on_frame); if (data->expr_on_sample) expr_free(data->expr_on_sample); if (data->dict) dict_free(data->dict); if (data) g_free(data); } static void wave_scope_exec(const struct pn_actuator_option *opts, gpointer op_data) { struct pn_scope_data *data = (struct pn_scope_data *) op_data; gint i; gdouble *xf, *yf, *index, *value, *points; if (data->reset) { if (data->dict) dict_free(data->dict); data->dict = dict_new(); if (opts[0].val.sval != NULL) data->expr_on_init = expr_compile_string(opts[0].val.sval, data->dict); if (opts[1].val.sval != NULL) data->expr_on_frame = expr_compile_string(opts[1].val.sval, data->dict); if (opts[2].val.sval != NULL) data->expr_on_sample = expr_compile_string(opts[2].val.sval, data->dict); if (data->expr_on_init != NULL) expr_execute(data->expr_on_init, data->dict); data->reset = FALSE; } xf = dict_variable(data->dict, "x"); yf = dict_variable(data->dict, "y"); index = dict_variable(data->dict, "index"); value = dict_variable(data->dict, "value"); points = dict_variable(data->dict, "points"); if (data->expr_on_frame != NULL) expr_execute(data->expr_on_frame, data->dict); if (*points > 513 || *points == 0) *points = 513; if (data->expr_on_sample != NULL) { for (i = 0; i < *points; i++) { gint x, y; static gint oldx, oldy; *value = 1.0 * pn_sound_data->pcm_data[0][i & 511] / 32768.0; *index = i / (*points - 1); expr_execute(data->expr_on_sample, data->dict); x = (gint)(((*xf + 1.0) * (pn_image_data->width - 1) / 2) + 0.5); y = (gint)(((*yf + 1.0) * (pn_image_data->height - 1) / 2) + 0.5); if (i != 0) pn_draw_line(oldx, oldy, x, y, 255); oldx = x; oldy = y; } } } struct pn_actuator_desc builtin_wave_scope = { "wave_scope", "Scope", "A programmable scope.", 0, wave_scope_opts, wave_scope_init, wave_scope_cleanup, wave_scope_exec };