Pd-cvs January 2004

pd-cvs@lists.iem.at

12 participants
91 discussions

supercollider README,1.1,1.2
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/supercollider In directory sc8-pr-cvs1:/tmp/cvs-serv1778 Modified Files: README Log Message: Various Index: README =================================================================== RCS file: /cvsroot/pure-data/supercollider/README,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** README 20 Jan 2004 18:14:56 -0000 1.1 --- README 21 Jan 2004 15:28:54 -0000 1.2 *************** *** 27,36 **** -Go to the example directory and try to run the help-sc.pd patch. Make sure you have at least PD v0.37, and the latest version ! of the pyext external. ! If you have any questions, don't ask me directly, ask on the ! pd-list or on the supercollider list. I'm very tired about ! replying the same questions over and over again. Thanks! --- 27,37 ---- -Go to the example directory and try to run the help-sc.pd patch. Make sure you have at least PD v0.37, and the latest version ! of the pyext external. The supertest.py file must be placed ! in the scripts folder for pyext. ! If you have a general questions (compiling it up, error messages), ! don't ask me directly; ask on the pd-list or on the supercollider list. !

1 0

supercollider/k_sc~ README,NONE,1.1
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/supercollider/k_sc~ In directory sc8-pr-cvs1:/tmp/cvs-serv22383 Added Files: README Log Message: some info --- NEW FILE: README --- k_sc~ v0.0.1 k_sc~ requires you to use Jack as the audio API for PD. It is an external that automaticly routes the audio between PD and the Supercollider synth. It provides two objects: 1. [from_sc~] Receives sound from Supercollider. Syntax is the same as the [adc~] object. 2. [to_sc~] Sends sound to Supercollider. Syntax is the same as the [dac~] object. Kjetil S. Matheussen k.s.matheussen(a)notam02.no

1 0

externals/k_guile README,1.2,1.3
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/externals/k_guile In directory sc8-pr-cvs1:/tmp/cvs-serv5484 Modified Files: README Log Message: typo Index: README =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/README,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** README 21 Jan 2004 09:55:20 -0000 1.2 --- README 21 Jan 2004 10:02:04 -0000 1.3 *************** *** 96,100 **** -Loads /etc/.k_guile.scm and $HOME/.k_guile.scm at startup. ! -An inlet can spesify 'any as type, and will then receive anything. -The k_guile object can receive "eval" messages to evaluate --- 96,100 ---- -Loads /etc/.k_guile.scm and $HOME/.k_guile.scm at startup. ! -An inlet can specify 'any as type, and will then receive anything. -The k_guile object can receive "eval" messages to evaluate

1 0

externals/k_guile README,1.1,1.2
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/externals/k_guile In directory sc8-pr-cvs1:/tmp/cvs-serv4405 Modified Files: README Log Message: Changes from 0.0.1->0.0.2 Index: README =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/README,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** README 8 Jan 2004 14:55:24 -0000 1.1 --- README 21 Jan 2004 09:55:20 -0000 1.2 *************** *** 3,7 **** k_guile PD external -------------------------------------------- ! V0.0.1 -This external makes you able to use guile as an extension language for --- 3,7 ---- k_guile PD external -------------------------------------------- ! V0.0.2 -This external makes you able to use guile as an extension language for *************** *** 91,98 **** -------------------------------------------------- Kjetil S. Matheussen, k.s.matheussen(a)notam02.no ! last updated 4.1.2004 --- 91,108 ---- + Changes + -------------------------------------------------- + v0.0.1->v0.0.2: + -Loads /etc/.k_guile.scm and $HOME/.k_guile.scm at + startup. + -An inlet can spesify 'any as type, and will then + receive anything. + -The k_guile object can receive "eval" messages to evaluate + scheme code. + -------------------------------------------------- Kjetil S. Matheussen, k.s.matheussen(a)notam02.no ! last updated 21.1.2004

1 0

