[PD-cvs] externals/unauthorized/scratcher~ help-scratcher~.pd, 1.2, 1.3 scratcher~.tk2c, NONE, 1.1 tk2c.bash, NONE, 1.1 CHANGES.LOG, 1.3, 1.4 scratcher~.c, 1.11, 1.12

Wed Jul 26 18:55:57 CEST 2006

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 at 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 at 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 at 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 at 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