got everything building using the template Makefile

svn path=/trunk/externals/unauthorized/; revision=15173

8 files changed, 0 insertions, 1177 deletions

diff --git a/scratcher~/INSTALL b/scratcher~/INSTALL
deleted file mode 100644
index a99e2c1..0000000
--- a/scratcher~/INSTALL
+++ /dev/null
@@ -1,15 +0,0 @@
-untar in /my/pd/dir/externs
-
-cd /my/pd/dir/externs/scratcher~
-
-make clean 
-
-make
-
-make install
-
-open help-scratcher~.pd
-
-Thanx for getting here.
-Yves/
-comments and bugs @ ydegoyon@free.fr
diff --git a/scratcher~/rs-scratcher~.pd b/scratcher~/rs-scratcher~.pd
deleted file mode 100644
index 87b0026..0000000
--- a/scratcher~/rs-scratcher~.pd
+++ /dev/null
@@ -1,103 +0,0 @@
-#N canvas 106 13 862 585 10;
-#X msg 36 550 \; pd dsp 1;
-#X msg 101 551 \; pd dsp 0;
-#X text 24 13 Scratcher~ : lets you record a sound;
-#X text 23 24 and \, then \, scratch it !!!;
-#X text 599 557 Comments and bugs @ ydegoyon@free.fr;
-#X obj 313 260 scratcher~ 151290 200 200 200 2 1e-04;
-#X obj 302 475 *~ 1;
-#X obj 334 474 / 100;
-#X floatatom 373 474 5 0 0;
-#X msg 31 88 bang;
-#X obj 31 108 openpanel;
-#X msg 33 227 resize \$1;
-#X obj 31 130 t s b;
-#X obj 31 168 pack s s;
-#X msg 33 189 read -resize \$1 \$2;
-#X obj 77 128 float \$0;
-#X obj 100 168 makefilename %d-sonosample;
-#X text 32 68 Step 1 : Load a sound file;
-#X obj 31 147 route float;
-#X text 84 80 ( a small one );
-#X msg 524 45 play;
-#X text 522 24 Step 3 : Play the sound and scratch with the mouse;
-#X msg 559 45 stop;
-#X msg 527 243 reset;
-#X text 572 246 Reset normal reading speed;
-#X obj 36 524 loadbang;
-#X text 469 493 Note : the red line indicates the reading speed;
-#X text 446 527 Note 2 : only vertical movement will change reading
-speed;
-#X obj 176 557 table \$0-sonosample;
-#X msg 524 88 sensibility \$1;
-#X msg 561 65 25;
-#X floatatom 659 66 5 0 0;
-#X msg 524 66 5;
-#X text 620 88 Set mouse sensibility ( default : 25 );
-#X obj 33 206 soundfiler;
-#X msg 607 223 showspeed 1;
-#X msg 527 223 showspeed 0;
-#X text 687 221 Toggle speed line display;
-#X msg 305 119 record;
-#X msg 269 119 bang;
-#X text 214 98 Step 2 : Record the sound;
-#X floatatom 664 120 5 0 0;
-#X msg 526 141 maxspeed \$1;
-#X text 603 140 Set speed limit ( default : 2 );
-#X msg 526 119 2;
-#X msg 569 119 1.5;
-#X msg 603 119 1;
-#X msg 635 119 0.5;
-#X obj 257 146 tabplay~ \$0-sonosample;
-#X msg 592 65 100;
-#X msg 622 65 200;
-#X floatatom 645 174 5 0 0;
-#X text 603 193 Set turntable inertia ( default : 0.01 );
-#X msg 525 193 inertia \$1;
-#X msg 609 173 0.01;
-#X msg 570 173 0.001;
-#X msg 526 173 1e-04;
-#X obj 289 509 outlet~;
-#X connect 5 0 6 0;
-#X connect 6 0 57 0;
-#X connect 7 0 6 1;
-#X connect 8 0 7 0;
-#X connect 9 0 10 0;
-#X connect 10 0 12 0;
-#X connect 11 0 5 0;
-#X connect 12 0 13 0;
-#X connect 12 1 15 0;
-#X connect 13 0 14 0;
-#X connect 14 0 34 0;
-#X connect 15 0 18 0;
-#X connect 16 0 13 1;
-#X connect 18 0 16 0;
-#X connect 20 0 5 0;
-#X connect 22 0 5 0;
-#X connect 23 0 5 0;
-#X connect 25 0 0 0;
-#X connect 29 0 5 0;
-#X connect 30 0 29 0;
-#X connect 31 0 29 0;
-#X connect 32 0 29 0;
-#X connect 34 0 11 0;
-#X connect 35 0 5 0;
-#X connect 36 0 5 0;
-#X connect 38 0 5 0;
-#X connect 39 0 38 0;
-#X connect 39 0 48 0;
-#X connect 41 0 42 0;
-#X connect 42 0 5 0;
-#X connect 44 0 42 0;
-#X connect 45 0 42 0;
-#X connect 46 0 42 0;
-#X connect 47 0 42 0;
-#X connect 48 0 5 0;
-#X connect 48 0 6 0;
-#X connect 49 0 29 0;
-#X connect 50 0 29 0;
-#X connect 51 0 53 0;
-#X connect 53 0 5 0;
-#X connect 54 0 53 0;
-#X connect 55 0 53 0;
-#X connect 56 0 53 0;
diff --git a/scratcher~/scratcher~-help.pd b/scratcher~/scratcher~-help.pd
deleted file mode 100644
index 4a9149c..0000000
--- a/scratcher~/scratcher~-help.pd
+++ /dev/null
@@ -1,7 +0,0 @@
-#N canvas 0 0 450 300 10;
-#X obj 174 121 rs-scratcher~;
-#X text 201 77 Playing with the block size \,;
-#X text 201 87 so everything's in the subpatch;
-#X obj 171 160 dac~;
-#X connect 0 0 3 0;
-#X connect 0 0 3 1;
diff --git a/scratcher~/scratcher~.c b/scratcher~/scratcher~.c
deleted file mode 100644
index 6adba91..0000000
--- a/scratcher~/scratcher~.c
+++ /dev/null
@@ -1,817 +0,0 @@
-/*------------------------ scratcher~ ------------------------------------------ */
-/*                                                                              */
-/* scratcher~ : lets you record, and then, scratch a sound.                     */
-/* constructor : scratcher~                                                     */
-/*                                                                              */
-/* Copyleft Yves Degoyon ( ydegoyon@free.fr )                                   */
-/*                                                                              */
-/* 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.                             */
-/*                                                                              */
-/* "I've lost my kids and wife"                                                 */
-/* "Because I got high da da dap da da dap"                                     */
-/* Afro Man -- Because I Got High                                               */
-/* ---------------------------------------------------------------------------- */
-
-
-
-#include <sys/types.h>
-#include <string.h>
-#include <stdio.h>
-#include <errno.h>
-#include <stdlib.h>
-#include <fcntl.h>
-#include <sys/stat.h>
-#ifdef __APPLE__  
-#include <sys/malloc.h>  
-#else
-#include <malloc.h>
-#endif
-#include <ctype.h>
-#include <pthread.h>
-#include <time.h>
-#include <sys/time.h>
-#ifdef UNIX
-#include <unistd.h>
-#endif
-#ifdef NT
-#define M_PI 3.14159265358979323846
-#endif
-#include <math.h>
-
-#include "m_pd.h"
-#include "m_imp.h"
-#include "g_canvas.h"
-
-
-static int guidebug=0;
-static int ignorevisible=1; // ignore visible test
-                         // because this seems to lead to bad refresh
-                         // wait for a fix                            
-
-#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_VGUI10(a,b,c,d,e,f,g,h,i,j) if (guidebug) \
-                         post(a,b,c,d,e,f,g,h,i,j );\
-                         sys_vgui(a,b,c,d,e,f,g,h,i,j)
-
-#define SYS_VGUI11(a,b,c,d,e,f,g,h,i,j,k) if (guidebug) \
-                         post(a,b,c,d,e,f,g,h,i,j,k );\
-                         sys_vgui(a,b,c,d,e,f,g,h,i,j,k)
-
-#define DEFAULT_SCRATCHER_SIZE 88200   // 2 seconds at 44100 hertz
-#define DEFAULT_SCRATCHER_WIDTH 200  
-#define DEFAULT_SCRATCHER_HEIGHT 200  
-#define DEFAULT_SCRATCHER_SENSIBILITY 25  
-#define DEFAULT_SCRATCHER_MAX_SPEED 2.0
-#define DEFAULT_TURNTABLE_INERTIA 0.01  
-
-#define SCRATCHER_NB_GROOVES 20  
-#define SCRATCHER_MOVE_TIMEOUT 20
-
-static char   *scratcher_version = "scratcher~: version 0.10, written by Yves Degoyon (ydegoyon@free.fr)";
-
-static t_class *scratcher_class;
-t_widgetbehavior scratcher_widgetbehavior;
-
-typedef struct _scratcher
-{
-    t_object x_obj;
-
-    t_int x_size;                  /* size of the recorded sound ( in samples ) */
-    t_float x_samplerate;          /* sample rate */
-    t_int x_blocksize;             /* current block size ( might be modified by block~ object ) */
-    t_float x_readpos;             /* data's playing position */
-    t_int x_writepos;              /* data's recording position */
-    t_int x_play;                  /* playing on/off flag */
-    t_float x_readspeed;           /* number of grouped blocks for reading */
-    t_float x_maxspeed;            /* maximum speed limit                  */
-    t_float x_record;              /* flag to start recording process */
-    t_int x_empty;                 /* flag to indicate it's a brand new scratcher   */
-    t_float x_speedinc;            /* speed increment                               */
-    long long x_lastmovetime;      /* instant ( in ms ) of the last movement        */
-    t_float *x_sdata;              /* sound data                                */
-    t_int   x_sensibility;         /* sensibility ( amount of change for a dy ) */
-    t_int   x_motioned;            /* flag to indicate the mouse motion         */
-    t_int   x_mousemoved;          /* flag to indicate the mouse movement       */
-    t_float x_inertia;             /* turntable inertia                         */
-
-           /* graphical data block */
-    t_int x_selected;              /* flag to remember if we are seleted or not   */
-    t_int x_width;                 /* width of the graphical object               */
-    t_int x_height;                /* height of the graphical object              */
-    t_int x_showspeed;             /* toggle on/off speed line                    */
-    t_glist *x_glist;              /* keep graphic context for various operations */
-
-    t_float x_f;                   /* float needed for signal input */
-
-} t_scratcher;
-
-/* ------------------------ drawing functions ---------------------------- */
-
-static void scratcher_draw_new(t_scratcher *x, t_glist *glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-  t_int ci;
-
-    SYS_VGUI7(".x%x.c create oval %d %d %d %d -fill #000000 -tags %xSCRATCHER\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);
-    for ( ci=0; ci<SCRATCHER_NB_GROOVES; ci ++)
-    {
-      SYS_VGUI8(".x%x.c create oval %d %d %d %d -outline #FFFFFF -tags %xGROOVE%d\n",
-	     canvas, text_xpix(&x->x_obj, glist) + ci*x->x_width/(2*SCRATCHER_NB_GROOVES), 
-             text_ypix(&x->x_obj, glist) + ci*x->x_height/(2*SCRATCHER_NB_GROOVES),
-	     text_xpix(&x->x_obj, glist) + x->x_width - ci*x->x_width/(2*SCRATCHER_NB_GROOVES), 
-             text_ypix(&x->x_obj, glist) + x->x_height - ci*x->x_height/(2*SCRATCHER_NB_GROOVES),
-	     x, ci);
-    }
-    if ( x->x_showspeed )
-    {
-       SYS_VGUI7( ".x%x.c create line %d %d %d %d -fill #FF0000 -tags %xSPEEDBAR -width 3\n",
-               canvas, text_xpix(&x->x_obj, glist)+x->x_width/2,
-               text_ypix(&x->x_obj, glist)+x->x_height/2,
-               text_xpix(&x->x_obj, glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1. )),
-               text_ypix(&x->x_obj, glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1. )), 
-               x );
-    }
-    SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xFSCRATCHER\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);
-    canvas_fixlinesfor( canvas, (t_text*)x );
-}
-
-static void scratcher_draw_delete(t_scratcher *x, t_glist *glist)
-{
-  t_int ci;
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    if ( glist_isvisible( glist ) )
-    {
-       SYS_VGUI3( ".x%x.c delete %xSCRATCHER\n", canvas, x );
-       SYS_VGUI3( ".x%x.c delete %xFSCRATCHER\n", canvas, x );
-       SYS_VGUI3( ".x%x.c delete %xSPEEDBAR\n", canvas, x );
-       for ( ci=0; ci<SCRATCHER_NB_GROOVES; ci ++)
-       {
-          SYS_VGUI4( ".x%x.c delete %xGROOVE%d\n", canvas, x, ci );
-       }
-    }
-}
-
-static void scratcher_draw_move(t_scratcher *x, t_glist *glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-  t_int ci;
-
-   if ( glist_isvisible( x->x_glist ) )
-   {
-    SYS_VGUI7(".x%x.c coords %xSCRATCHER %d %d %d %d\n",
-	     canvas, x,
-	     text_xpix(&x->x_obj, glist)-1, text_ypix(&x->x_obj, glist)-1,
-	     text_xpix(&x->x_obj, glist)+x->x_width+1, 
-             text_ypix(&x->x_obj, glist)+x->x_height+1);
-    SYS_VGUI7(".x%x.c coords %xFSCRATCHER %d %d %d %d\n",
-	     canvas, x,
-	     text_xpix(&x->x_obj, glist)-1, text_ypix(&x->x_obj, glist)-1,
-	     text_xpix(&x->x_obj, glist)+x->x_width+1, 
-             text_ypix(&x->x_obj, glist)+x->x_height+1);
-    if ( x->x_showspeed )
-    {
-       SYS_VGUI7( ".x%x.c coords %xSPEEDBAR %d %d %d %d\n",
-               canvas, x,
-               text_xpix(&x->x_obj, glist)+x->x_width/2,
-               text_ypix(&x->x_obj, glist)+x->x_height/2,
-               text_xpix(&x->x_obj, glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1 )),
-               text_ypix(&x->x_obj, glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1 ))
-               );
-    }
-    for ( ci=0; ci<SCRATCHER_NB_GROOVES; ci ++)
-    {
-      SYS_VGUI8(".x%x.c coords %xGROOVE%d %d %d %d %d\n",
-	     canvas, x, ci,
-             text_xpix(&x->x_obj, glist) + ci*x->x_width/(2*SCRATCHER_NB_GROOVES), 
-             text_ypix(&x->x_obj, glist) + ci*x->x_height/(2*SCRATCHER_NB_GROOVES),
-	     text_xpix(&x->x_obj, glist) + x->x_width - ci*x->x_width/(2*SCRATCHER_NB_GROOVES), 
-             text_ypix(&x->x_obj, glist) + x->x_height - ci*x->x_height/(2*SCRATCHER_NB_GROOVES)
-	     );
-    }
-    canvas_fixlinesfor( canvas, (t_text*)x );
-   }
-}
-
-static void scratcher_draw_select(t_scratcher* x,t_glist* glist)
-{
-   t_canvas *canvas=glist_getcanvas(glist);
-
-   if ( glist_isvisible( x->x_glist ) )
-   {
-    if(x->x_selected)
-    {
-    }
-    else
-    {
-    }
-   }
-}
-
-/* ------------------------ widget callbacks ----------------------------- */
-
-
-static void scratcher_getrect(t_gobj *z, t_glist *owner,
-			    int *xp1, int *yp1, int *xp2, int *yp2)
-{
-   t_scratcher* x = (t_scratcher*)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 scratcher_save(t_gobj *z, t_binbuf *b)
-{
-   t_scratcher *x = (t_scratcher *)z;
-
-   binbuf_addv(b, "ssiisiiiiff", 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_size, x->x_width, x->x_height, 
-                x->x_sensibility, x->x_maxspeed, x->x_inertia );
-   binbuf_addv(b, ";");
-}
-
-static void scratcher_select(t_gobj *z, t_glist *glist, int selected)
-{
-   t_scratcher *x = (t_scratcher *)z;
-
-   x->x_selected = selected;
-   scratcher_draw_select( x, glist );
-}
-
-static void scratcher_vis(t_gobj *z, t_glist *glist, int vis)
-{
-   t_scratcher *x = (t_scratcher *)z;
-   t_rtext *y;
-
-   if (vis)
-   {
-      scratcher_draw_new( x, glist );
-   }
-   else
-   {
-      scratcher_draw_delete( x, glist );
-   }
-}
-
-static void scratcher_delete(t_gobj *z, t_glist *glist)
-{
-    canvas_deletelinesfor(glist, (t_text *)z);
-}
-
-static void scratcher_displace(t_gobj *z, t_glist *glist, int dx, int dy)
-{
-  t_scratcher *x = (t_scratcher *)z;
-
-    x->x_obj.te_xpix += dx;
-    x->x_obj.te_ypix += dy;
-
-    scratcher_draw_move( x, glist );
-}
-
-static void scratcher_motion(t_scratcher *x, t_floatarg dx, t_floatarg dy)
-{
-  struct timeval tv;
-  struct timezone tz;
-  t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-   // post( "scratcher_motion dx=%f dy=%f", dx, dy );
-
-   x->x_speedinc += dy / x->x_sensibility;
-
-   x->x_mousemoved = 1;
-   // get current time in ms
-   gettimeofday( &tv, &tz );
-   x->x_lastmovetime = tv.tv_sec*1000 + tv.tv_usec/1000;
-   // post( "scratcher~ : move time : %ld", x->x_lastmovetime );
-
-   if ( x->x_showspeed )
-   {
-      SYS_VGUI7( ".x%x.c coords %xSPEEDBAR %d %d %d %d\n",
-              canvas, x,
-              text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-              text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-              text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1 )),
-              text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1 ))
-              );
-   }
-}
-
-static void scratcher_properties(t_gobj *z, t_glist *owner)
-{
-   char buf[800];
-   t_scratcher *x=(t_scratcher *)z;
-
-   sprintf(buf, "pdtk_scratcher_dialog %%s %d %d\n",
-            x->x_width, x->x_height );
-   // post("scratcher_properties : %s", buf );
-   gfxstub_new(&x->x_obj.ob_pd, x, buf);
-}
-
-static void scratcher_dialog(t_scratcher *x, t_symbol *s, int argc, t_atom *argv)
-{
-   if ( !x ) {
-     post( "scratcher : error :tried to set properties on an unexisting object" );
-   }
-   if ( argc != 2 )
-   {
-      post( "scratcher : error in the number of arguments ( %d instead of 2 )", argc );
-      return;
-   }
-   if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT ) {
-      post( "scratcher : wrong arguments" );
-      return;
-   }
-   x->x_width = (int)argv[0].a_w.w_float;
-   x->x_height = (int)argv[1].a_w.w_float;
-   scratcher_draw_delete(x, x->x_glist);
-   scratcher_draw_new(x, x->x_glist);
-}
-
-    /* reset reading speed */
-static void scratcher_reset(t_scratcher *x)
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-   x->x_readspeed=1.;
-   if ( x->x_showspeed )
-   {
-      SYS_VGUI7( ".x%x.c coords %xSPEEDBAR %d %d %d %d\n",
-              canvas, x,
-              text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-              text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-              text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1 )),
-              text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1 ))
-              );
-   }
-}
-
-static int scratcher_click(t_gobj *z, struct _glist *glist,
-			    int xpix, int ypix, int shift, int alt, int dbl, int doit)
-{
- t_scratcher* x = (t_scratcher *)z;
- t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-    // post( "scratcher_click : x=%d y=%d doit=%d alt=%d, shift=%d", xpix, ypix, doit, alt, shift );
-    if ( doit )
-    {
-      // activate motion callback
-      glist_grab( glist, &x->x_obj.te_g, (t_glistmotionfn)scratcher_motion,
-                  0, xpix, ypix );
-      x->x_readspeed=0.;
-      x->x_motioned = 1;
-      if ( x->x_showspeed )
-      {
-        SYS_VGUI7( ".x%x.c coords %xSPEEDBAR %d %d %d %d\n",
-              canvas, x,
-              text_xpix(&x->x_obj, glist)+x->x_width/2,
-              text_ypix(&x->x_obj, glist)+x->x_height/2,
-              text_xpix(&x->x_obj, glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1 )),
-              text_ypix(&x->x_obj, glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1 ))
-              );
-      }
-    }
-    else
-    {
-      if ( x->x_play ) scratcher_reset(x);
-      x->x_motioned = 0;
-    }
-    return (1);
-}
-
-	/* clean up */
-static void scratcher_free(t_scratcher *x)    
-{
-    if ( x->x_sdata != NULL ) {
-       freebytes(x->x_sdata, x->x_size*sizeof(t_float) );
-       post( "scratcher~ : freed %d bytes", x->x_size*sizeof(t_float) );
-       x->x_sdata = NULL;
-    }
-}
-
-    /* allocate tables for storing sample data */
-static t_int scratcher_allocate(t_scratcher *x)
-{
-    if ( !(x->x_sdata = getbytes( x->x_size*sizeof(float) ) ) ) {
-       post( "scratcher~ : could not allocate %d bytes", x->x_size*sizeof(t_float) );
-       return -1;
-    } else {
-       post( "scratcher~ : allocated %d bytes", x->x_size*sizeof(t_float) );
-    }
-    return 0;
-}
-
-    /* reallocate tables for storing sample data */
-static t_int scratcher_reallocate(t_scratcher *x, t_int ioldsize, t_int inewsize)
-{
-  t_float *pdata;
-
-    pdata = x->x_sdata;
-    if ( !(x->x_sdata = getbytes( inewsize*sizeof(float) ) ) ) {
-       post( "scratcher~ : could not allocate %d bytes", inewsize*sizeof(t_float) );
-       return -1;
-    } else {
-       post( "scratcher~ : allocated %d bytes", inewsize*sizeof(t_float) );
-    }
-    if ( pdata != NULL ) {
-       freebytes(pdata, ioldsize*sizeof(t_float) );
-       post( "scratcher~ : freed %d bytes", ioldsize*sizeof(t_float) );
-    }
-    return 0;
-}
-
-    /* records or playback the scratcher */
-static t_int *scratcher_perform(t_int *w)
-{
-  t_float *in = (t_float *)(w[1]);
-  t_float *out = (t_float *)(w[2]);
-  t_int n = (int)(w[3]);                      /* number of samples */
-  t_scratcher *x = (t_scratcher *)(w[4]);
-  struct timeval tv;
-  struct timezone tz;
-  long long perftime = 0L;
-  t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-    x->x_readspeed += x->x_speedinc;
-    if ( x->x_readspeed > x->x_maxspeed )
-    {
-       x->x_readspeed = x->x_maxspeed;
-    }
-    if ( x->x_readspeed < -x->x_maxspeed )
-    {
-       x->x_readspeed = -x->x_maxspeed;
-    }
-    x->x_speedinc = 0;
-
-    // if the mouse hasn't moved for a certain time, reset speed
-
-    if ( x->x_mousemoved )
-    {
-       // get current time in ms
-       gettimeofday( &tv, &tz );
-       perftime = tv.tv_sec*1000 + tv.tv_usec/1000;
-       if ( perftime - x->x_lastmovetime > SCRATCHER_MOVE_TIMEOUT )
-       {
-          // post( "scratcher~ : mouse timeout (m=%ld)", perftime );
-          // post( "scratcher~ : (m=%ld)", x->x_lastmovetime );
-          if ( x->x_readspeed > 0. )
-          {
-             x->x_readspeed -= x->x_inertia;
-             // post( "scratcher~ : dec speed" );
-          }
-          if ( x->x_readspeed < 0. )
-          {
-             x->x_readspeed += x->x_inertia;
-             // post( "scratcher~ : inc speed" );
-          }
-          if ( ( x->x_readspeed <= x->x_inertia && x->x_readspeed > 0 ) ||
-               ( x->x_readspeed >= -x->x_inertia && x->x_readspeed < 0 ) ) 
-          {
-             x->x_mousemoved = 0;
-             x->x_readspeed = 0.;
-          }
-          if ( x->x_showspeed )
-          {
-            SYS_VGUI7( ".x%x.c coords %xSPEEDBAR %d %d %d %d\n",
-               canvas, x,
-               text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-               text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-               text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1 )),
-               text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1 ))
-               );
-          }
-        }
-    }
-
-    while (n--) {
-        // eventually records input
-        if ( x->x_record) {
-           *(x->x_sdata+x->x_writepos)=*in;
-           x->x_writepos++;
-           if ( x->x_writepos >= x->x_size ) {
-             x->x_record=0;
-             x->x_writepos=0;
-             if ( x->x_empty ) x->x_empty = 0;
-             // post( "scratcher~ : stopped recording" );
-           }
-        }
-        // set outputs
-        if ( x->x_play) {
-            *out = *(x->x_sdata+(int)x->x_readpos);
-            x->x_readpos+=x->x_readspeed;
-            if ( x->x_readpos < 0 ) x->x_readpos = x->x_size-1;
-            if ( x->x_readpos >= x->x_size ) x->x_readpos = 0;
-        } else {
-            *out=0.0;
-        }
-
-        in++;out++;
-    }
-
-    return (w+5);
-}
-
-static void scratcher_dsp(t_scratcher *x, t_signal **sp)
-{
-   dsp_add(scratcher_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n, x);
-}
-
-    /* play the sound */
-static void scratcher_play(t_scratcher *x)
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-   x->x_play=1;
-   // reset read position
-   x->x_readpos=0;
-   x->x_readspeed=1.;
-   if ( x->x_showspeed )
-   {
-     SYS_VGUI3( ".x%x.c delete %xSPEEDBAR\n", canvas, x );
-     SYS_VGUI7( ".x%x.c create line %d %d %d %d -fill #FF0000 -tags %xSPEEDBAR -width 3\n",
-             canvas, text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-             text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-             text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1. )),
-             text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1. )), 
-             x );
-   }
-}
-
-    /* stop playing   */
-static void scratcher_stop(t_scratcher *x)
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-   x->x_play=0;
-   // reset read position
-   x->x_readpos=0;
-   x->x_readspeed=0.;
-   if ( x->x_showspeed )
-   {
-     SYS_VGUI3( ".x%x.c delete %xSPEEDBAR\n", canvas, x );
-     SYS_VGUI7( ".x%x.c create line %d %d %d %d -fill #FF0000 -tags %xSPEEDBAR -width 3\n",
-             canvas, text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-             text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-             text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1. )),
-             text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1. )), 
-             x );
-   }
-}
-
-    /* record the sound */
-static void scratcher_record(t_scratcher *x)
-{
-   scratcher_stop(x);
-   x->x_record=1;
-   x->x_writepos=0;
-}
-
-    /* resize sound */
-static void scratcher_resize(t_scratcher *x, t_floatarg fnewsize )
-{
-  t_int dspstate;   
-  struct timespec ts;        
-
-    if (fnewsize <= 0) {
-        post( "scratcher~ : error : wrong size" );
-        return;
-    }
-    post( "scratcher~ : reallocating tables" );
-    x->x_record = 0;
-    x->x_play = 0;
-
-    scratcher_reallocate(x, x->x_size, fnewsize);
-    x->x_size = fnewsize;
-}
-
-    /* set sensibility */
-static void scratcher_sensibility(t_scratcher *x, t_floatarg fsensibility )
-{
-    if (fsensibility <= 0) {
-        post( "scratcher~ : error : wrong sensibility" );
-        return;
-    }
-    x->x_sensibility = fsensibility;
-}
-
-    /* set maximum speed */
-static void scratcher_maxspeed(t_scratcher *x, t_floatarg fmaxspeed )
-{
-    if (fmaxspeed < 0) {
-        post( "scratcher~ : error : wrong maximum speed" );
-        return;
-    }
-    x->x_maxspeed = fmaxspeed;
-}
-
-    /* set turntable inertia */
-static void scratcher_inertia(t_scratcher *x, t_floatarg finertia )
-{
-    if (finertia < 0) {
-        post( "scratcher~ : error : wrong inertia" );
-        return;
-    }
-    x->x_inertia = finertia;
-}
-
-    /* toggle speed line */
-static void scratcher_showspeed(t_scratcher *x, t_floatarg fshowspeed )
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
-
-    if (fshowspeed == 0) {
-      x->x_showspeed = 0;
-      SYS_VGUI3( ".x%x.c delete %xSPEEDBAR\n", canvas, x );
-    }
-    else
-    {
-      x->x_showspeed = 1;
-      SYS_VGUI3( ".x%x.c delete %xSPEEDBAR\n", canvas, x );
-      SYS_VGUI7( ".x%x.c create line %d %d %d %d -fill #FF0000 -tags %xSPEEDBAR -width 3\n",
-               canvas, text_xpix(&x->x_obj, x->x_glist)+x->x_width/2,
-               text_ypix(&x->x_obj, x->x_glist)+x->x_height/2,
-               text_xpix(&x->x_obj, x->x_glist)+x->x_width/2 + (int)(x->x_width/2*cos( x->x_readspeed - 1. )),
-               text_ypix(&x->x_obj, x->x_glist)+x->x_height/2 - (int)(x->x_width/2*sin( x->x_readspeed - 1. )), 
-               x );
-    }
-}
-
-static void *scratcher_new(t_symbol *s, int argc, t_atom *argv)
-{
-    t_scratcher *x = (t_scratcher *)pd_new(scratcher_class);
-    outlet_new(&x->x_obj, &s_signal);
-    
-    // new scratcher created from the gui
-    if ( argc != 0 )
-    {
-      if ( argc < 3 )
-      {
-        post( "scratcher~ : error in the number of arguments ( < 3 )", argc );
-        return NULL;
-      }
-      if ( argv[0].a_type != A_FLOAT || 
-           argv[1].a_type != A_FLOAT ||
-           argv[2].a_type != A_FLOAT ) {
-        post( "scratcher~ : wrong arguments" );
-        return NULL;
-      }
-      x->x_size = argv[0].a_w.w_float;
-      x->x_width = argv[1].a_w.w_float;
-      x->x_height = argv[2].a_w.w_float;
-      if ( argc >= 4 ) 
-      {
-          x->x_sensibility = argv[3].a_w.w_float;
-      }
-      else
-      {
-          x->x_sensibility = DEFAULT_SCRATCHER_SENSIBILITY;
-      }
-      if ( argc >= 5 ) 
-      {
-          x->x_maxspeed = argv[4].a_w.w_float;
-      }
-      else
-      {
-          x->x_maxspeed = DEFAULT_SCRATCHER_MAX_SPEED;
-      }
-      if ( argc >= 6 ) 
-      {
-          x->x_inertia = argv[5].a_w.w_float;
-      }
-      else
-      {
-          x->x_inertia = DEFAULT_TURNTABLE_INERTIA;
-      }
-    }
-    else
-    {
-       x->x_size = DEFAULT_SCRATCHER_SIZE;
-       x->x_width = DEFAULT_SCRATCHER_WIDTH;
-       x->x_height = DEFAULT_SCRATCHER_HEIGHT;
-       x->x_sensibility = DEFAULT_SCRATCHER_SENSIBILITY;
-       x->x_maxspeed = DEFAULT_SCRATCHER_MAX_SPEED;
-       x->x_inertia = DEFAULT_TURNTABLE_INERTIA;
-    }
-
-    x->x_play = 0;
-    x->x_record = 0;
-    x->x_readspeed = 1.;
-    x->x_readpos = 0.;
-    x->x_speedinc = 0.;
-    x->x_writepos = 0;
-    x->x_sdata = NULL;
-    x->x_empty = 1;
-    x->x_showspeed = 1;
-    x->x_mousemoved = 0;
-    x->x_lastmovetime = 0L;
-    x->x_selected = 0;
-    x->x_glist = (t_glist*)canvas_getcurrent();
-
-    // activate graphical callbacks
-    class_setwidget(scratcher_class, &scratcher_widgetbehavior);
-    
-    // post( "scratcher~ : new scratcher : size = %d", x->x_size );
-    if ( scratcher_allocate(x) <0 ) {
-      return NULL;
-    } else {
-      return(x);
-    }
-
-}
-
-void scratcher_tilde_setup(void)
-{
-    post(scratcher_version);
-#include "scratcher~.tk2c"
-    scratcher_class = class_new(gensym("scratcher~"), (t_newmethod)scratcher_new, (t_method)scratcher_free,
-                    sizeof(t_scratcher), 0, A_GIMME, 0);
-
-
-    // set callbacks
-    scratcher_widgetbehavior.w_getrectfn =    scratcher_getrect;
-    scratcher_widgetbehavior.w_displacefn =   scratcher_displace;
-    scratcher_widgetbehavior.w_selectfn =     scratcher_select;
-    scratcher_widgetbehavior.w_activatefn =   NULL;
-    scratcher_widgetbehavior.w_deletefn =     scratcher_delete;
-    scratcher_widgetbehavior.w_visfn =        scratcher_vis;
-    scratcher_widgetbehavior.w_clickfn =      scratcher_click;
-
-#if PD_MINOR_VERSION >= 37
-    class_setpropertiesfn(scratcher_class, scratcher_properties);
-    class_setsavefn(scratcher_class, scratcher_save);
-#else
-    scratcher_widgetbehavior.w_propertiesfn = scratcher_properties;
-    scratcher_widgetbehavior.w_savefn =       scratcher_save;
-#endif
-
-    CLASS_MAINSIGNALIN( scratcher_class, t_scratcher, x_f );
-    class_addmethod(scratcher_class, (t_method)scratcher_dsp, gensym("dsp"), A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_record, gensym("record"), A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_resize, gensym("resize"), A_FLOAT, A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_sensibility, gensym("sensibility"), A_FLOAT, A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_maxspeed, gensym("maxspeed"), A_FLOAT, A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_inertia, gensym("inertia"), A_FLOAT, A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_showspeed, gensym("showspeed"), A_FLOAT, A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_play, gensym("play"), A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_stop, gensym("stop"), A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_reset, gensym("reset"), A_NULL);
-    class_addmethod(scratcher_class, (t_method)scratcher_dialog, gensym("dialog"), A_GIMME, A_NULL);
-}
diff --git a/scratcher~/scratcher~.tk b/scratcher~/scratcher~.tk
deleted file mode 100644
index bc8ad6f..0000000
--- a/scratcher~/scratcher~.tk
+++ /dev/null
@@ -1,77 +0,0 @@
-############ scratcher procedures  -- ydegoyon@free.fr        #########
-
-proc scratcher_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 cmd [concat $id dialog \
-     	[eval concat $$var_graph_width] \
-     	[eval concat $$var_graph_height] \
- 	\;]
-     #puts stderr $cmd
-     pd $cmd
-}
- 
-proc scratcher_cancel {id} {
-     set cmd [concat $id cancel \;]
-     #puts stderr $cmd
-     pd $cmd
-}
- 
-proc scratcher_ok {id} {
-     scratcher_apply $id
-     scratcher_cancel $id
-}
- 
-proc pdtk_scratcher_dialog {id width height} {
-     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_width $width
-     set $var_graph_height $height
- 
-     toplevel $id
-     wm title $id {scratcher}
-     wm protocol $id WM_DELETE_WINDOW [concat scratcher_cancel $id]
- 
-     label $id.label -text {SCRATCHER 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 "scratcher_cancel $id"
-     button $id.buttonframe.apply -text {Apply}\
-     	-command "scratcher_apply $id"
-     button $id.buttonframe.ok -text {OK}\
-     	-command "scratcher_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
- 
-     bind $id.1rangef.name <KeyPress-Return> [concat scratcher_ok $id]
-     bind $id.2rangef.height <KeyPress-Return> [concat scratcher_ok $id]
-     focus $id.1rangef.name
-}
-
-############ scratcher procedures END -- ydegoyon@free.fr     #########
diff --git a/scratcher~/scratcher~.tk2c b/scratcher~/scratcher~.tk2c
deleted file mode 100755
index 8c07523..0000000
--- a/scratcher~/scratcher~.tk2c
+++ /dev/null
@@ -1,58 +0,0 @@
-// ########### scratcher procedures -- ydegoyon@free.fr #########
-sys_gui("proc scratcher_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 cmd [concat $id dialog [eval concat $$var_graph_width] [eval concat $$var_graph_height] \\;]\n");
-// puts stderr $cmd
-sys_gui("pd $cmd\n");
-sys_gui("}\n");
-sys_gui("proc scratcher_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 scratcher_ok {id} {\n");
-sys_gui("scratcher_apply $id\n");
-sys_gui("scratcher_cancel $id\n");
-sys_gui("}\n");
-sys_gui("proc pdtk_scratcher_dialog {id width height} {\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_width $width\n");
-sys_gui("set $var_graph_height $height\n");
-sys_gui("toplevel $id\n");
-sys_gui("wm title $id {scratcher}\n");
-sys_gui("wm protocol $id WM_DELETE_WINDOW [concat scratcher_cancel $id]\n");
-sys_gui("label $id.label -text {SCRATCHER 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 \"scratcher_cancel $id\"\n");
-sys_gui("button $id.buttonframe.apply -text {Apply} -command \"scratcher_apply $id\"\n");
-sys_gui("button $id.buttonframe.ok -text {OK} -command \"scratcher_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("bind $id.1rangef.name <KeyPress-Return> [concat scratcher_ok $id]\n");
-sys_gui("bind $id.2rangef.height <KeyPress-Return> [concat scratcher_ok $id]\n");
-sys_gui("focus $id.1rangef.name\n");
-sys_gui("}\n");
-// ########### scratcher procedures END -- ydegoyon@free.fr #########
diff --git a/scratcher~/timeval.h b/scratcher~/timeval.h
deleted file mode 100644
index ff04962..0000000
--- a/scratcher~/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/scratcher~/tk2c.bash b/scratcher~/tk2c.bash
deleted file mode 100755
index 9dfeb03..0000000
--- a/scratcher~/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