supercollider/python supercollider.py,1.1,1.2
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/supercollider/python In directory sc8-pr-cvs1:/tmp/cvs-serv27869 Modified Files: supercollider.py Log Message: Convert all floats to ints before sending to the synth Index: supercollider.py =================================================================== RCS file: /cvsroot/pure-data/supercollider/python/supercollider.py,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** supercollider.py 20 Jan 2004 16:54:44 -0000 1.1 --- supercollider.py 21 Jan 2004 08:58:03 -0000 1.2 *************** *** 25,29 **** ! import OSC,tempfile,xreadlines,os,time standardport=57110 --- 25,29 ---- ! import OSC,tempfile,xreadlines,os,time,types standardport=57110 *************** *** 46,55 **** if magic!=1234: print "Server.__init__: Are you sure you know what you are doing?" ! print "Seems like probably wanted to use the 'localServer' variable." self.port=port self.freenode=startnode; self.freebuffer=startbuffer; def sendMsg(self,command,*args): ! OSC.Message(command,args).sendlocal(self.port) def sendgetMsg(self,command,*args): apply(self.sendMsg,[command]+list(args)) --- 46,60 ---- if magic!=1234: print "Server.__init__: Are you sure you know what you are doing?" ! print "Seems like you probably wanted to use the 'localServer' variable." self.port=port self.freenode=startnode; self.freebuffer=startbuffer; def sendMsg(self,command,*args): ! def floatToInt(x): ! if type(x)==types.FloatType: ! return int(x) ! else: ! return x ! OSC.Message(command,map(floatToInt,args)).sendlocal(self.port) def sendgetMsg(self,command,*args): apply(self.sendMsg,[command]+list(args))

1 0

