diff options
Diffstat (limited to 'exciter')
| -rw-r--r-- | exciter/INSTALL | 15 | ||||
| -rw-r--r-- | exciter/exciter-help.pd | 71 | ||||
| -rw-r--r-- | exciter/exciter.c | 822 | ||||
| -rw-r--r-- | exciter/exciter.h | 34 | ||||
| -rw-r--r-- | exciter/exciter.tk | 123 | ||||
| -rwxr-xr-x | exciter/exciter.tk2c | 94 | ||||
| -rw-r--r-- | exciter/timeval.h | 76 | ||||
| -rwxr-xr-x | exciter/tk2c.bash | 24 |
8 files changed, 0 insertions, 1259 deletions
diff --git a/exciter/INSTALL b/exciter/INSTALL deleted file mode 100644 index 55894c3..0000000 --- a/exciter/INSTALL +++ /dev/null @@ -1,15 +0,0 @@ -untar in /my/pd/dir/externs - -cd /my/pd/dir/externs/exciter - -make clean - -make - -make install - -open help-exciter.pd - -Thanx for getting here. -Yves/ -comments and bugs @ ydegoyon@free.fr diff --git a/exciter/exciter-help.pd b/exciter/exciter-help.pd deleted file mode 100644 index ab60831..0000000 --- a/exciter/exciter-help.pd +++ /dev/null @@ -1,71 +0,0 @@ -#N canvas 103 12 970 685 10; -#X text 457 89 (invoke with <right mouse>Properties ); -#X text 458 78 You can set the following properties :; -#X text 478 110 * Width : graphical x size; -#X text 478 121 * Height : graphical y size; -#X text 612 498 bugs and comments @ ydegoyon@free.fr; -#X msg 587 271 \; pd dsp 0; -#X msg 653 271 \; pd dsp 1; -#X obj 32 56 exciter 400 200 16 0.1 1 1 1 14 1 15 3 52 5 30 5 69 6 -8 8 20 9 32 9 74 10 79 11 14 11 74 12 79 13 40 13 79 15 78; -#X text 456 50 Exciter controls a list of bang-events scheduled in -time; -#X obj 22 282 print e1; -#X text 478 132 * Number of events : number of simultaneous events -; -#X text 477 155 * Loop : looping flag; -#X msg 193 29 reset; -#X msg 103 29 pause; -#X msg 31 29 start; -#X msg 145 29 resume; -#X msg 70 29 stop; -#X text 44 363 so that events are triggered; -#X obj 653 249 loadbang; -#X msg 239 30 clear; -#X text 102 389 Note 2 : the event happens in the center (?) of the -polygon; -#X msg 286 30 dump; -#X text 478 144 * Time Grain : time grain betweeen each event; -#X obj 80 283 print e3; -#X obj 137 284 print e5; -#X obj 194 283 print e7; -#X obj 252 284 print e9; -#X obj 308 284 print e11; -#X obj 366 284 print e13; -#X obj 429 285 print e15; -#X obj 45 307 print e2; -#X obj 103 308 print e4; -#X obj 217 308 print e8; -#X obj 275 309 print e10; -#X obj 335 310 print e12; -#X obj 396 309 print e14; -#X obj 457 309 print e16; -#X obj 160 309 print e6; -#X text 523 411 ( 10 ms ) \, it won't be processed properly; -#X text 523 399 WARNING : you can't set time grain below 1 clock tick -; -#X text 46 352 Note 1 : the dsp has to be on; -#X connect 7 0 9 0; -#X connect 7 1 30 0; -#X connect 7 2 23 0; -#X connect 7 3 31 0; -#X connect 7 4 24 0; -#X connect 7 5 37 0; -#X connect 7 6 25 0; -#X connect 7 7 32 0; -#X connect 7 8 26 0; -#X connect 7 9 33 0; -#X connect 7 10 27 0; -#X connect 7 11 34 0; -#X connect 7 12 28 0; -#X connect 7 13 35 0; -#X connect 7 14 29 0; -#X connect 7 15 36 0; -#X connect 12 0 7 0; -#X connect 13 0 7 0; -#X connect 14 0 7 0; -#X connect 15 0 7 0; -#X connect 16 0 7 0; -#X connect 18 0 6 0; -#X connect 19 0 7 0; -#X connect 21 0 7 0; diff --git a/exciter/exciter.c b/exciter/exciter.c deleted file mode 100644 index 009776f..0000000 --- a/exciter/exciter.c +++ /dev/null @@ -1,822 +0,0 @@ -/* Copyright (c) 2002 Yves Degoyon. */ -/* For information on usage and redistribution, and for a DISCLAIMER OF ALL */ -/* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ -/* */ -/* exciter : a graphical object which enables */ -/* to schedule bang events on a time scale */ -/* */ -/* This program is free software; you can redistribute it and/or */ -/* modify it under the terms of the GNU General Public License */ -/* as published by the Free Software Foundation; either version 2 */ -/* of the License, or (at your option) any later version. */ -/* */ -/* See file LICENSE for further informations on licensing terms. */ -/* */ -/* This program is distributed in the hope that it will be useful, */ -/* but WITHOUT ANY WARRANTY; without even the implied warranty of */ -/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ -/* GNU General Public License for more details. */ -/* */ -/* You should have received a copy of the GNU General Public License */ -/* along with this program; if not, write to the Free Software */ -/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/* */ -/* Based on PureData by Miller Puckette and others. */ -/* */ -/* Made while listening to : */ -/* */ -/* "You're a maniac" */ -/* "To fullfill the emptyness" */ -/* Mecano ( no, not the spanish ones !!! ) - Escape The Human Myth */ -/* ---------------------------------------------------------------------------- */ - - -#include <stdlib.h> -#include <string.h> -#include <stdio.h> -#include <math.h> -#include <ctype.h> -#include <time.h> -#include <sys/time.h> -#include "m_pd.h" -#include "m_imp.h" -#include "g_canvas.h" - -#include "exciter.h" - -#ifdef NT -#include <io.h> -#else -#include <unistd.h> -#endif - -/* needed to create a exciter from PD's menu -void canvas_objtext(t_glist *gl, int xpos, int ypos, int selected, t_binbuf *b); -void canvas_startmotion(t_canvas *x); -*/ - -#define DEFAULT_EXCITER_WIDTH 200 -#define DEFAULT_EXCITER_HEIGHT 200 -#define DEFAULT_EXCITER_GRAIN 0.1 -#define DEFAULT_EXCITER_NBEVENTS 8 - -#define EXCITER_PIXEL_GRAIN 5 - -static char *exciter_version = "exciter: a bang-events sequencer, version 0.5 (ydegoyon@free.fr)"; - -t_widgetbehavior exciter_widgetbehavior; -static t_class *exciter_class; -static int excitercount=0; - -static int guidebug=0; -static int pointsize = 5; - -#define SYS_VGUI2(a,b) if (guidebug) \ - post(a,b);\ - sys_vgui(a,b) - -#define SYS_VGUI3(a,b,c) if (guidebug) \ - post(a,b,c);\ - sys_vgui(a,b,c) - -#define SYS_VGUI4(a,b,c,d) if (guidebug) \ - post(a,b,c,d);\ - sys_vgui(a,b,c,d) - -#define SYS_VGUI5(a,b,c,d,e) if (guidebug) \ - post(a,b,c,d,e);\ - sys_vgui(a,b,c,d,e) - -#define SYS_VGUI6(a,b,c,d,e,f) if (guidebug) \ - post(a,b,c,d,e,f);\ - sys_vgui(a,b,c,d,e,f) - -#define SYS_VGUI7(a,b,c,d,e,f,g) if (guidebug) \ - post(a,b,c,d,e,f,g);\ - sys_vgui(a,b,c,d,e,f,g) - -#define SYS_VGUI8(a,b,c,d,e,f,g,h) if (guidebug) \ - post(a,b,c,d,e,f,g,h);\ - sys_vgui(a,b,c,d,e,f,g,h) - -#define SYS_VGUI9(a,b,c,d,e,f,g,h,i) if (guidebug) \ - post(a,b,c,d,e,f,g,h,i);\ - sys_vgui(a,b,c,d,e,f,g,h,i) - -#define SYS_VGUI13(a,b,c,d,e,f,g,h,i,j,k,l,m) if (guidebug) \ - post(a,b,c,d,e,f,g,h,i,j,k,l,m);\ - sys_vgui(a,b,c,d,e,f,g,h,i,j,k,l,m) - -/* drawing functions */ - -/* draw an event */ -static void exciter_draw_gem(t_exciter *x, t_glist *glist, t_int ix, t_int iy) -{ - t_int polyray = ( x->x_height / x->x_nbevents) / 2; - t_canvas *canvas=glist_getcanvas(glist); - - SYS_VGUI13(".x%x.c create polygon %d %d %d %d %d %d %d %d -outline #000000 -fill #FFFFFF -tags %xEVENT%.4d%.4d\n", - canvas, - text_xpix(&x->x_obj, glist) + ix*EXCITER_PIXEL_GRAIN, - text_ypix(&x->x_obj, glist) + x->x_height - (iy+1)*x->x_height/x->x_nbevents + 2*polyray, - text_xpix(&x->x_obj, glist) + ix*EXCITER_PIXEL_GRAIN + polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (iy+1)*x->x_height/x->x_nbevents + polyray, - text_xpix(&x->x_obj, glist) + ix*EXCITER_PIXEL_GRAIN + 2*polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (iy+1)*x->x_height/x->x_nbevents, - text_xpix(&x->x_obj, glist) + ix*EXCITER_PIXEL_GRAIN + polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (iy+1)*x->x_height/x->x_nbevents - polyray, - x, ix, iy); -} - -/* delete an event */ -static void exciter_delete_gem(t_exciter *x, t_glist *glist, t_int ix, t_int iy) -{ - t_canvas *canvas=glist_getcanvas(glist); - - SYS_VGUI5(".x%x.c delete %xEVENT%.4d%.4d\n", canvas, x, ix, iy ); -} - -static void exciter_draw_update(t_exciter *x, t_glist *glist) -{ - int ei, gi; - - t_canvas *canvas=glist_getcanvas(glist); - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - if( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi) == 1 ) - { - exciter_draw_gem(x, glist, gi, ei ); - } - else - { - exciter_delete_gem(x, glist, gi, ei ); - } - } - } -} - -static void exciter_draw_new(t_exciter *x, t_glist *glist) -{ - t_canvas *canvas=glist_getcanvas(glist); - t_int ei; - - SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #902181 -tags %xLINE\n", - canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist), - text_xpix(&x->x_obj, glist)+x->x_width, text_ypix(&x->x_obj, glist)+x->x_height, - x); - SYS_VGUI5(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"0 s\" -tags %xLOWERCAPTION\n", - canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist) + x->x_height + 10, x ); - SYS_VGUI6(".x%x.c create text %d %d -font -*-courier-bold--normal--10-* -text \"%.2f s\" -tags %xHIGHERCAPTION\n", - canvas, text_xpix(&x->x_obj, glist) + x->x_width, text_ypix(&x->x_obj, glist) + x->x_height + 10, - x->x_width/EXCITER_PIXEL_GRAIN*x->x_timegrain , x); - SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xIN\n", - canvas, text_xpix(&x->x_obj, glist), - text_ypix(&x->x_obj, glist) - 2, - text_xpix(&x->x_obj, glist) + 5, - text_ypix(&x->x_obj, glist) , - x); - if ( x->x_nbevents > 1 ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xOUT%d\n", - canvas, text_xpix(&x->x_obj, glist) + ( ei * (x->x_width - 5) )/ (x->x_nbevents-1), - text_ypix(&x->x_obj, glist) + x->x_height, - text_xpix(&x->x_obj, glist) + ( ei * (x->x_width - 5) )/ (x->x_nbevents-1) + 5, - text_ypix(&x->x_obj, glist) + x->x_height + 2, - x, ei); - } - } - else - { - SYS_VGUI8(".x%x.c create rectangle %d %d %d %d -outline #000000 -fill #000000 -tags %xOUT%d\n", - canvas, text_xpix(&x->x_obj, glist), - text_ypix(&x->x_obj, glist) + x->x_height, - text_xpix(&x->x_obj, glist) + 5, - text_ypix(&x->x_obj, glist) + x->x_height + 2, - x, 0); - } - canvas_fixlinesfor( canvas, (t_text*)x ); -} - -static void exciter_draw_move(t_exciter *x, t_glist *glist) -{ - t_canvas *canvas=glist_getcanvas(glist); - t_int polyray = ( x->x_height / x->x_nbevents) / 2; - t_int ei, gi; - - SYS_VGUI7(".x%x.c coords %xLINE %d %d %d %d \n", - canvas, x, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist), - text_xpix(&x->x_obj, glist)+x->x_width, text_ypix(&x->x_obj, glist)+x->x_height - ); - SYS_VGUI5(".x%x.c coords %xLOWERCAPTION %d %d\n", - canvas, x, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist) + x->x_height + 10 ); - SYS_VGUI5(".x%x.c coords %xHIGHERCAPTION %d %d\n", - canvas, x, text_xpix(&x->x_obj, glist) + x->x_width, text_ypix(&x->x_obj, glist) + x->x_height + 10); - SYS_VGUI7(".x%x.c coords %xIN %d %d %d %d\n", - canvas, x, text_xpix(&x->x_obj, glist), - text_ypix(&x->x_obj, glist) - 2, - text_xpix(&x->x_obj, glist) + 5, - text_ypix(&x->x_obj, glist) - ); - if ( x->x_nbevents > 1 ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - SYS_VGUI8(".x%x.c coords %xOUT%d %d %d %d %d\n", - canvas, x, ei, text_xpix(&x->x_obj, glist) + ( ei * (x->x_width - 5) )/ (x->x_nbevents-1), - text_ypix(&x->x_obj, glist) + x->x_height, - text_xpix(&x->x_obj, glist) + ( ei * (x->x_width - 5) )/ (x->x_nbevents-1) + 5, - text_ypix(&x->x_obj, glist) + x->x_height + 2 - ); - } - } - else - { - SYS_VGUI8(".x%x.c coords %xOUT%d %d %d %d %d\n", - canvas, x, 0, text_xpix(&x->x_obj, glist), - text_ypix(&x->x_obj, glist) + x->x_height, - text_xpix(&x->x_obj, glist) + 5, - text_ypix(&x->x_obj, glist) + x->x_height + 2 - ); - } - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - SYS_VGUI13(".x%x.c coords %xEVENT%.4d%.4d %d %d %d %d %d %d %d %d\n", - canvas, x, gi, ei, - text_xpix(&x->x_obj, glist) + gi*EXCITER_PIXEL_GRAIN, - text_ypix(&x->x_obj, glist) + x->x_height - (ei+1)*x->x_height/x->x_nbevents + 2*polyray, - text_xpix(&x->x_obj, glist) + gi*EXCITER_PIXEL_GRAIN + polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (ei+1)*x->x_height/x->x_nbevents + polyray, - text_xpix(&x->x_obj, glist) + gi*EXCITER_PIXEL_GRAIN + 2*polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (ei+1)*x->x_height/x->x_nbevents, - text_xpix(&x->x_obj, glist) + gi*EXCITER_PIXEL_GRAIN + polyray, - text_ypix(&x->x_obj, glist) + x->x_height - (ei+1)*x->x_height/x->x_nbevents - polyray - ); - } - } - canvas_fixlinesfor( canvas, (t_text*)x ); -} - -static void exciter_draw_erase(t_exciter* x,t_glist* glist) -{ - t_canvas *canvas=glist_getcanvas(glist); - int i, ei, gi; - - SYS_VGUI3(".x%x.c delete %xLINE\n", canvas, x ); - SYS_VGUI3(".x%x.c delete %xLOWERCAPTION\n", canvas, x ); - SYS_VGUI3(".x%x.c delete %xHIGHERCAPTION\n", canvas, x ); - SYS_VGUI3(".x%x.c delete %xIN\n", canvas, x ); - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - if( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi) != 0 ) - { - exciter_delete_gem( x, glist, gi, ei ); - } - } - SYS_VGUI4(".x%x.c delete %xOUT%d\n", canvas, x, ei ); - } -} - -static void exciter_draw_select(t_exciter* x,t_glist* glist) -{ - t_canvas *canvas=glist_getcanvas(glist); - - if(x->x_selected) - { - /* sets the main item in blue */ - SYS_VGUI3(".x%x.c itemconfigure %xLINE -outline #0000FF\n", canvas, x); - - } - else - { - /* sets the main item in black */ - SYS_VGUI3(".x%x.c itemconfigure %xLINE -outline #000000\n", canvas, x); - } -} - -/* ------------------------ exciter widgetbehaviour----------------------------- */ - - -static void exciter_getrect(t_gobj *z, t_glist *owner, - int *xp1, int *yp1, int *xp2, int *yp2) -{ - t_exciter* x = (t_exciter*)z; - - *xp1 = text_xpix(&x->x_obj, owner); - *yp1 = text_ypix(&x->x_obj, owner); - *xp2 = text_xpix(&x->x_obj, owner)+x->x_width; - *yp2 = text_ypix(&x->x_obj, owner)+x->x_height; -} - -static void exciter_save(t_gobj *z, t_binbuf *b) -{ - t_exciter *x = (t_exciter *)z; - int ei,gi; - - binbuf_addv(b, "ssiisiiifii", gensym("#X"),gensym("obj"), - (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, - atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)), - x->x_width, x->x_height, - x->x_nbevents, x->x_timegrain, - x->x_loop, x->x_save - ); - if ( x->x_save ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - if( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi) == 1 ) - { - // post( "exciter : saving ( %d, %d )", ei, gi ); - binbuf_addv(b, "ii", ei, gi ); - } - } - } - } - binbuf_addv(b, ";"); -} - -static void exciter_properties(t_gobj *z, t_glist *owner) -{ - char buf[800]; - t_exciter *x=(t_exciter *)z; - - sprintf(buf, "pdtk_exciter_dialog %%s %d %d %d %.2f %d %d\n", - x->x_width, x->x_height, x->x_nbevents, x->x_timegrain, x->x_loop, x->x_save ); - // post("exciter_properties : %s", buf ); - gfxstub_new(&x->x_obj.ob_pd, x, buf); -} - -static void exciter_select(t_gobj *z, t_glist *glist, int selected) -{ - t_exciter *x = (t_exciter *)z; - - x->x_selected = selected; - exciter_draw_select( x, glist ); -} - -static void exciter_vis(t_gobj *z, t_glist *glist, int vis) -{ - t_exciter *x = (t_exciter *)z; - - post("exciter_vis : %d", vis ); - if (vis) - { - exciter_draw_new( x, glist ); - exciter_draw_update( x, glist ); - } - else - { - exciter_draw_erase( x, glist ); - } -} - - /* resuming the triggering of events */ -static void exciter_resume(t_exciter *x) -{ - x->x_started = 1; -} - - /* pausing the triggering of events */ -static void exciter_pause(t_exciter *x) -{ - x->x_started = 0; -} - - /* trigger events -- no dsp processing */ -static void exciter_dialog(t_exciter *x, t_symbol *s, int argc, t_atom *argv) -{ - t_int onbevents, owidth, ei, gi, bi; - t_canvas *canvas=glist_getcanvas(x->x_glist); - - if ( !x ) { - post( "exciter : error :tried to set properties on an unexisting object" ); - } - onbevents = x->x_nbevents; - owidth = x->x_width; - exciter_draw_erase(x, x->x_glist); - if ( argc < 6 ) - { - post( "exciter : error in the number of arguments ( %d )", argc ); - return; - } - if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT || - argv[2].a_type != A_FLOAT || argv[3].a_type != A_FLOAT || - argv[4].a_type != A_FLOAT || argv[5].a_type != A_FLOAT ) - { - post( "exciter : wrong arguments" ); - return; - } - - exciter_pause( x ); - x->x_width = argv[0].a_w.w_float; - if ( x->x_width <= 0 ) x->x_width = 100; - x->x_height = argv[1].a_w.w_float; - if ( x->x_height <= 0 ) x->x_height = 100; - x->x_nbevents = argv[2].a_w.w_float; - if ( x->x_nbevents < 1 ) x->x_nbevents = 1; - x->x_timegrain = argv[3].a_w.w_float; - if ( x->x_timegrain < 0.01 ) - { - post ("exciter : incorrect time grain : forced to 1 tick ( 10 ms )" ); - x->x_timegrain = 0.01; - } - x->x_loop = argv[4].a_w.w_float; - x->x_save = argv[5].a_w.w_float; - x->x_started = 0; - x->x_reltime = 0L; - x->x_plooptime = 0L; - x->x_gindex = -1; - x->x_looplength = x->x_timegrain * x->x_width * 1000 / EXCITER_PIXEL_GRAIN; - - // re-allocate arrays and keep old events - post( "exciter : re-allocate events" ); - if ( onbevents != x->x_nbevents || owidth != x->x_width ) - { - t_int mevents = ( onbevents > x->x_nbevents ) ? x->x_nbevents : onbevents; - t_int mwidth = ( owidth > x->x_width ) ? x->x_width : owidth; - t_int *newbangs; - - newbangs = (t_int*) getbytes( x->x_nbevents*x->x_width/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - memset( newbangs, 0x0, x->x_nbevents*x->x_width/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - for ( ei=0; ei<mevents; ei++ ) - { - for ( gi=0; gi<(mwidth/EXCITER_PIXEL_GRAIN); gi++ ) - { - *(newbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) = - *(x->x_sbangs+ei*(owidth/EXCITER_PIXEL_GRAIN)+gi ); - } - } - if ( x->x_sbangs ) - freebytes( x->x_sbangs, onbevents*owidth/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - x->x_sbangs = newbangs; - } - - // re-allocate outlets - post( "exciter : re-allocate outlets" ); - if ( onbevents != x->x_nbevents ) - { - post( "exciter : cleaning up old outlets" ); - if ( x->x_bangs ) - { - for ( ei=0; ei<onbevents; ei++ ) - { - outlet_free( x->x_bangs[ei] ); - } - freebytes( x->x_bangs, onbevents*sizeof(t_outlet*) ); - } - post( "exciter : creating new ones" ); - x->x_bangs = (t_outlet **) getbytes( x->x_nbevents*sizeof(t_outlet **) ); - for ( bi=0; bi<x->x_nbevents; bi++ ) - { - x->x_bangs[bi] = outlet_new( &x->x_obj, &s_bang ); - } - } - canvas_fixlinesfor( canvas, (t_text*)x ); - exciter_draw_new(x, x->x_glist); - exciter_draw_update(x, x->x_glist); - exciter_resume( x ); -} - -static void exciter_delete(t_gobj *z, t_glist *glist) -{ - canvas_deletelinesfor(glist, (t_text *)z); -} - -static void exciter_displace(t_gobj *z, t_glist *glist, int dx, int dy) -{ - t_exciter *x = (t_exciter *)z; - t_int xold = text_xpix(&x->x_obj, glist); - t_int yold = text_ypix(&x->x_obj, glist); - - // post( "exciter_displace dx=%d dy=%d", dx, dy ); - - x->x_obj.te_xpix += dx; - x->x_obj.te_ypix += dy; - if(xold != text_xpix(&x->x_obj, glist) || yold != text_ypix(&x->x_obj, glist)) - { - exciter_draw_move(x, glist); - } -} - -static int exciter_click(t_gobj *z, struct _glist *glist, - int xpix, int ypix, int shift, int alt, int dbl, int doit) -{ - t_exciter* x = (t_exciter *)z; - t_int nevent, npix; - - if ( doit) - { - nevent = ( 1 - ( ( ypix - ( (float)x->x_height / (float) x->x_nbevents / 2 ) - - text_ypix(&x->x_obj, glist)) / (float)x->x_height ) )*(x->x_nbevents-1); - npix = ( xpix - 1 - text_xpix(&x->x_obj, glist)) / EXCITER_PIXEL_GRAIN; - // post( "exciter : selected event (%d,%d)", nevent, npix ); - // set or unset event - { - if ( *(x->x_sbangs+nevent*(x->x_width/EXCITER_PIXEL_GRAIN)+npix ) == 1 ) - { - *(x->x_sbangs+nevent*(x->x_width/EXCITER_PIXEL_GRAIN)+npix ) = 0; - exciter_delete_gem( x, glist, npix, nevent ); - } - else - { - *(x->x_sbangs+nevent*(x->x_width/EXCITER_PIXEL_GRAIN)+npix ) = 1; - exciter_draw_gem( x, glist, npix, nevent ); - } - } - } - return (1); -} - -static t_exciter *exciter_new(t_symbol *s, int argc, t_atom *argv) -{ - int bi, i, ei, gi; - t_exciter *x; - t_pd *x2; - - // post( "exciter_new : create : %s argc =%d", s->s_name, argc ); - - x = (t_exciter *)pd_new(exciter_class); - x->x_glist = (t_glist *) canvas_getcurrent(); - // new exciter created from the gui - if ( argc != 0 ) - { - if ( argc < 6 ) - { - post( "exciter : error in the number of arguments ( %d )", argc ); - return NULL; - } - if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT || - argv[2].a_type != A_FLOAT || argv[3].a_type != A_FLOAT || - argv[4].a_type != A_FLOAT || argv[5].a_type != A_FLOAT ) - { - post( "exciter : wrong arguments" ); - return NULL; - } - - x->x_width = argv[0].a_w.w_float; - x->x_height = argv[1].a_w.w_float; - x->x_nbevents = argv[2].a_w.w_float; - if ( x->x_nbevents < 1 ) x->x_nbevents = 1; - x->x_timegrain = argv[3].a_w.w_float; - x->x_loop = argv[4].a_w.w_float; - x->x_save = argv[5].a_w.w_float; - } - else - { - x->x_width = DEFAULT_EXCITER_WIDTH; - x->x_height = DEFAULT_EXCITER_HEIGHT; - x->x_nbevents = DEFAULT_EXCITER_NBEVENTS; - x->x_timegrain = DEFAULT_EXCITER_GRAIN; - x->x_loop = 1; - x->x_save = 1; - - } - - // common fields for new and restored exciters - x->x_sbangs = (t_int*) getbytes( x->x_nbevents*x->x_width/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi) = 0; - } - } - memset( x->x_sbangs, 0x0, x->x_nbevents*x->x_width/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - x->x_selected = 0; - x->x_started = 0; - x->x_reltime = 0L; - x->x_plooptime = 0L; - x->x_gindex = -1; - x->x_looplength = x->x_timegrain * x->x_width * 1000 / EXCITER_PIXEL_GRAIN; - - x->x_bangs = (t_outlet **) getbytes( x->x_nbevents*sizeof(t_outlet **) ); - for ( bi=0; bi<x->x_nbevents; bi++ ) - { - x->x_bangs[bi] = outlet_new( &x->x_obj, &s_bang ); - } - - // post( "exciter : argc : %d", argc ); - if ( ( argc != 0 ) && ( x->x_save ) ) - { - int ai = 6; - int si = 0; - - while ( ai < argc - 1 ) - { - *(x->x_sbangs - +((int)argv[ai].a_w.w_float)*(x->x_width/EXCITER_PIXEL_GRAIN) - +(int)argv[ai+1].a_w.w_float) = 1; - ai += 2; - } - } - post( "exciter_new width: %d height : %d", x->x_width, x->x_height ); - - return (x); -} - -static void exciter_dump(t_exciter *x) -{ - t_int ei, gi; - - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - if ( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) != 0 ) - { - post( "exciter : value ( %d, %d ) : %d", ei, gi, - *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) ); - } - } - } -} - - /* clearing all events */ -static void exciter_clear(t_exciter *x) -{ - t_int ei, gi; - - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - for ( gi=0; gi<(x->x_width/EXCITER_PIXEL_GRAIN); gi++ ) - { - *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) = 0; - } - } - exciter_draw_update( x, x->x_glist ); -} - - - /* starting the triggering of events */ -static void exciter_start(t_exciter *x) -{ - x->x_started = 1; - x->x_reltime = 0L; - x->x_plooptime = 0L; - x->x_gindex = -1; -} - - /* stop the triggering of events */ -static void exciter_stop(t_exciter *x) -{ - x->x_started = 0; -} - - /* reset the triggering of events */ -static void exciter_reset(t_exciter *x) -{ - x->x_reltime = 0L; - x->x_plooptime = 0L; - x->x_gindex = -1; -} - -static t_int *exciter_perform(t_int *w) -{ - t_int ei, gi; - t_int gstart, gend; - t_exciter* x = (t_exciter*)(w[1]); - struct timeval tv; - struct timezone tz; - long long looptime = 0L; - double preltime = x->x_reltime; - t_canvas *canvas=glist_getcanvas(x->x_glist); - - if ( x->x_started ) - { - // get current time in ms - gettimeofday( &tv, &tz ); - looptime = tv.tv_sec*1000 + tv.tv_usec/1000; - if ( x->x_plooptime == 0L ) - { - x->x_plooptime = looptime; - } - x->x_reltime += ( looptime - x->x_plooptime ); - if ( x->x_reltime > x->x_looplength ) - { - if ( x->x_loop ) - { - // post( "exciter : restarting loop" ); - x->x_reltime = 0; - preltime = 0; - x->x_gindex = -1; - } - else - { - // post( "exciter : end of the loop" ); - x->x_reltime = 0; - x->x_started = 0; - } - } - gstart = preltime/(x->x_timegrain*1000); - gend = x->x_reltime/(x->x_timegrain*1000); - - // prevent overflow due to long long precision - if ( gstart > x->x_width/EXCITER_PIXEL_GRAIN-1 ) gstart = x->x_width/EXCITER_PIXEL_GRAIN-1; - if ( gstart < 0 ) gstart = 0; - if ( gend > x->x_width/EXCITER_PIXEL_GRAIN-1 ) gend = x->x_width/EXCITER_PIXEL_GRAIN-1 ; - if ( gend < 0 ) gend = 0; - if ( gstart > x->x_gindex ) - { - // post( "exciter : focus slice : (%d,%d)", gstart, gend ); - for ( gi=x->x_gindex+1; gi<=gend; gi++ ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - if ( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) == 1 ) - { - outlet_bang( x->x_bangs[ ei ] ); - SYS_VGUI5(".x%x.c itemconfigure %xEVENT%.4d%.4d -fill #00FF00\n", - canvas, x, gi, ei); - } - } - } - // unfocus previous events - if ( gstart >= x->x_width/EXCITER_PIXEL_GRAIN - 1) - gstart = x->x_width/EXCITER_PIXEL_GRAIN; // not too proud of this one - // post( "exciter : unfocus slice : (%d,%d)", x->x_gindex, gstart-1 ); - for ( gi=x->x_gindex; gi<gstart; gi++ ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - if ( *(x->x_sbangs+ei*(x->x_width/EXCITER_PIXEL_GRAIN)+gi ) == 1 ) - { - SYS_VGUI5(".x%x.c itemconfigure %xEVENT%.4d%.4d -fill #FFFFFF\n", - canvas, x, gi, ei); - } - } - } - x->x_gindex = gend; - } - } - - x->x_plooptime = looptime; - return (w+2); -} - -static void exciter_dsp(t_exciter *x, t_signal **sp) -{ - dsp_add(exciter_perform, 1, x); -} - -static void exciter_free(t_exciter *x) -{ - t_int ei; - - // post( "exciter~: exciter_free" ); - if ( x->x_bangs ) - { - for ( ei=0; ei<x->x_nbevents; ei++ ) - { - outlet_free( x->x_bangs[ei] ); - } - freebytes( x->x_bangs, x->x_nbevents*sizeof(t_outlet*) ); - } - if ( x->x_sbangs ) - { - freebytes( x->x_sbangs, x->x_nbevents*x->x_width/EXCITER_PIXEL_GRAIN*sizeof(t_int) ); - } -} - -void exciter_setup(void) -{ - post( exciter_version ); -#include "exciter.tk2c" - exciter_class = class_new(gensym("exciter"), (t_newmethod)exciter_new, - (t_method)exciter_free, sizeof(t_exciter), 0, A_GIMME, 0); - class_addmethod(exciter_class, (t_method)exciter_dialog, gensym("dialog"), A_GIMME, 0); - class_addmethod(exciter_class, (t_method)exciter_dump, gensym("dump"), 0); - class_addmethod(exciter_class, (t_method)exciter_clear, gensym("clear"), 0); - class_addmethod(exciter_class, (t_method)exciter_start, gensym("start"), 0); - class_addmethod(exciter_class, (t_method)exciter_stop, gensym("stop"), 0); - class_addmethod(exciter_class, (t_method)exciter_reset, gensym("reset"), 0); - class_addmethod(exciter_class, (t_method)exciter_pause, gensym("pause"), 0); - class_addmethod(exciter_class, (t_method)exciter_resume, gensym("resume"), 0); - class_addmethod(exciter_class, (t_method)exciter_dsp, gensym("dsp"), A_NULL); - exciter_widgetbehavior.w_getrectfn = exciter_getrect; - exciter_widgetbehavior.w_displacefn = exciter_displace; - exciter_widgetbehavior.w_selectfn = exciter_select; - exciter_widgetbehavior.w_activatefn = NULL; - exciter_widgetbehavior.w_deletefn = exciter_delete; - exciter_widgetbehavior.w_visfn = exciter_vis; - exciter_widgetbehavior.w_clickfn = exciter_click; - -#if PD_MINOR_VERSION >= 37 - class_setpropertiesfn(exciter_class, exciter_properties); - class_setsavefn(exciter_class, exciter_save); -#else - exciter_widgetbehavior.w_propertiesfn = exciter_properties; - exciter_widgetbehavior.w_savefn = exciter_save; -#endif - - class_setwidget(exciter_class, &exciter_widgetbehavior); - -} diff --git a/exciter/exciter.h b/exciter/exciter.h deleted file mode 100644 index 81076a1..0000000 --- a/exciter/exciter.h +++ /dev/null @@ -1,34 +0,0 @@ -/* Copyright (c) 2002 Yves Degoyon -* For information on usage and redistribution, and for a DISCLAIMER OF ALL -* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ - -/* a header for exciter which enables -* to trigger bang events scheduled with the mouse -*/ - -#ifndef __G_EXCITER_H -#define __G_EXCITER_H - -typedef struct _exciter -{ - t_object x_obj; - t_glist *x_glist; - t_outlet **x_bangs; - t_int x_height; /* height of the exciter */ - t_int x_width; /* width of the exciter */ - t_int x_nbevents; /* number of simultaneous events */ - t_float x_timegrain; /* time granularity for one pixel */ - t_int *x_sbangs; /* scheduled bangs */ - int x_selected; /* stores selected state */ - int x_loop; /* looping flag */ - int x_save; /* saving contents flag */ - - /* internal processing */ - long long x_plooptime; /* initial time */ - long long x_reltime; /* elapsed time since start */ - long long x_looplength; /* length of a loop */ - t_int x_started; /* start flag */ - t_int x_gindex; /* last scanned index */ -} t_exciter; - -#endif diff --git a/exciter/exciter.tk b/exciter/exciter.tk deleted file mode 100644 index c0280e6..0000000 --- a/exciter/exciter.tk +++ /dev/null @@ -1,123 +0,0 @@ -############ exciter procedures -- ydegoyon@free.fr ######### - -proc exciter_apply {id} { -# strip "." from the TK id to make a variable name suffix - set vid [string trimleft $id .] -# for each variable, make a local variable to hold its name... - set var_graph_width [concat graph_width_$vid] - global $var_graph_width - set var_graph_height [concat graph_height_$vid] - global $var_graph_height - set var_graph_nbevents [concat graph_nbevents_$vid] - global $var_graph_nbevents - set var_graph_timegrain [concat graph_timegrain_$vid] - global $var_graph_timegrain - set var_graph_loop [concat graph_loop_$vid] - global $var_graph_loop - set var_graph_save [concat graph_save_$vid] - global $var_graph_save - - set cmd [concat $id dialog \ - [eval concat $$var_graph_width] \ - [eval concat $$var_graph_height] \ - [eval concat $$var_graph_nbevents] \ - [eval concat $$var_graph_timegrain] \ - [eval concat $$var_graph_loop] \ - [eval concat $$var_graph_save] \;] - #puts stderr $cmd - pd $cmd -} - -proc exciter_cancel {id} { - set cmd [concat $id cancel \;] - #puts stderr $cmd - pd $cmd -} - -proc exciter_ok {id} { - exciter_apply $id - exciter_cancel $id -} - -proc pdtk_exciter_dialog {id width height nbevents timegrain loop save } { - set vid [string trimleft $id .] - - set var_graph_width [concat graph_width_$vid] - global $var_graph_width - set var_graph_height [concat graph_height_$vid] - global $var_graph_height - set var_graph_nbevents [concat graph_nbevents_$vid] - global $var_graph_nbevents - set var_graph_timegrain [concat graph_timegrain_$vid] - global $var_graph_timegrain - set var_graph_loop [concat graph_loop_$vid] - global $var_graph_loop - set var_graph_save [concat graph_save_$vid] - global $var_graph_save - - set $var_graph_width $width - set $var_graph_height $height - set $var_graph_nbevents $nbevents - set $var_graph_timegrain $timegrain - set $var_graph_loop $loop - set $var_graph_save $save - - toplevel $id - wm title $id {exciter} - wm protocol $id WM_DELETE_WINDOW [concat exciter_cancel $id] - - label $id.label -text {EXCITER PROPERTIES} - pack $id.label -side top - - frame $id.buttonframe - pack $id.buttonframe -side bottom -fill x -pady 2m - button $id.buttonframe.cancel -text {Cancel}\ - -command "exciter_cancel $id" - button $id.buttonframe.apply -text {Apply}\ - -command "exciter_apply $id" - button $id.buttonframe.ok -text {OK}\ - -command "exciter_ok $id" - pack $id.buttonframe.cancel -side left -expand 1 - pack $id.buttonframe.apply -side left -expand 1 - pack $id.buttonframe.ok -side left -expand 1 - - frame $id.1rangef - pack $id.1rangef -side top - label $id.1rangef.lwidth -text "Width :" - entry $id.1rangef.width -textvariable $var_graph_width -width 7 - pack $id.1rangef.lwidth $id.1rangef.width -side left - - frame $id.2rangef - pack $id.2rangef -side top - label $id.2rangef.lheight -text "Height :" - entry $id.2rangef.height -textvariable $var_graph_height -width 7 - pack $id.2rangef.lheight $id.2rangef.height -side left - - frame $id.3rangef - pack $id.3rangef -side top - label $id.3rangef.lnbevents -text "Nb Events :" - entry $id.3rangef.nbevents -textvariable $var_graph_nbevents -width 7 - pack $id.3rangef.lnbevents $id.3rangef.nbevents -side left - - frame $id.4rangef - pack $id.4rangef -side top - label $id.4rangef.ltimegrain -text "Time Grain (seconds) :" - entry $id.4rangef.timegrain -textvariable $var_graph_timegrain -width 7 - pack $id.4rangef.ltimegrain $id.4rangef.timegrain -side left - - checkbutton $id.loop -text {Loop} -variable $var_graph_loop \ - -anchor w - pack $id.loop -side top - - checkbutton $id.save -text {Save contents} -variable $var_graph_save \ - -anchor w - pack $id.save -side top - - bind $id.1rangef.width <KeyPress-Return> [concat exciter_ok $id] - bind $id.2rangef.height <KeyPress-Return> [concat exciter_ok $id] - bind $id.3rangef.nbevents <KeyPress-Return> [concat exciter_ok $id] - bind $id.4rangef.timegrain <KeyPress-Return> [concat exciter_ok $id] - focus $id.1rangef.width -} - -############ exciter procedures END -- ydegoyon@free.fr ######### diff --git a/exciter/exciter.tk2c b/exciter/exciter.tk2c deleted file mode 100755 index e201737..0000000 --- a/exciter/exciter.tk2c +++ /dev/null @@ -1,94 +0,0 @@ -// ########### exciter procedures -- ydegoyon@free.fr ######### -sys_gui("proc exciter_apply {id} {\n"); -// strip "." from the TK id to make a variable name suffix -sys_gui("set vid [string trimleft $id .]\n"); -// for each variable, make a local variable to hold its name... -sys_gui("set var_graph_width [concat graph_width_$vid]\n"); -sys_gui("global $var_graph_width\n"); -sys_gui("set var_graph_height [concat graph_height_$vid]\n"); -sys_gui("global $var_graph_height\n"); -sys_gui("set var_graph_nbevents [concat graph_nbevents_$vid]\n"); -sys_gui("global $var_graph_nbevents\n"); -sys_gui("set var_graph_timegrain [concat graph_timegrain_$vid]\n"); -sys_gui("global $var_graph_timegrain\n"); -sys_gui("set var_graph_loop [concat graph_loop_$vid]\n"); -sys_gui("global $var_graph_loop\n"); -sys_gui("set var_graph_save [concat graph_save_$vid]\n"); -sys_gui("global $var_graph_save\n"); -sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_nbevents] [eval concat $$var_graph_timegrain] [eval concat $$var_graph_loop] [eval concat $$var_graph_save] \\;]\n"); -// puts stderr $cmd -sys_gui("pd $cmd\n"); -sys_gui("}\n"); -sys_gui("proc exciter_cancel {id} {\n"); -sys_gui("set cmd [concat $id cancel \\;]\n"); -// puts stderr $cmd -sys_gui("pd $cmd\n"); -sys_gui("}\n"); -sys_gui("proc exciter_ok {id} {\n"); -sys_gui("exciter_apply $id\n"); -sys_gui("exciter_cancel $id\n"); -sys_gui("}\n"); -sys_gui("proc pdtk_exciter_dialog {id width height nbevents timegrain loop save } {\n"); -sys_gui("set vid [string trimleft $id .]\n"); -sys_gui("set var_graph_width [concat graph_width_$vid]\n"); -sys_gui("global $var_graph_width\n"); -sys_gui("set var_graph_height [concat graph_height_$vid]\n"); -sys_gui("global $var_graph_height\n"); -sys_gui("set var_graph_nbevents [concat graph_nbevents_$vid]\n"); -sys_gui("global $var_graph_nbevents\n"); -sys_gui("set var_graph_timegrain [concat graph_timegrain_$vid]\n"); -sys_gui("global $var_graph_timegrain\n"); -sys_gui("set var_graph_loop [concat graph_loop_$vid]\n"); -sys_gui("global $var_graph_loop\n"); -sys_gui("set var_graph_save [concat graph_save_$vid]\n"); -sys_gui("global $var_graph_save\n"); -sys_gui("set $var_graph_width $width\n"); -sys_gui("set $var_graph_height $height\n"); -sys_gui("set $var_graph_nbevents $nbevents\n"); -sys_gui("set $var_graph_timegrain $timegrain\n"); -sys_gui("set $var_graph_loop $loop\n"); -sys_gui("set $var_graph_save $save\n"); -sys_gui("toplevel $id\n"); -sys_gui("wm title $id {exciter}\n"); -sys_gui("wm protocol $id WM_DELETE_WINDOW [concat exciter_cancel $id]\n"); -sys_gui("label $id.label -text {EXCITER PROPERTIES}\n"); -sys_gui("pack $id.label -side top\n"); -sys_gui("frame $id.buttonframe\n"); -sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); -sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"exciter_cancel $id\"\n"); -sys_gui("button $id.buttonframe.apply -text {Apply} -command \"exciter_apply $id\"\n"); -sys_gui("button $id.buttonframe.ok -text {OK} -command \"exciter_ok $id\"\n"); -sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); -sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); -sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); -sys_gui("frame $id.1rangef\n"); -sys_gui("pack $id.1rangef -side top\n"); -sys_gui("label $id.1rangef.lwidth -text \"Width :\"\n"); -sys_gui("entry $id.1rangef.width -textvariable $var_graph_width -width 7\n"); -sys_gui("pack $id.1rangef.lwidth $id.1rangef.width -side left\n"); -sys_gui("frame $id.2rangef\n"); -sys_gui("pack $id.2rangef -side top\n"); -sys_gui("label $id.2rangef.lheight -text \"Height :\"\n"); -sys_gui("entry $id.2rangef.height -textvariable $var_graph_height -width 7\n"); -sys_gui("pack $id.2rangef.lheight $id.2rangef.height -side left\n"); -sys_gui("frame $id.3rangef\n"); -sys_gui("pack $id.3rangef -side top\n"); -sys_gui("label $id.3rangef.lnbevents -text \"Nb Events :\"\n"); -sys_gui("entry $id.3rangef.nbevents -textvariable $var_graph_nbevents -width 7\n"); -sys_gui("pack $id.3rangef.lnbevents $id.3rangef.nbevents -side left\n"); -sys_gui("frame $id.4rangef\n"); -sys_gui("pack $id.4rangef -side top\n"); -sys_gui("label $id.4rangef.ltimegrain -text \"Time Grain (seconds) :\"\n"); -sys_gui("entry $id.4rangef.timegrain -textvariable $var_graph_timegrain -width 7\n"); -sys_gui("pack $id.4rangef.ltimegrain $id.4rangef.timegrain -side left\n"); -sys_gui("checkbutton $id.loop -text {Loop} -variable $var_graph_loop -anchor w\n"); -sys_gui("pack $id.loop -side top\n"); -sys_gui("checkbutton $id.save -text {Save contents} -variable $var_graph_save -anchor w\n"); -sys_gui("pack $id.save -side top\n"); -sys_gui("bind $id.1rangef.width <KeyPress-Return> [concat exciter_ok $id]\n"); -sys_gui("bind $id.2rangef.height <KeyPress-Return> [concat exciter_ok $id]\n"); -sys_gui("bind $id.3rangef.nbevents <KeyPress-Return> [concat exciter_ok $id]\n"); -sys_gui("bind $id.4rangef.timegrain <KeyPress-Return> [concat exciter_ok $id]\n"); -sys_gui("focus $id.1rangef.width\n"); -sys_gui("}\n"); -// ########### exciter procedures END -- ydegoyon@free.fr ######### diff --git a/exciter/timeval.h b/exciter/timeval.h deleted file mode 100644 index ff04962..0000000 --- a/exciter/timeval.h +++ /dev/null @@ -1,76 +0,0 @@ -/*
- * timeval.h 1.0 01/12/19
- *
- * Defines gettimeofday, timeval, etc. for Win32
- *
- * By Wu Yongwei
- *
- */
-
-#ifndef _TIMEVAL_H
-#define _TIMEVAL_H
-
-#ifdef _WIN32
-
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#include <time.h>
-
-#ifndef __GNUC__
-#define EPOCHFILETIME (116444736000000000i64)
-#else
-#define EPOCHFILETIME (116444736000000000LL)
-#endif /* not __GNUC__ */
-
-#if 0
-struct timeval {
- long tv_sec; /* seconds */
- long tv_usec; /* microseconds */
-};
-#endif /* 0 */
-
-struct timezone {
- int tz_minuteswest; /* minutes W of Greenwich */
- int tz_dsttime; /* type of dst correction */
-};
-
-__inline int gettimeofday(struct timeval *tv, struct timezone *tz)
-{
- FILETIME ft;
- LARGE_INTEGER li;
- __int64 t;
- static int tzflag;
-
- if (tv)
- {
- GetSystemTimeAsFileTime(&ft);
- li.LowPart = ft.dwLowDateTime;
- li.HighPart = ft.dwHighDateTime;
- t = li.QuadPart; /* In 100-nanosecond intervals */
- t -= EPOCHFILETIME; /* Offset to the Epoch time */
- t /= 10; /* In microseconds */
- tv->tv_sec = (long)(t / 1000000);
- tv->tv_usec = (long)(t % 1000000);
- }
-
- if (tz)
- {
- if (!tzflag)
- {
- _tzset();
- tzflag++;
- }
- tz->tz_minuteswest = _timezone / 60;
- tz->tz_dsttime = _daylight;
- }
-
- return 0;
-}
-
-#else /* _WIN32 */
-
-#include <sys/time.h>
-
-#endif /* _WIN32 */
-
-#endif /* _TIMEVAL_H */
diff --git a/exciter/tk2c.bash b/exciter/tk2c.bash deleted file mode 100755 index 9dfeb03..0000000 --- a/exciter/tk2c.bash +++ /dev/null @@ -1,24 +0,0 @@ -#!/bin/bash - -#set -x - -while read line -do - for word in $line - do - if [ "X"$word != "X"${word#\#} ] - then - echo // ${line#\#} - break - else - line=${line//\'/\\\'} -#useless, slashes never gets in - line=${line//\\/\\\\} -#this one's dirty, i know - line=${line//;/\\\\;} - line=${line//\"/\\\"} - echo 'sys_gui("'$line'\n");' - break - fi - done -done |