Update of /cvsroot/pure-data/externals/unauthorized/scratcher~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7978
Modified Files: CHANGES.LOG scratcher~.c Added Files: help-scratcher~.pd scratcher~.tk2c tk2c.bash Log Message: fixed coordinates for GOP
Index: CHANGES.LOG =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scratcher~/CHANGES.LOG,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** CHANGES.LOG 2 Mar 2005 02:48:23 -0000 1.3 --- CHANGES.LOG 26 Jul 2006 16:55:55 -0000 1.4 *************** *** 1,2 **** --- 1,4 ---- + 0.10 + fixed coordinates for GOP support 0.9 added GOP support
--- NEW FILE: scratcher~.tk2c --- // ########### 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 #########
--- NEW FILE: help-scratcher~.pd --- #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;
Index: scratcher~.c =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scratcher~/scratcher~.c,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** scratcher~.c 18 Dec 2005 18:55:09 -0000 1.11 --- scratcher~.c 26 Jul 2006 16:55:55 -0000 1.12 *************** *** 38,63 **** #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 _WIN32 ! #include <io.h> ! #include "timeval.h" ! #else #include <unistd.h> ! #endif /* _WIN32 */ ! #include <math.h> ! ! #ifndef M_PI #define M_PI 3.14159265358979323846 ! #endif /* not M_PI */
#include "m_pd.h" --- 38,53 ---- #include <fcntl.h> #include <sys/stat.h> #include <malloc.h> #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" *************** *** 121,125 **** #define SCRATCHER_MOVE_TIMEOUT 20
! static char *scratcher_version = "scratcher~: version 0.9, written by Yves Degoyon (ydegoyon@free.fr)";
static t_class *scratcher_class; --- 111,115 ---- #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; *************** *** 289,293 ****
binbuf_addv(b, "ssiisiiiiff", gensym("#X"),gensym("obj"), ! (t_int)text_xpix(&x->x_obj, x->x_glist), (t_int)text_ypix(&x->x_obj, x->x_glist), gensym("scratcher~"), x->x_size, x->x_width, x->x_height, x->x_sensibility, x->x_maxspeed, x->x_inertia ); --- 279,283 ----
binbuf_addv(b, "ssiisiiiiff", gensym("#X"),gensym("obj"), ! (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, gensym("scratcher~"), x->x_size, x->x_width, x->x_height, x->x_sensibility, x->x_maxspeed, x->x_inertia );
--- NEW FILE: tk2c.bash --- #!/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