externals/k_guile global.scm,1.2,1.3 k_guile.c,1.2,1.3 local.scm,1.2,1.3
by ksvalast＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/externals/k_guile In directory sc8-pr-cvs1:/tmp/cvs-serv27488 Modified Files: global.scm k_guile.c local.scm Log Message: Clean-up before 0.0.2 Index: global.scm =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/global.scm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** global.scm 12 Jan 2004 13:10:17 -0000 1.2 --- global.scm 21 Jan 2004 08:56:12 -0000 1.3 *************** *** 28,31 **** --- 28,32 ---- + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Misc. functions *************** *** 135,138 **** --- 136,143 ---- ;; ;; + + (define (pd-backtrace-eval string) + (eval-string string)) + (define (pd-display-errorfunc key . args) (let ((dasstack (make-stack #t))) *************** *** 150,153 **** --- 155,164 ---- pd-display-errorfunc)) + (define (pd-backtrace-runx func arg1) + (stack-catch #t + (lambda x + (apply func x)) + pd-display-errorfunc)) + (define (pd-backtrace-run1 func arg1) (stack-catch #t *************** *** 174,178 **** pd-display-errorfunc)) - (pd-backtrace-run1 pd-load-if-exists "/etc/.k_guile.scm") (pd-backtrace-run1 pd-load-if-exists (string-append (getenv "HOME") "/.k_guile.scm")) --- 185,189 ---- pd-display-errorfunc)) (pd-backtrace-run1 pd-load-if-exists "/etc/.k_guile.scm") (pd-backtrace-run1 pd-load-if-exists (string-append (getenv "HOME") "/.k_guile.scm")) + Index: k_guile.c =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/k_guile.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** k_guile.c 12 Jan 2004 13:25:12 -0000 1.2 --- k_guile.c 21 Jan 2004 08:56:12 -0000 1.3 *************** *** 32,36 **** #define MAKE_STRING(a) scm_mem2string(a,strlen(a)) #define EVAL(a) scm_eval_string(MAKE_STRING(a)) - #define EVALINT(a) do{char tempstring[500];sprintf(tempstring,"%d",a);EVAL(tempstring);}while(0) #define MAKE_SYM(a) gensym(SCM_SYMBOL_CHARS(a)) --- 32,35 ---- *************** *** 92,100 **** static char *version = ! "k_guile v0.0.1, written by Kjetil S. Matheussen, k.s.matheussen(a)notam02.no"; static t_class *k_guile_class, *k_guile_workaroundclass; static SCM pd_backtrace_run; static SCM pd_backtrace_run1; static SCM pd_backtrace_run2; --- 91,100 ---- static char *version = ! "k_guile v0.0.2, written by Kjetil S. Matheussen, k.s.matheussen(a)notam02.no"; static t_class *k_guile_class, *k_guile_workaroundclass; static SCM pd_backtrace_run; + static SCM pd_backtrace_runx; static SCM pd_backtrace_run1; static SCM pd_backtrace_run2; *************** *** 216,231 **** *****************************************************************************************************/ - static SCM gpd_set_inlet_func(SCM instance,SCM func){ - t_k_guile *x=GET_X(instance); - x->inlet_func=func; - scm_gc_protect_object(x->inlet_func); - RU_; - } - static SCM gpd_set_cleanup_func(SCM instance,SCM func){ - t_k_guile *x=GET_X(instance); - x->cleanup_func=func; - scm_gc_protect_object(x->cleanup_func); - RU_; - } static SCM gpd_inlets(SCM instance,SCM num_ins){ int lokke; --- 216,219 ---- *************** *** 281,284 **** --- 269,273 ---- + /***************************************************************************************************** ***************************************************************************************************** *************** *** 442,447 **** scm_c_define_gsubr("pd-c-get-num-inlets",1,0,0,gpd_get_num_inlets); scm_c_define_gsubr("pd-c-get-num-outlets",1,0,0,gpd_get_num_outlets); - scm_c_define_gsubr("pd-c-set-inlet-func",2,0,0,gpd_set_inlet_func); - scm_c_define_gsubr("pd-c-set-cleanup-func",2,0,0,gpd_set_cleanup_func); scm_c_define_gsubr("pd-c-bind",2,0,0,gpd_bind); scm_c_define_gsubr("pd-c-unbind",2,0,0,gpd_unbind); --- 431,434 ---- *************** *** 463,466 **** --- 450,456 ---- scm_permanent_object(pd_backtrace_run); + pd_backtrace_runx=EVAL("pd-backtrace-runx"); + scm_permanent_object(pd_backtrace_runx); + pd_backtrace_run1=EVAL("pd-backtrace-run1"); scm_permanent_object(pd_backtrace_run1); *************** *** 489,493 **** static bool k_guile_load(t_k_guile *x,char *filename){ ! bool ret=true; FILE *file=fopen(filename,"r"); --- 479,484 ---- static bool k_guile_load(t_k_guile *x,char *filename){ ! SCM evalret; ! bool ret=false; FILE *file=fopen(filename,"r"); *************** *** 498,502 **** ! // Let the file live in its own name-space, or something like that. eval2("(define (pd-instance-func pd-instance)"); eval2( --- 489,493 ---- ! // Let the file live in its own name-space (or something like that). eval2("(define (pd-instance-func pd-instance)"); eval2( *************** *** 504,519 **** ); eval_file(file); ! eval2(" (pd-set-inlet-func)(pd-set-cleanup-func))"); eval2("1"); ! if( ! 1!=GET_INTEGER(eval_do()) ! || 1!=GET_INTEGER(scm_call_2(pd_backtrace_run1,EVAL("pd-instance-func"),MAKE_POINTER(x))) ! ) ! { ! post("Failed."); ! ret=false; ! } fclose(file); --- 495,519 ---- ); eval_file(file); ! eval2(" (cons pd-inlet-func pd-cleanup-func))"); eval2("1"); ! if(1!=GET_INTEGER(eval_do())){ ! post("Failed."); ! goto exit; ! } + evalret=scm_call_2(pd_backtrace_run1,EVAL("pd-instance-func"),MAKE_POINTER(x)); + if(INTEGER_P(evalret)){ + post("Failed."); + goto exit; + } + x->inlet_func=SCM_CAR(evalret); + x->cleanup_func=SCM_CDR(evalret); + scm_gc_protect_object(x->inlet_func); + scm_gc_protect_object(x->cleanup_func); + + ret=true; + + exit: fclose(file); *************** *** 568,571 **** --- 568,572 ---- + /***************************************************************************************************** ***************************************************************************************************** *************** *** 582,587 **** class_addanything(k_guile_class, (t_method)k_guile_anything_first); class_addmethod(k_guile_class, (t_method)k_guile_reload, gensym("reload"), 0); ! class_addmethod(k_guile_class, (t_method)k_guile_eval, gensym("eval"), A_DEFSYM, 0); ! //class_addmethod(k_guile_class, (t_method)k_guile_evalfile, gensym("evalfile"), A_DEFSYM, 0); class_sethelpsymbol(k_guile_class, gensym("help-k_guile.pd")); --- 583,588 ---- class_addanything(k_guile_class, (t_method)k_guile_anything_first); class_addmethod(k_guile_class, (t_method)k_guile_reload, gensym("reload"), 0); ! class_addmethod(k_guile_class, (t_method)k_guile_eval, gensym("eval"), A_DEFSYM,0); ! //class_addmethod(k_guile_class, (t_method)k_guile_evalfile, gensym("evalfile"), A_DEFSYM,0); class_sethelpsymbol(k_guile_class, gensym("help-k_guile.pd")); Index: local.scm =================================================================== RCS file: /cvsroot/pure-data/externals/k_guile/local.scm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** local.scm 16 Jan 2004 15:07:14 -0000 1.2 --- local.scm 21 Jan 2004 08:56:12 -0000 1.3 *************** *** 59,77 **** (define pd-inlet-anyvector (make-vector 1 '())) ! (define (pd-set-inlet-func) ! (pd-c-set-inlet-func pd-instance ! ;; This function is called from the C side when the object receives something on an inlet. ! (lambda (inlet-num symbol args) ! (let ((inlet-func (assq symbol ! (vector-ref pd-inlet-vector ! inlet-num)))) ! (if (not inlet-func) ! (begin ! (set! inlet-func (assq 'any ! (vector-ref pd-inlet-vector inlet-num))) ! (set! args (cons symbol args)))) ! (if inlet-func ! (apply (cadr inlet-func) args) ! (pd-display "No function defined for handling \'" symbol " to inlet " inlet-num)))))) (define (pd-inlet inlet-num symbol func) --- 59,75 ---- (define pd-inlet-anyvector (make-vector 1 '())) ! ;; This function is called from the C side when the object receives something on an inlet. ! (define (pd-inlet-func inlet-num symbol args) ! (let ((inlet-func (assq symbol ! (vector-ref pd-inlet-vector ! inlet-num)))) ! (if (not inlet-func) ! (begin ! (set! inlet-func (assq 'any ! (vector-ref pd-inlet-vector inlet-num))) ! (set! args (cons symbol args)))) ! (if inlet-func ! (apply (cadr inlet-func) args) ! (pd-display "No function defined for handling \'" symbol " to inlet " inlet-num)))) (define (pd-inlet inlet-num symbol func) *************** *** 146,150 **** (set! pd-local-bindings (pd-unbind-do symbol pd-local-bindings))) ! --- 144,152 ---- (set! pd-local-bindings (pd-unbind-do symbol pd-local-bindings))) ! (define (pd-unbind-all) ! (if (not (null? pd-local-bindings)) ! (begin ! (pd-unbind (car (car pd-local-bindings))) ! (pd-unbind-all)))) *************** *** 159,176 **** (set! pd-destroy-func thunk))) ! (define (pd-cleanup) (if pd-destroy-func (begin (pd-destroy-func) (set! pd-destroy-func #f))) ! (if (not (null? pd-local-bindings)) ! (begin ! (pd-unbind (car (car pd-local-bindings))) ! (pd-cleanup)))) ! ! ;; This one also returns the return-value for the pd-instance-func function, which is 1 for success. ! (define (pd-set-cleanup-func) ! (pd-c-set-cleanup-func pd-instance ! pd-cleanup) ! 1) --- 161,170 ---- (set! pd-destroy-func thunk))) ! ;; This func is called from the C-side. ! (define (pd-cleanup-func) (if pd-destroy-func (begin (pd-destroy-func) (set! pd-destroy-func #f))) ! (pd-unbind-all))

1 0

externals/OSCx/libOSC Makefile,1.4,1.5
by x75＠users.sourceforge.net 21 Jan '04

21 Jan '04

Update of /cvsroot/pure-data/externals/OSCx/libOSC In directory sc8-pr-cvs1:/tmp/cvs-serv28888 Modified Files: Makefile Log Message: added ben's fix for ARFLAGS .. Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/OSCx/libOSC/Makefile,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Makefile 20 Jan 2004 21:22:51 -0000 1.4 --- Makefile 20 Jan 2004 23:06:17 -0000 1.5 *************** *** 1,3 **** --- 1,4 ---- CFLAGS= -O2 -Wall -fPIC + ARFLAGS=srv # uncomment the following for linux/win DEFS= -Dunix

1 0

externals/OSCx/libOSC Makefile,1.3,1.4 OSC-client.c,1.2,1.3
by x75＠users.sourceforge.net 20 Jan '04

20 Jan '04

Update of /cvsroot/pure-data/externals/OSCx/libOSC In directory sc8-pr-cvs1:/tmp/cvs-serv5212 Modified Files: Makefile OSC-client.c Log Message: MACOSX needs sys/types.h included ... Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/OSCx/libOSC/Makefile,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Makefile 30 Jul 2003 11:11:58 -0000 1.3 --- Makefile 20 Jan 2004 21:22:51 -0000 1.4 *************** *** 1,4 **** --- 1,7 ---- CFLAGS= -O2 -Wall -fPIC + # uncomment the following for linux/win DEFS= -Dunix + # and this for osx + # DEFS= -Dunix -DMACOSX LIB=libOSC.a Index: OSC-client.c =================================================================== RCS file: /cvsroot/pure-data/externals/OSCx/libOSC/OSC-client.c,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** OSC-client.c 20 Oct 2002 16:01:10 -0000 1.2 --- OSC-client.c 20 Jan 2004 21:22:52 -0000 1.3 *************** *** 65,68 **** --- 65,72 ---- #endif + #ifdef MACOSX + #include <sys/types.h> + #endif + #ifdef unix #include <netinet/in.h>

1 0

externals/OSCx/OSC dumpOSC.c,1.6,1.7 makefile,1.12,1.13
by x75＠users.sourceforge.net 20 Jan '04

20 Jan '04

Update of /cvsroot/pure-data/externals/OSCx/OSC In directory sc8-pr-cvs1:/tmp/cvs-serv29625 Modified Files: dumpOSC.c makefile Log Message: now dumpOSC.c compiles something for OSX too Index: dumpOSC.c =================================================================== RCS file: /cvsroot/pure-data/externals/OSCx/OSC/dumpOSC.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** dumpOSC.c 19 Dec 2003 01:31:48 -0000 1.6 --- dumpOSC.c 20 Jan 2004 20:43:37 -0000 1.7 *************** *** 75,79 **** ! #if defined(__sgi) || defined(__linux) || defined(WIN32) #ifdef WIN32 --- 75,79 ---- ! #if defined(__sgi) || defined(__linux) || defined(WIN32) || defined(MACOSX) #ifdef WIN32 Index: makefile =================================================================== RCS file: /cvsroot/pure-data/externals/OSCx/OSC/makefile,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** makefile 19 Jun 2003 17:29:05 -0000 1.12 --- makefile 20 Jan 2004 20:43:37 -0000 1.13 *************** *** 20,24 **** # where is your m_pd.h ??? ! DARWININCLUDE = -I../../build/include -I../../obj DARWINEXTERNALS = htmsocket.o OSC-pattern-match.o sendOSC.o dumpOSC.o routeOSC.o --- 20,24 ---- # where is your m_pd.h ??? ! DARWININCLUDE = -I../../../pd/src DARWINEXTERNALS = htmsocket.o OSC-pattern-match.o sendOSC.o dumpOSC.o routeOSC.o *************** *** 26,30 **** .c.pd_darwin: cc $(DARWINCFLAGS) $(DARWININCLUDE) -c *.c ! cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o $(DARWINEXTERNALS) $(LIBS) $(LIBOSC) rm -f $*.o ../$*.pd_darwin --- 26,30 ---- .c.pd_darwin: cc $(DARWINCFLAGS) $(DARWININCLUDE) -c *.c ! cc -bundle -bundle_loader /usr/local/pd/bin/pd -flat_namespace -o $*.pd_darwin $*.o $(DARWINEXTERNALS) $(LIBS) $(LIBOSC) rm -f $*.o ../$*.pd_darwin

1 0

supercollider README,NONE,1.1
by ksvalast＠users.sourceforge.net 20 Jan '04

20 Jan '04

Update of /cvsroot/pure-data/supercollider In directory sc8-pr-cvs1:/tmp/cvs-serv25290 Added Files: README Log Message: Quick start instructions. --- NEW FILE: README --- Here are some programs and stuff to make using SuperCollider more convenient to use within PD. If you have never used SuperCollider together with PD before, here is a quick start: -Go to supercollider.sf.net and install supercollider. Make sure you get it to work. -Replace the linux/extMain.sc file with the one in this directory. Usually found in /usr/share/supercollider/linux/ or something. The standard distribution of the supercollider language does this crazy thing about shutting down the server. Stop that madness. -Go to the k_sc~ directory and compile up the k_sc~ external. This external automates the jack routing so that you get the jack output from the supercollider server into an object called "sc_in~". There is also an object called "sc_from~" that sends audio signals to the jack input on the supercollider server. -Go to the python directory, and copy the files in there to your python site-packages directory. Usually placed here: /usr/lib/python2.x/site-packages/ -Go to the example directory and try to run the help-sc.pd patch. Make sure you have at least PD v0.37, and the latest version of the pyext external. If you have any questions, don't ask me directly, ask on the pd-list or on the supercollider list. I'm very tired about replying the same questions over and over again. Thanks! Enjoy! Kjetil S. Matheussen k.s.matheussen(a)notam02.no

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2004