got everything building using the template Makefile

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

7 files changed, 0 insertions, 1269 deletions

diff --git a/pianoroll/INSTALL b/pianoroll/INSTALL
deleted file mode 100644
index b7c38be..0000000
--- a/pianoroll/INSTALL
+++ /dev/null
@@ -1,15 +0,0 @@
-untar in /my/pd/dir/externs
-
-cd /my/pd/dir/externs/pianoroll
-
-make clean 
-
-make
-
-make install
-
-open help-pianoroll.pd
-
-Thanx for getting here.
-Yves/
-comments and bugs @ ydegoyon@free.fr
diff --git a/pianoroll/pianoroll-help.pd b/pianoroll/pianoroll-help.pd
deleted file mode 100644
index 809fec9..0000000
--- a/pianoroll/pianoroll-help.pd
+++ /dev/null
@@ -1,80 +0,0 @@
-#N canvas 90 41 827 643 10;
-#X floatatom 71 402 5 0 0;
-#X floatatom 258 400 5 0 0;
-#X text 523 112 (invoke with <right mouse>Properties );
-#X text 524 101 You can set the following properties :;
-#X text 548 141 * Width : graphical x size;
-#X text 548 152 * Height : graphical y size;
-#X text 488 548 bugs and comments @ ydegoyon@free.fr;
-#X msg 587 271 \; pd dsp 0;
-#X msg 653 271 \; pd dsp 1;
-#X text 548 129 * Name;
-#X text 119 401 Pitch;
-#X text 304 399 Volume ( scaled to [0 \, 1] );
-#X text 547 164 * Pitch min : minimum value delivered by left outlet
-;
-#X text 547 176 * Pitch max : maximum value delivered by left outlet
-;
-#X text 547 200 * Step number : number of steps;
-#X text 524 79 ( pitch & volume originally but \, really \, anything
-you like );
-#X msg 238 87 transpose \$1;
-#X floatatom 334 89 5 0 0;
-#X text 240 104 You can transpose the melody ( ?? );
-#X text 241 115 with a float value;
-#X text 548 211 * Default value : must be in [min \, max];
-#X obj 65 165 pianoroll pianoroll1 400 192 -15 15 32 16 0 0 1 -12.0968
-0.741935 -3.3871 0.16129 5.32258 0.16129 -4.35484 0.354839 6.29032
-0.322581 6.29032 1 5.32258 1 -12.0968 0.290323 -10.1613 0.290323 -8.22581
-0.580645 -5.32258 1 7.25807 1 -10.1613 0.580645 -15 0.612903 -15 0.580645
--15 1;
-#X msg 47 18 bang;
-#X obj 46 80 f;
-#X obj 76 80 + 1;
-#X floatatom 9 104 5 0 0;
-#X obj 47 44 metro 500;
-#X text 527 65 Pianoroll controls two parameters for a sequencer;
-#X text 548 188 * Pitch grades : number of grades for the pitch;
-#X msg 82 18 stop;
-#X floatatom 13 140 5 0 0;
-#X text 57 1 forward;
-#X text 144 0 backward;
-#X msg 136 15 bang;
-#X obj 135 77 f;
-#X obj 136 41 metro 500;
-#X msg 171 16 stop;
-#X obj 165 77 - 1;
-#X msg 239 59 init;
-#X text 279 60 init to default values;
-#X msg 241 33 load pattern#1;
-#X text 352 19 load and save the patterns;
-#X text 352 31 ( values as well as steps number .... );
-#X msg 241 10 save pattern#1;
-#X text 544 383 you can set the pitch and;
-#X text 544 397 the volume with messages;
-#X text 544 409 ( positions start at zero );
-#X msg 541 358 volume 3 0.345;
-#X msg 542 334 pitch 3 -5;
-#X connect 16 0 21 0;
-#X connect 17 0 16 0;
-#X connect 21 0 0 0;
-#X connect 21 1 1 0;
-#X connect 22 0 26 0;
-#X connect 23 0 21 0;
-#X connect 23 0 24 0;
-#X connect 23 0 25 0;
-#X connect 24 0 23 1;
-#X connect 26 0 23 0;
-#X connect 29 0 26 0;
-#X connect 30 0 21 0;
-#X connect 33 0 35 0;
-#X connect 34 0 37 0;
-#X connect 34 0 21 0;
-#X connect 35 0 34 0;
-#X connect 36 0 35 0;
-#X connect 37 0 34 1;
-#X connect 38 0 21 0;
-#X connect 40 0 21 0;
-#X connect 43 0 21 0;
-#X connect 47 0 21 0;
-#X connect 48 0 21 0;
diff --git a/pianoroll/pianoroll.c b/pianoroll/pianoroll.c
deleted file mode 100644
index c71735c..0000000
--- a/pianoroll/pianoroll.c
+++ /dev/null
@@ -1,815 +0,0 @@
-/* Copyright (c) 1997-1999 Miller Puckette.                                     */
-/* For information on usage and redistribution, and for a DISCLAIMER OF ALL     */
-/* WARRANTIES, see the file, "LICENSE.txt," in this distribution.               */
-/*                                                                              */
-/* pianoroll : a graphical object which enables                                 */
-/* to control a sequencer ( pitch and volume )                                  */
-/*                                                                              */
-/* 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.                             */
-/*                                                                              */
-/* "If you obey society's rules"                                                */
-/* "You'll be society's fool"                                                   */
-/* Devo - Society's rules                                                       */
-/* ---------------------------------------------------------------------------- */
-
-
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <math.h>
-#include <ctype.h>
-#include "m_pd.h"
-#include "m_imp.h"
-#include "g_canvas.h"
-
-#include "pianoroll.h"
-
-#ifdef NT
-#include <io.h>
-#else
-#include <unistd.h>
-#endif
-
-/* needed to create a pianoroll 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_SEQUENCER_WIDTH 200
-#define DEFAULT_SEQUENCER_HEIGHT 200
-#define DEFAULT_SEQUENCER_STEPS 16
-#define DEFAULT_SEQUENCER_NBGRADES 31
-#define DEFAULT_SEQUENCER_PITCH_MIN -15
-#define DEFAULT_SEQUENCER_PITCH_MAX 15
-
-static char   *pianoroll_version = "pianoroll: a graphical sequencer controller, version 0.10 (ydegoyon@free.fr)"; 
-
-t_widgetbehavior pianoroll_widgetbehavior;
-static t_class *pianoroll_class;
-static int pianorollcount=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_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_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)
-
-/* drawing functions */
-static void pianoroll_draw_update(t_pianoroll *x, t_glist *glist)
-{
-  t_int si;
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    for ( si=0; si<x->x_nbsteps; si++ )
-    {
-       int vi = (int)((1.0-x->x_volumes[si])*(x->x_nbgrades-1));
-       int pi = (int)((x->x_pmax-x->x_peaches[si])/(x->x_pmax-x->x_pmin)*(x->x_nbgrades-1));
-
-       x->x_ivolumes[ si ] = vi;
-       x->x_ipeaches[ si ] = pi;
-       SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #FFFF00\n", canvas, x, si, pi);
-       SYS_VGUI5(".x%x.c itemconfigure %xVOLUME%.4d%.4d -fill #FF0000\n", canvas, x, si, vi);
-    }
-}
-
-static void pianoroll_draw_new(t_pianoroll *x, t_glist *glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    // draw the grid
-    {
-       int gi, gj;
-       t_float xgstep = x->x_width/x->x_nbsteps;
-       t_float ygstep = x->x_height/x->x_nbgrades;
-       for ( gi=0; gi<x->x_nbsteps; gi++ )
-       {
-         for ( gj=0; gj<x->x_nbgrades; gj++ )
-         {
-           SYS_VGUI9(".x%x.c create rectangle %d %d %d %d -fill #771623 -outline #998121 -tags %xPITCH%.4d%.4d\n",
-	     canvas, 
-             text_xpix(&x->x_obj, glist)+(int)(gi*xgstep), 
-             text_ypix(&x->x_obj, glist)+(int)(gj*ygstep),
-	     text_xpix(&x->x_obj, glist)+(int)(gi*xgstep)+(int)(2*xgstep/3), 
-             text_ypix(&x->x_obj, glist)+(int)((gj+1)*ygstep),
-	     x, gi, gj );
-           SYS_VGUI9(".x%x.c create rectangle %d %d %d %d -fill #562663 -outline #998121 -tags %xVOLUME%.4d%.4d\n",
-	     canvas, 
-	     text_xpix(&x->x_obj, glist)+(int)(gi*xgstep)+(int)(2*xgstep/3), 
-             text_ypix(&x->x_obj, glist)+(int)(gj*ygstep),
-	     text_xpix(&x->x_obj, glist)+(int)((gi+1)*xgstep), 
-             text_ypix(&x->x_obj, glist)+(int)((gj+1)*ygstep),
-	     x, gi, gj );
-         }
-       }
-       // adjust height and width
-       x->x_width = (int)((x->x_nbsteps)*xgstep);
-       x->x_height = (int)((x->x_nbgrades)*ygstep);
-    }
-    SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xIN\n",
-	     canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist) - 1,
-	     text_xpix(&x->x_obj, glist)+7, text_ypix(&x->x_obj, glist),
-	     x);
-    SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xOUTL\n",
-	     canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist) + x->x_height+1,
-	     text_xpix(&x->x_obj, glist)+7, text_ypix(&x->x_obj, glist) + x->x_height+2,
-	     x);
-    SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xOUTR\n",
-	     canvas, text_xpix(&x->x_obj, glist)+x->x_width-7, text_ypix(&x->x_obj, glist) + x->x_height+1,
-	     text_xpix(&x->x_obj, glist)+x->x_width, text_ypix(&x->x_obj, glist) + x->x_height+2,
-	     x);
-
-    canvas_fixlinesfor( canvas, (t_text*)x );
-}
-
-static void pianoroll_draw_move(t_pianoroll *x, t_glist *glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    // move the grid
-    {
-       int gi, gj;
-       t_float xgstep = x->x_width/x->x_nbsteps;
-       t_float ygstep = x->x_height/x->x_nbgrades;
-       for ( gi=0; gi<x->x_nbsteps; gi++ )
-       {
-         for ( gj=0; gj<x->x_nbgrades; gj++ )
-         {
-           SYS_VGUI9(".x%x.c coords  %xPITCH%.4d%.4d %d %d %d %d\n",
-	     canvas, x, gi, gj,
-             text_xpix(&x->x_obj, glist)+(int)(gi*xgstep), 
-             text_ypix(&x->x_obj, glist)+(int)(gj*ygstep),
-	     text_xpix(&x->x_obj, glist)+(int)(gi*xgstep)+(int)(2*xgstep/3), 
-             text_ypix(&x->x_obj, glist)+(int)((gj+1)*ygstep)
-	     );
-           SYS_VGUI9(".x%x.c coords %xVOLUME%.4d%.4d %d %d %d %d\n",
-	     canvas, x, gi, gj,
-	     text_xpix(&x->x_obj, glist)+(int)(gi*xgstep)+(int)(2*xgstep/3), 
-             text_ypix(&x->x_obj, glist)+(int)(gj*ygstep),
-	     text_xpix(&x->x_obj, glist)+(int)((gi+1)*xgstep), 
-             text_ypix(&x->x_obj, glist)+(int)((gj+1)*ygstep)
-	     );
-         }
-       }
-    }
-    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) - 1,
-	     text_xpix(&x->x_obj, glist)+7, text_ypix(&x->x_obj, glist)
-	     );
-    SYS_VGUI7(".x%x.c coords %xOUTL %d %d %d %d\n",
-	     canvas, x, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist) + x->x_height+1,
-	     text_xpix(&x->x_obj, glist)+7, text_ypix(&x->x_obj, glist) + x->x_height+2
-	     );
-    SYS_VGUI7(".x%x.c coords %xOUTR %d %d %d %d\n",
-	     canvas, x, text_xpix(&x->x_obj, glist)+x->x_width-7, text_ypix(&x->x_obj, glist) + x->x_height+1,
-	     text_xpix(&x->x_obj, glist)+x->x_width, text_ypix(&x->x_obj, glist) + x->x_height+2
-	     );
-    canvas_fixlinesfor( canvas, (t_text*)x );
-}
-
-static void pianoroll_draw_erase(t_pianoroll* x,t_glist* glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-  t_int i;
-
-    SYS_VGUI3(".x%x.c delete %xIN\n", canvas, x);
-    SYS_VGUI3(".x%x.c delete %xOUTL\n", canvas, x);
-    SYS_VGUI3(".x%x.c delete %xOUTR\n", canvas, x);
-    // delete the grid
-    {
-       int gi, gj;
-       for ( gi=0; gi<x->x_nbsteps; gi++ )
-       {
-         for ( gj=0; gj<x->x_nbgrades; gj++ )
-         {
-            SYS_VGUI5(".x%x.c delete %xPITCH%.4d%.4d\n", canvas, x, gi, gj);
-            SYS_VGUI5(".x%x.c delete %xVOLUME%.4d%.4d\n", canvas, x, gi, gj);
-         }
-       }
-    }
-}
-
-static void pianoroll_draw_select(t_pianoroll* x,t_glist* glist)
-{
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    if(x->x_selected)
-    {
-	pd_bind(&x->x_obj.ob_pd, x->x_name);
-        /* sets the item in blue */
-    }
-    else
-    {
-	pd_unbind(&x->x_obj.ob_pd, x->x_name);
-    }
-}
-
-/* ------------------------ pianoroll widgetbehaviour----------------------------- */
-
-
-static void pianoroll_getrect(t_gobj *z, t_glist *owner,
-			    int *xp1, int *yp1, int *xp2, int *yp2)
-{
-   t_pianoroll* x = (t_pianoroll*)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 pianoroll_save(t_gobj *z, t_binbuf *b)
-{
- t_pianoroll *x = (t_pianoroll *)z;
- t_int i;
-
-   // post( "saving pianoroll : %s", x->x_name->s_name );
-   binbuf_addv(b, "ssiissiiffiiifi", 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_name, x->x_width, x->x_height,
-		x->x_pmin, x->x_pmax,
-                x->x_nbgrades, x->x_nbsteps,
-                x->x_defvalue, x->x_transpose, x->x_save 
-                );
-   if ( x->x_save ) 
-   {
-      for ( i=0; i<x->x_nbsteps; i++ )
-      {
-          binbuf_addv(b, "ff", x->x_peaches[i], x->x_volumes[i] );
-      }
-   }
-   binbuf_addv(b, ";");
-}
-
-static void pianoroll_properties(t_gobj *z, t_glist *owner)
-{
-  char buf[800];
-  t_pianoroll *x=(t_pianoroll *)z;
-
-   sprintf(buf, "pdtk_pianoroll_dialog %%s %s %d %d %.2f %.2f %d %d %d %d\n",
-            x->x_name->s_name, x->x_width, x->x_height, x->x_pmin, x->x_pmax, 
-            x->x_nbgrades, x->x_nbsteps, x->x_defvalue, x->x_save );
-   // post("pianoroll_properties : %s", buf );
-   gfxstub_new(&x->x_obj.ob_pd, x, buf);
-}
-
-static void pianoroll_select(t_gobj *z, t_glist *glist, int selected)
-{
-   t_pianoroll *x = (t_pianoroll *)z;
-
-   x->x_selected = selected;
-   pianoroll_draw_select( x, glist );
-}
-
-static void pianoroll_vis(t_gobj *z, t_glist *glist, int vis)
-{
-   t_pianoroll *x = (t_pianoroll *)z;
-   t_rtext *y;
-
-   // post("pianoroll_vis : %d", vis );
-   if (vis)
-   {
-      pianoroll_draw_new( x, glist );
-      pianoroll_draw_update( x, glist );
-   }
-   else
-   {
-      pianoroll_draw_erase( x, glist );
-   }
-}
-
-static void pianoroll_dialog(t_pianoroll *x, t_symbol *s, int argc, t_atom *argv)
-{
- int si, onbsteps;
- t_float *newpeaches, *newvolumes;
-
-   if ( !x ) {
-     post( "pianoroll : error :tried to set properties on an unexisting object" );
-   }
-   if ( ( argv[5].a_w.w_float <= 0 ) || ( argv[5].a_w.w_float <= 0 ) ) {
-     post( "pianoroll : error : wrong number of steps or grades" );
-     return;
-   }
-   if ( ( argv[3].a_w.w_float >= argv[4].a_w.w_float ) ) {
-     post( "pianoroll : error : min pitch is >= to max pitch" );
-     return;
-   }
-   if ( argc != 9 )
-   {
-      post( "pianoroll : error in the number of arguments ( %d )", argc );
-      return;
-   }
-   if ( argv[0].a_type != A_SYMBOL || 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 ||
-        argv[6].a_type != A_FLOAT || argv[7].a_type != A_FLOAT || 
-        argv[8].a_type != A_FLOAT 
-      ) {
-      post( "pianoroll : wrong arguments" );
-      return;
-   }
-   pianoroll_draw_erase(x, x->x_glist);
-   x->x_name = argv[0].a_w.w_symbol;
-   x->x_width = (int)argv[1].a_w.w_float;
-   x->x_height = (int)argv[2].a_w.w_float;
-   x->x_pmin = argv[3].a_w.w_float;
-   x->x_pmax = argv[4].a_w.w_float;
-   x->x_nbgrades = argv[5].a_w.w_float;
-   onbsteps = x->x_nbsteps;
-   x->x_nbsteps = argv[6].a_w.w_float;
-   x->x_defvalue = argv[7].a_w.w_float;
-   x->x_save = argv[8].a_w.w_float;
-
-   if ( onbsteps != x->x_nbsteps )
-   {
-     int cmindex = ( onbsteps > x->x_nbsteps ) ? x->x_nbsteps : onbsteps;
-
-      newpeaches = ( t_float* ) getbytes( x->x_nbsteps*sizeof(t_float) );
-      newvolumes = ( t_float* ) getbytes( x->x_nbsteps*sizeof(t_float) );
-      for ( si=0; si<cmindex ; si++ )
-      {
-         newpeaches[si] = x->x_peaches[si];
-         newvolumes[si] = x->x_volumes[si];
-      }
-      freebytes( x->x_peaches, onbsteps*sizeof( t_float ) ); 
-      freebytes( x->x_volumes, onbsteps*sizeof( t_float ) ); 
-      x->x_peaches = newpeaches;
-      x->x_volumes = newvolumes;
-      for ( si=onbsteps; si<x->x_nbsteps; si++ )
-      {
-         x->x_peaches[si] = x->x_defvalue;
-         x->x_volumes[si] = 1.0;
-      }
-      freebytes( x->x_ipeaches, onbsteps*sizeof( t_int ) ); 
-      freebytes( x->x_ivolumes, onbsteps*sizeof( t_int ) ); 
-      x->x_ipeaches = ( t_int* ) getbytes( x->x_nbsteps*sizeof(t_int) );
-      x->x_ivolumes = ( t_int* ) getbytes( x->x_nbsteps*sizeof(t_int) );
-   }
-   pianoroll_draw_new(x, x->x_glist);
-   pianoroll_draw_update(x, x->x_glist);
-}
-
-static void pianoroll_delete(t_gobj *z, t_glist *glist)
-{
-    canvas_deletelinesfor(glist, (t_text *)z);
-}
-
-static void pianoroll_displace(t_gobj *z, t_glist *glist, int dx, int dy)
-{
-    t_pianoroll *x = (t_pianoroll *)z;
-    int xold = text_xpix(&x->x_obj, glist);
-    int yold = text_ypix(&x->x_obj, glist);
-
-    // post( "pianoroll_displace dx=%d dy=%d", dx, dy );
-
-    x->x_obj.te_xpix += dx;
-    x->x_obj.te_ypix += dy;
-    if(xold != x->x_obj.te_xpix || yold != x->x_obj.te_ypix)
-    {
-	pianoroll_draw_move(x, x->x_glist);
-    }
-}
-
-static int pianoroll_click(t_gobj *z, struct _glist *glist,
-			    int xpix, int ypix, int shift, int alt, int dbl, int doit)
-{
-  t_pianoroll* x = (t_pianoroll *)z;
-  t_canvas *canvas=glist_getcanvas(glist);
-
-    if ( doit) 
-    {
-      // calculate position to update
-      {
-         int si, gi;
-         t_float xgstep = x->x_width/x->x_nbsteps;
-         t_float ygstep = x->x_height/x->x_nbgrades;
-
-         si = ( xpix - text_xpix(&x->x_obj, glist) ) / xgstep;
-         gi = ( ypix - text_ypix(&x->x_obj, glist) ) / ygstep;
-
-         // post( "pianoroll : step : %d : grade : %d", si, gi );
-
-         if ( ( xpix - text_xpix(&x->x_obj, glist) ) > ( si*xgstep+2*xgstep/3 ) )
-         {
-            {
-              SYS_VGUI5(".x%x.c itemconfigure %xVOLUME%.4d%.4d -fill #562663\n", canvas, x, si, x->x_ivolumes[ si ] );
-            }
-
-            x->x_volumes[ si ] = (((float)x->x_nbgrades-1-(float)gi))/(float)(x->x_nbgrades-1);
-            SYS_VGUI5(".x%x.c itemconfigure %xVOLUME%.4d%.4d -fill #FF0000\n", canvas, x, si, gi);
-            x->x_ivolumes[ si ] = gi; 
-         } 
-         else
-         {
-            {
-              SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #761623\n", canvas, x, si, x->x_ipeaches[ si ]);
-            }
-
-            x->x_peaches[ si ] = x->x_pmin+(float)(x->x_nbgrades-1-gi)/(float)(x->x_nbgrades-1)*(float)(x->x_pmax-x->x_pmin);
-            SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #FFFF00\n", canvas, x, si, gi);
-            x->x_ipeaches[ si ] = gi; 
-         }
-      }
-
-    }
-    return (1);
-}
-
-static void pianoroll_transpose(t_pianoroll *x, t_floatarg ftranspose) 
-{
-    x->x_transpose = ftranspose;
-}
-
-static void pianoroll_save_file(t_pianoroll *x, t_symbol *ffile) 
-{
-  FILE *tmph;
-  t_int si;
- 
-   if ( ( tmph = fopen( ffile->s_name, "w" ) ) == NULL )
-   {
-      post( "pianoroll : could not open file : %s for writing", ffile->s_name );
-      return;
-   }
-   
-   // post( "saving pianoroll : %s", x->x_name->s_name );
-   fprintf(tmph, "%d %d %f %f %d %d %d %f %d ",
-		x->x_width, x->x_height,
-		x->x_pmin, x->x_pmax,
-                x->x_nbgrades, x->x_nbsteps,
-                x->x_defvalue, x->x_transpose, x->x_save );
-   for ( si=0; si<x->x_nbsteps; si++ )
-   {
-          fprintf(tmph, "%f %f ", x->x_peaches[si], x->x_volumes[si] );
-   }
-
-   if ( fclose( tmph ) == -1 )
-   {
-      post( "pianoroll : could not close file : %s ", ffile->s_name );
-      return;
-   }
-}
-
-static void pianoroll_load(t_pianoroll *x, t_symbol *ffile) 
-{
-  FILE *tmph;
-  t_int si;
- 
-   if ( ( tmph = fopen( ffile->s_name, "r" ) ) == NULL )
-   {
-      post( "pianoroll : could not open file : %s for reading", ffile->s_name );
-      return;
-   }
-   
-   pianoroll_draw_erase(x, x->x_glist);
-   freebytes( x->x_peaches, x->x_nbsteps*sizeof( t_float ) ); 
-   freebytes( x->x_volumes, x->x_nbsteps*sizeof( t_float ) ); 
-   freebytes( x->x_ipeaches, x->x_nbsteps*sizeof( t_int ) ); 
-   freebytes( x->x_ivolumes, x->x_nbsteps*sizeof( t_int ) ); 
-
-   if ( fscanf(tmph, "%d %d %f %f %d %d %d %f %d",
-		&x->x_width, &x->x_height,
-		&x->x_pmin, &x->x_pmax,
-                &x->x_nbgrades, &x->x_nbsteps,
-                &x->x_defvalue, &x->x_transpose, &x->x_save ) != 9 )
-   {
-      post( "pianoroll : could not restore data from file : %s", ffile->s_name );
-      return;
-   }
-
-   x->x_peaches = ( t_float* ) getbytes( x->x_nbsteps*sizeof(t_float) );
-   x->x_volumes = ( t_float* ) getbytes( x->x_nbsteps*sizeof(t_float) );
-   x->x_ipeaches = ( t_int* ) getbytes( x->x_nbsteps*sizeof(t_int) );
-   x->x_ivolumes = ( t_int* ) getbytes( x->x_nbsteps*sizeof(t_int) );
-   for ( si=0; si<x->x_nbsteps ; si++ )
-   {
-         fscanf( tmph, "%f", &x->x_peaches[si] );
-         fscanf( tmph, "%f", &x->x_volumes[si] );
-   }
-    
-   pianoroll_draw_new(x, x->x_glist);
-   pianoroll_draw_update(x, x->x_glist);
-
-   if ( fclose( tmph ) == -1 )
-   {
-      post( "pianoroll : could not close file : %s ", ffile->s_name );
-      return;
-   }
-}
-
-static void pianoroll_init(t_pianoroll *x) 
-{
-  t_int si;
-
-    for ( si=0; si<x->x_nbsteps; si++ )
-    {
-      x->x_peaches[si] = x->x_defvalue;
-      x->x_volumes[si] = 1.0;
-    }
-    pianoroll_draw_erase(x, x->x_glist );
-    pianoroll_draw_new(x, x->x_glist );
-    pianoroll_draw_update(x, x->x_glist );
-}
-
-static void pianoroll_pitch(t_pianoroll *x, t_floatarg fpos, t_floatarg fpitch) 
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
- t_int ipos;
-
-  if ( ( ( (t_int) fpos ) < 0 ) || ( ( (t_int) fpos ) >= x->x_nbsteps ) )
-  {
-     post( "pianoroll : wrong pitch position : %d", fpos );
-     return;
-  }
-  ipos = (t_int) fpos;
-  if ( ( ( (t_int) fpitch ) < x->x_pmin ) || ( ( (t_int) fpitch ) > x->x_pmax ) )
-  {
-     post( "pianoroll : wrong pitch value : %d", fpitch );
-     return;
-  }
-
-  {
-     SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #761623\n", canvas, x, ipos, x->x_ipeaches[ ipos ]);
-
-     x->x_ipeaches[ ipos ] = (t_int) ( ( ( x->x_pmax - fpitch ) / ( x->x_pmax - x->x_pmin ) ) * ( x->x_nbgrades - 1 ) );
-     x->x_peaches[ ipos ] = x->x_pmin+(float)(x->x_nbgrades-1-x->x_ipeaches[ ipos ])/(float)(x->x_nbgrades-1)*(float)(x->x_pmax-x->x_pmin);
-     SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #FFFF00\n", canvas, x, ipos, x->x_ipeaches[ ipos ]);
-  }
-}
- 
-static void pianoroll_volume(t_pianoroll *x, t_floatarg fpos, t_floatarg fvol) 
-{
- t_canvas *canvas=glist_getcanvas(x->x_glist);
- t_int ipos;
-
-  if ( ( ( (t_int) fpos ) < 0 ) || ( ( (t_int) fpos ) >= x->x_nbsteps ) )
-  {
-     post( "pianoroll : wrong volume position : %d", fpos );
-     return;
-  }
-  ipos = (t_int) fpos;
-  if ( ( ( (t_int) fvol ) < 0.0 ) || ( ( (t_int) fvol ) > 1.0 ) )
-  {
-     post( "pianoroll : wrong volume value : %d", fvol );
-     return;
-  }
-
-  {
-      SYS_VGUI5(".x%x.c itemconfigure %xVOLUME%.4d%.4d -fill #562663\n", canvas, x, ipos, x->x_ivolumes[ ipos ] );
-   
-      x->x_ivolumes[ ipos ] = (t_int) ( ( 1 - fvol ) * (x->x_nbgrades-1) );
-      x->x_volumes[ ipos ] = (((float)x->x_nbgrades-1-(float)x->x_ivolumes[ ipos ]))/(float)(x->x_nbgrades-1);
-      SYS_VGUI5(".x%x.c itemconfigure %xVOLUME%.4d%.4d -fill #FF0000\n", canvas, x, ipos, x->x_ivolumes[ ipos ] );
-  }
-}
-
-static void pianoroll_float(t_pianoroll *x, t_floatarg fposition) 
-{
-  t_int pposition, rposition, rrposition;
-  t_float fpart;
-  t_int pi;
-  t_canvas *canvas;
-
-    pposition = ( (int)fposition - 1 ) % x->x_nbsteps;
-    if ( pposition < 0 ) pposition += x->x_nbsteps;
-    rposition = ( (int)fposition ) % x->x_nbsteps;
-    if ( rposition < 0 ) rposition += x->x_nbsteps;
-    rrposition = ( (int)fposition +1 ) % x->x_nbsteps;
-    if ( rrposition < 0 ) rrposition += x->x_nbsteps;
-
-    // post ( "pposition=%d rposition=%d rrposition=%d", pposition, rposition, rrposition );
-    fpart = fposition - (int)fposition;
-    pi=-1;
-    canvas=glist_getcanvas(x->x_glist);
-
-    outlet_float( x->x_pitch, x->x_peaches[ rposition ] + 
-                  fpart*(x->x_peaches[ rrposition ] - x->x_peaches[ rposition ] ) + 
-                  x->x_transpose );
-    outlet_float( x->x_volume, x->x_volumes[ rposition ] + 
-                  fpart*(x->x_volumes[ rrposition ] - x->x_volumes[ rposition ] ) );
-
-    // graphical update
-    {
-       if ( x->x_scurrent != -1 )
-       {
-          SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #FFFF00\n", canvas, x, 
-                               x->x_scurrent, x->x_ipeaches[ x->x_scurrent  ]);
-       }
-       x->x_scurrent = rposition;
-       SYS_VGUI5(".x%x.c itemconfigure %xPITCH%.4d%.4d -fill #00FF00\n", canvas, x, 
-                  x->x_scurrent, x->x_ipeaches[ x->x_scurrent ]);
-    }
-}
-
-static t_pianoroll *pianoroll_new(t_symbol *s, int argc, t_atom *argv)
-{
-    int si, i, zz;
-    t_pianoroll *x;
-    t_pd *x2;
-    char *str;
- 
-    // post( "pianoroll_new : create : %s argc =%d", s->s_name, argc );
-
-    x = (t_pianoroll *)pd_new(pianoroll_class);
-    // new pianoroll created from the gui 
-    if ( argc != 0 )
-    {
-      if ( argc < 10 )
-      {
-        post( "pianoroll : error in the number of arguments ( %d )", argc );
-        return NULL;
-      }
-      if ( ( argv[5].a_w.w_float <= 0 ) || ( argv[5].a_w.w_float <= 0 ) ) {
-         post( "pianoroll : error : wrong number of steps or grades" );
-         return NULL;
-      }
-      if ( ( argv[3].a_w.w_float >= argv[4].a_w.w_float ) ) {
-         post( "pianoroll : error : min pitch is > to max pitch" );
-         return NULL;
-      }
-      if ( argv[0].a_type != A_SYMBOL || 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 ||
-        argv[6].a_type != A_FLOAT || argv[7].a_type != A_FLOAT || 
-        argv[8].a_type != A_FLOAT || argv[9].a_type != A_FLOAT ) {
-        post( "pianoroll : wrong arguments" );
-        return NULL;
-      }
-
-      // update pianoroll count
-      if (!strncmp((str = argv[0].a_w.w_symbol->s_name), "pianoroll", 9)
-    	 && (zz = atoi(str + 9)) > pianorollcount) 
-      {
-        // post( "pianoroll : already %d objects", pianorollcount );
-        pianorollcount = zz;
-      }
-      x->x_name = argv[0].a_w.w_symbol;
-      pd_bind(&x->x_obj.ob_pd, x->x_name);
-      x->x_width = argv[1].a_w.w_float;
-      x->x_height = argv[2].a_w.w_float;
-      x->x_pmin = argv[3].a_w.w_float;
-      x->x_pmax = argv[4].a_w.w_float;
-      x->x_nbgrades = argv[5].a_w.w_float;
-      x->x_nbsteps = argv[6].a_w.w_float;
-      x->x_peaches = (t_float*) getbytes( x->x_nbsteps*sizeof(t_float) );
-      x->x_ipeaches = (t_int*) getbytes( x->x_nbsteps*sizeof(t_int) );
-      x->x_volumes = (t_float*) getbytes( x->x_nbsteps*sizeof(t_float) );
-      x->x_ivolumes = (t_int*) getbytes( x->x_nbsteps*sizeof(t_int) );
-      x->x_defvalue = argv[7].a_w.w_float;
-      x->x_transpose = argv[8].a_w.w_float;
-      x->x_save = argv[9].a_w.w_float;
-    }
-    else
-    {
-      char buf[40];
-
-      sprintf(buf, "pianoroll%d", ++pianorollcount);
-      s = gensym(buf);    	
-
-      x->x_name = s;
-      pd_bind(&x->x_obj.ob_pd, x->x_name);
-
-      x->x_width = DEFAULT_SEQUENCER_WIDTH;
-      x->x_height = DEFAULT_SEQUENCER_HEIGHT;
-      x->x_pmin = DEFAULT_SEQUENCER_PITCH_MIN;
-      x->x_pmax = DEFAULT_SEQUENCER_PITCH_MAX;
-      x->x_nbgrades = DEFAULT_SEQUENCER_NBGRADES;
-      x->x_nbsteps = DEFAULT_SEQUENCER_STEPS;
-      x->x_peaches = (t_float*) getbytes( x->x_nbsteps*sizeof(t_float) );
-      x->x_ipeaches = (t_int*) getbytes( x->x_nbsteps*sizeof(t_int) );
-      x->x_volumes = (t_float*) getbytes( x->x_nbsteps*sizeof(t_float) );
-      x->x_ivolumes = (t_int*) getbytes( x->x_nbsteps*sizeof(t_int) );
-      x->x_defvalue = 0;
-      x->x_transpose = 0;
-      x->x_save = 1;
-
-    }
-
-    // common fields for new and restored pianorolls
-    x->x_selected = 0;	
-    x->x_scurrent = -1;	
-    x->x_glist = (t_glist *) canvas_getcurrent();
-    x->x_pitch = outlet_new(&x->x_obj, &s_float ); 
-    x->x_volume = outlet_new(&x->x_obj, &s_float ); 
-    // post( "pianoroll : argc : %d", argc );
-    if ( ( argc != 0 ) && ( x->x_save ) )
-    {
-       int ai = 10;
-       int si = 0;
-
-       while ( ai < argc )
-       {
-           x->x_peaches[si] = argv[ai++].a_w.w_float;
-           if ( ai >= argc ) break;
-           x->x_volumes[si++] = argv[ai++].a_w.w_float;
-       }
-    }
-    else // following arguments are the values of pitch, volumes
-    {
-      for ( si=0; si<x->x_nbsteps; si++ )
-      {
-        x->x_peaches[si] = x->x_defvalue;
-        x->x_volumes[si] = 1.0;
-      }
-    }
-
-    // post( "pianoroll_new name : %s width: %d height : %d", x->x_name->s_name, x->x_width, x->x_height );
-
-    return (x);
-}
-
-static void pianoroll_free(t_pianoroll *x)
-{
-   // post( "pianoroll~: pianoroll_free" );
-   if ( x->x_peaches )
-   {
-      freebytes( x->x_peaches, x->x_nbsteps*sizeof(t_float) );
-   }
-   if ( x->x_ipeaches )
-   {
-      freebytes( x->x_ipeaches, x->x_nbsteps*sizeof(t_int) );
-   }
-   if ( x->x_volumes )
-   {
-      freebytes( x->x_volumes, x->x_nbsteps*sizeof(t_float) );
-   }
-   if ( x->x_ivolumes )
-   {
-      freebytes( x->x_ivolumes, x->x_nbsteps*sizeof(t_int) );
-   }
-}
-
-void pianoroll_setup(void)
-{
-    post( pianoroll_version );
-#include "pianoroll.tk2c" 
-    pianoroll_class = class_new(gensym("pianoroll"), (t_newmethod)pianoroll_new,
-			      (t_method)pianoroll_free, sizeof(t_pianoroll), 0, A_GIMME, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_float, &s_float, A_FLOAT, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_transpose, gensym("transpose"),
-		    A_FLOAT, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_init, gensym("init"), 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_dialog, gensym("dialog"), A_GIMME, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_save_file, gensym("save"), A_SYMBOL, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_load, gensym("load"), A_SYMBOL, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_pitch, gensym("pitch"), A_FLOAT, A_FLOAT, 0);
-    class_addmethod(pianoroll_class, (t_method)pianoroll_volume, gensym("volume"), A_FLOAT, A_FLOAT, 0);
-
-
-    pianoroll_widgetbehavior.w_getrectfn =    pianoroll_getrect;
-    pianoroll_widgetbehavior.w_displacefn =   pianoroll_displace;
-    pianoroll_widgetbehavior.w_selectfn =     pianoroll_select;
-    pianoroll_widgetbehavior.w_activatefn =   NULL;
-    pianoroll_widgetbehavior.w_deletefn =     pianoroll_delete;
-    pianoroll_widgetbehavior.w_visfn =        pianoroll_vis;
-    pianoroll_widgetbehavior.w_clickfn =      pianoroll_click;
-
-#if PD_MINOR_VERSION >= 37
-    class_setpropertiesfn(pianoroll_class, pianoroll_properties);
-    class_setsavefn(pianoroll_class, pianoroll_save);
-#else
-    pianoroll_widgetbehavior.w_propertiesfn = pianoroll_properties;
-    pianoroll_widgetbehavior.w_savefn =       pianoroll_save;
-#endif
-
-    class_setwidget(pianoroll_class, &pianoroll_widgetbehavior);
-
-}
diff --git a/pianoroll/pianoroll.h b/pianoroll/pianoroll.h
deleted file mode 100644
index 4f6a783..0000000
--- a/pianoroll/pianoroll.h
+++ /dev/null
@@ -1,40 +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 pianoroll which enables 
-*  to control a sequencer ( pitch and volume )
-*/
-
-#ifndef __G_PIANOROLL_H
-#define __G_PIANOROLL_H
-
-typedef struct _pianoroll
-{
-    t_object x_obj;
-    t_glist *x_glist;
-    t_symbol *x_name; 
-    t_outlet *x_pitch; 
-    t_outlet *x_volume; 
-    int x_height; 	/* height of the pianoroll                   */
-    int x_width; 	/* width of the pianoroll                    */
-    t_float x_pmin; 	/* minimum value of the pitch                */
-    t_float x_pmax; 	/* max value of the pitch                    */
-    t_int x_nbgrades;   /* number of grades for the pitch            */
-    t_int x_nbsteps; 	/* number of steps                           */
-    t_int x_defvalue;   /* default value for the pitch               */
-    t_float x_transpose;/* transposition value                       */
-    t_float *x_peaches; /* pitch for each step                       */
-    t_int *x_ipeaches;  /* pitch index for each step                 */
-    t_float *x_volumes; /* volume for each step                      */
-    t_int *x_ivolumes;  /* volume index for each step                */
-    int x_selected; 	/* stores selected state                     */
-    int x_xlines; 	/* number of vertical lines                  */
-    int x_ylines; 	/* number of horizontal lines                */
-    int x_scurrent; 	/* cureent step                              */
-    int x_save; 	/* saving contents flag                      */
-} t_pianoroll;
-
-EXTERN t_rtext *rtext_new_without_senditup(t_glist *glist, t_text *who, t_rtext *next);
-
-#endif
diff --git a/pianoroll/pianoroll.tk b/pianoroll/pianoroll.tk
deleted file mode 100644
index eccadce..0000000
--- a/pianoroll/pianoroll.tk
+++ /dev/null
@@ -1,164 +0,0 @@
-############ pianoroll procedures  -- ydegoyon@free.fr        #########
-
-proc pianoroll_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_name [concat graph_name_$vid]
-     global $var_graph_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_pmin [concat graph_pmin_$vid]
-     global $var_graph_pmin
-     set var_graph_pmax [concat graph_pmax_$vid]
-     global $var_graph_pmax
-     set var_graph_nbgrades [concat graph_nbgrades_$vid]
-     global $var_graph_nbgrades
-     set var_graph_nbsteps [concat graph_nbsteps_$vid]
-     global $var_graph_nbsteps
-     set var_graph_defvalue [concat graph_defvalue_$vid]
-     global $var_graph_defvalue
-     set var_graph_save [concat graph_save_$vid]
-     global $var_graph_save
- 
-     set cmd [concat $id dialog \
-         [eval concat $$var_graph_name] \
-         [eval concat $$var_graph_width] \
-         [eval concat $$var_graph_height] \
-         [eval concat $$var_graph_pmin] \
-         [eval concat $$var_graph_pmax] \
-         [eval concat $$var_graph_nbgrades] \
-         [eval concat $$var_graph_nbsteps] \
-         [eval concat $$var_graph_defvalue] \
-         [eval concat $$var_graph_save] \;]
-     #puts stderr $cmd
-     pd $cmd
-}
- 
-proc pianoroll_cancel {id} {
-     set cmd [concat $id cancel \;]
-     #puts stderr $cmd
-     pd $cmd
-}
- 
-proc pianoroll_ok {id} {
-     pianoroll_apply $id
-     pianoroll_cancel $id
-}
- 
-proc pdtk_pianoroll_dialog {id name width height pmin pmax nbgrades nbsteps defvalue save } {
-     set vid [string trimleft $id .]
-     set var_graph_name [concat graph_name_$vid]
-     global $var_graph_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_pmin [concat graph_pmin_$vid]
-     global $var_graph_pmin
-     set var_graph_pmax [concat graph_pmax_$vid]
-     global $var_graph_pmax
-     set var_graph_nbgrades [concat graph_nbgrades_$vid]
-     global $var_graph_nbgrades
-     set var_graph_nbsteps [concat graph_nbsteps_$vid]
-     global $var_graph_nbsteps
-     set var_graph_defvalue [concat graph_defvalue_$vid]
-     global $var_graph_defvalue
-     set var_graph_save [concat graph_save_$vid]
-     global $var_graph_save
- 
-     set $var_graph_name $name
-     set $var_graph_width $width
-     set $var_graph_height $height
-     set $var_graph_pmin $pmin
-     set $var_graph_pmax $pmax
-     set $var_graph_nbgrades $nbgrades
-     set $var_graph_nbsteps $nbsteps
-     set $var_graph_defvalue $defvalue
-     set $var_graph_save $save
- 
-     toplevel $id
-     wm title $id {pianoroll}
-     wm protocol $id WM_DELETE_WINDOW [concat pianoroll_cancel $id]
- 
-     label $id.label -text {PIANOROLL 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 "pianoroll_cancel $id"
-     button $id.buttonframe.apply -text {Apply}\
-     	-command "pianoroll_apply $id"
-     button $id.buttonframe.ok -text {OK}\
-     	-command "pianoroll_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.lname -text "Name :"
-     entry $id.1rangef.name -textvariable $var_graph_name -width 15
-     pack $id.1rangef.lname $id.1rangef.name -side left
- 
-     frame $id.2rangef
-     pack $id.2rangef -side top
-     label $id.2rangef.lwidth -text "Width :"
-     entry $id.2rangef.width -textvariable $var_graph_width -width 7
-     pack $id.2rangef.lwidth $id.2rangef.width -side left
- 
-     frame $id.3rangef
-     pack $id.3rangef -side top
-     label $id.3rangef.lheight -text "Height :"
-     entry $id.3rangef.height -textvariable $var_graph_height -width 7
-     pack $id.3rangef.lheight $id.3rangef.height -side left
- 
-     frame $id.4rangef
-     pack $id.4rangef -side top
-     label $id.4rangef.lpmin -text "Pitch low :"
-     entry $id.4rangef.pmin -textvariable $var_graph_pmin -width 7
-     pack $id.4rangef.lpmin $id.4rangef.pmin -side left
- 
-     frame $id.5rangef
-     pack $id.5rangef -side top
-     label $id.5rangef.lpmax -text "Pitch high :"
-     entry $id.5rangef.pmax -textvariable $var_graph_pmax -width 7
-     pack $id.5rangef.lpmax $id.5rangef.pmax -side left
- 
-     frame $id.6rangef
-     pack $id.6rangef -side top
-     label $id.6rangef.lnbgrades -text "Grades :"
-     entry $id.6rangef.nbgrades -textvariable $var_graph_nbgrades -width 7
-     pack $id.6rangef.lnbgrades $id.6rangef.nbgrades -side left
- 
-     frame $id.7rangef
-     pack $id.7rangef -side top
-     label $id.7rangef.lnbsteps -text "Steps :"
-     entry $id.7rangef.nbsteps -textvariable $var_graph_nbsteps -width 7
-     pack $id.7rangef.lnbsteps $id.7rangef.nbsteps -side left
- 
-     frame $id.8rangef
-     pack $id.8rangef -side top
-     label $id.8rangef.ldefvalue -text "Default Value :"
-     entry $id.8rangef.defvalue -textvariable $var_graph_defvalue -width 7
-     pack $id.8rangef.ldefvalue $id.8rangef.defvalue -side left
-
-     checkbutton $id.save -text {Save contents} -variable $var_graph_save \
-        -anchor w
-     pack $id.save -side top  
- 
-     bind $id.1rangef.name <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.2rangef.width <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.3rangef.height <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.4rangef.pmin <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.5rangef.pmax <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.6rangef.nbgrades <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.7rangef.nbsteps <KeyPress-Return> [concat pianoroll_ok $id]
-     bind $id.8rangef.defvalue <KeyPress-Return> [concat pianoroll_ok $id]
-     focus $id.1rangef.name
-}
-
-############ pianoroll procedures END -- ydegoyon@free.fr     #########
diff --git a/pianoroll/pianoroll.tk2c b/pianoroll/pianoroll.tk2c
deleted file mode 100755
index 10f5645..0000000
--- a/pianoroll/pianoroll.tk2c
+++ /dev/null
@@ -1,131 +0,0 @@
-// ########### pianoroll procedures -- ydegoyon@free.fr #########
-sys_gui("proc pianoroll_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_name [concat graph_name_$vid]\n");
-sys_gui("global $var_graph_name\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_pmin [concat graph_pmin_$vid]\n");
-sys_gui("global $var_graph_pmin\n");
-sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n");
-sys_gui("global $var_graph_pmax\n");
-sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n");
-sys_gui("global $var_graph_nbgrades\n");
-sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n");
-sys_gui("global $var_graph_nbsteps\n");
-sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n");
-sys_gui("global $var_graph_defvalue\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_name] [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_pmin] [eval concat $$var_graph_pmax] [eval concat $$var_graph_nbgrades] [eval concat $$var_graph_nbsteps] [eval concat $$var_graph_defvalue] [eval concat $$var_graph_save] \\;]\n");
-// puts stderr $cmd
-sys_gui("pd $cmd\n");
-sys_gui("}\n");
-sys_gui("proc pianoroll_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 pianoroll_ok {id} {\n");
-sys_gui("pianoroll_apply $id\n");
-sys_gui("pianoroll_cancel $id\n");
-sys_gui("}\n");
-sys_gui("proc pdtk_pianoroll_dialog {id name width height pmin pmax nbgrades nbsteps defvalue save } {\n");
-sys_gui("set vid [string trimleft $id .]\n");
-sys_gui("set var_graph_name [concat graph_name_$vid]\n");
-sys_gui("global $var_graph_name\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_pmin [concat graph_pmin_$vid]\n");
-sys_gui("global $var_graph_pmin\n");
-sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n");
-sys_gui("global $var_graph_pmax\n");
-sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n");
-sys_gui("global $var_graph_nbgrades\n");
-sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n");
-sys_gui("global $var_graph_nbsteps\n");
-sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n");
-sys_gui("global $var_graph_defvalue\n");
-sys_gui("set var_graph_save [concat graph_save_$vid]\n");
-sys_gui("global $var_graph_save\n");
-sys_gui("set $var_graph_name $name\n");
-sys_gui("set $var_graph_width $width\n");
-sys_gui("set $var_graph_height $height\n");
-sys_gui("set $var_graph_pmin $pmin\n");
-sys_gui("set $var_graph_pmax $pmax\n");
-sys_gui("set $var_graph_nbgrades $nbgrades\n");
-sys_gui("set $var_graph_nbsteps $nbsteps\n");
-sys_gui("set $var_graph_defvalue $defvalue\n");
-sys_gui("set $var_graph_save $save\n");
-sys_gui("toplevel $id\n");
-sys_gui("wm title $id {pianoroll}\n");
-sys_gui("wm protocol $id WM_DELETE_WINDOW [concat pianoroll_cancel $id]\n");
-sys_gui("label $id.label -text {PIANOROLL 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 \"pianoroll_cancel $id\"\n");
-sys_gui("button $id.buttonframe.apply -text {Apply} -command \"pianoroll_apply $id\"\n");
-sys_gui("button $id.buttonframe.ok -text {OK} -command \"pianoroll_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.lname -text \"Name :\"\n");
-sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 15\n");
-sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
-sys_gui("frame $id.2rangef\n");
-sys_gui("pack $id.2rangef -side top\n");
-sys_gui("label $id.2rangef.lwidth -text \"Width :\"\n");
-sys_gui("entry $id.2rangef.width -textvariable $var_graph_width -width 7\n");
-sys_gui("pack $id.2rangef.lwidth $id.2rangef.width -side left\n");
-sys_gui("frame $id.3rangef\n");
-sys_gui("pack $id.3rangef -side top\n");
-sys_gui("label $id.3rangef.lheight -text \"Height :\"\n");
-sys_gui("entry $id.3rangef.height -textvariable $var_graph_height -width 7\n");
-sys_gui("pack $id.3rangef.lheight $id.3rangef.height -side left\n");
-sys_gui("frame $id.4rangef\n");
-sys_gui("pack $id.4rangef -side top\n");
-sys_gui("label $id.4rangef.lpmin -text \"Pitch low :\"\n");
-sys_gui("entry $id.4rangef.pmin -textvariable $var_graph_pmin -width 7\n");
-sys_gui("pack $id.4rangef.lpmin $id.4rangef.pmin -side left\n");
-sys_gui("frame $id.5rangef\n");
-sys_gui("pack $id.5rangef -side top\n");
-sys_gui("label $id.5rangef.lpmax -text \"Pitch high :\"\n");
-sys_gui("entry $id.5rangef.pmax -textvariable $var_graph_pmax -width 7\n");
-sys_gui("pack $id.5rangef.lpmax $id.5rangef.pmax -side left\n");
-sys_gui("frame $id.6rangef\n");
-sys_gui("pack $id.6rangef -side top\n");
-sys_gui("label $id.6rangef.lnbgrades -text \"Grades :\"\n");
-sys_gui("entry $id.6rangef.nbgrades -textvariable $var_graph_nbgrades -width 7\n");
-sys_gui("pack $id.6rangef.lnbgrades $id.6rangef.nbgrades -side left\n");
-sys_gui("frame $id.7rangef\n");
-sys_gui("pack $id.7rangef -side top\n");
-sys_gui("label $id.7rangef.lnbsteps -text \"Steps :\"\n");
-sys_gui("entry $id.7rangef.nbsteps -textvariable $var_graph_nbsteps -width 7\n");
-sys_gui("pack $id.7rangef.lnbsteps $id.7rangef.nbsteps -side left\n");
-sys_gui("frame $id.8rangef\n");
-sys_gui("pack $id.8rangef -side top\n");
-sys_gui("label $id.8rangef.ldefvalue -text \"Default Value :\"\n");
-sys_gui("entry $id.8rangef.defvalue -textvariable $var_graph_defvalue -width 7\n");
-sys_gui("pack $id.8rangef.ldefvalue $id.8rangef.defvalue -side left\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.name <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.2rangef.width <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.3rangef.height <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.4rangef.pmin <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.5rangef.pmax <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.6rangef.nbgrades <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.7rangef.nbsteps <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("bind $id.8rangef.defvalue <KeyPress-Return> [concat pianoroll_ok $id]\n");
-sys_gui("focus $id.1rangef.name\n");
-sys_gui("}\n");
-// ########### pianoroll procedures END -- ydegoyon@free.fr #########
diff --git a/pianoroll/tk2c.bash b/pianoroll/tk2c.bash
deleted file mode 100755
index 9dfeb03..0000000
--- a/pianoroll/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