Pd-dev December 2003

pd-dev@lists.iem.at

21 participants
24 discussions

arrays used in dsp
by Thomas Grill 23 Dec '03

23 Dec '03

Hi all, i just realized that resizing one array (that is used somewhere in a patch) results in recompilation of the whole dsp chain - that is because there is only one flag (x_usedindsp) for an array. Would it be possible to maintain a list of array users that are then signalled when an array gets changed? Resetting the dsp state might not be necessary for the majority of array-based externals. best greetings, Thomas

1 0

some more SIMD
by Thomas Grill 23 Dec '03

23 Dec '03

Hi all, on the hunt for more CPU efficiency i changed the SIMD functionality of the devel_0_37 branch completely. Now there's a modular interface for SIMD implementations for different platforms... the main file is m_simd.h where the choice is made which implementation to choose. Currently there's only compile-time selection of platform and compiler, no actual detection of SIMD features like SSE or Altivec. For the different implementations the files m_simd_sse_vc.{h,c} for Intel/Visualc, m_simd_sse_gcc.{h,c} for Intel/gcc and m_simd_ve_gcc.{h,c} for Altivec/gcc have been added. Only the sse/vc implementation is almost complete (with the exception of [/~] ), the sse/gcc ports should be easy to add on that basis. Interestingly, when updating my cvs directories on linux and OSX the new files weren't added.... i had to do a checkout for that. I hope it works for you. The other thing is that i'm not sure if the prefix m_* for the new file is according to the pd file naming standard. Please correct it if not (or tell me). Furthermore there seems to be an inconsistency in the PD code for [/~]. For the slow (non perf8-) implementation there's no check for division by 0, whereas that is made for the unrolled version. It seems that such a check is very difficult for SIMD code, that why that function is still lacking. best greetings, Thomas

1 0

long lasting operations
by Thomas Grill 22 Dec '03

22 Dec '03

Hi all, the other day i had to compare Max and PD again, and it seems that one of PDs core weaknesses is the fact that all messaged operations are happening synchronously, that is, with no respect whether they'll fit into the real-time schedule. A good example is soundfiler, where reading and writing of large files is done in one piece which inevitable leads to audio cracks. In Max for these kind of operations there exists a low-priority message queue (using so-called qelems) which can be used to retrigger an operation that is executed in chunks. These qelems can also be dropped if they are occuring more than once in a queue, or postponed if audio timing needs it. This can't really be done equally in PD by using clock_delay as an alternative. Since PD has a global thread lock now, the other (probably more comfortable) way would be to use threading for longer-lasting operations, and i'd really like to adapt soundfiler and other objects accordingly. The problem with any asynchronous array operation is that there has to be a mechanism to avoid concurrent changing of table sizes by two separate objects (e.g. when one soundfiler is reading data into the array, another one must not resize the same array)... consequently there has to be some kind of "array lock" or even a queue of operations scheduled for execution, because i don't think that operations should just fail... or are there any other ideas how to do it? best greetings, Thomas

3 3

Pd 0.36 devel and IRIX
by Olaf Matthes 21 Dec '03

21 Dec '03

Hi there, attached are the files needed to compile the Pd 0.36 *developer* branch from CVS for SGI IRIX 6.5. I'm too lazy to learn how to check in my stuff (since I'm a "stupid windows user"*), so maybe someone could do me a favour and check these files in. Changes to the original version are: makefile.irix: - compiles on IRIX 6.5 using GCC (n32 or o32 binaries) t_main.c: - small change to remove 'unresolved external symbol' error sgi.c: - using new audio API (al* instead of AL*) - made -audiodev and -audioindev & -audiooutdev working, specifying no audio device (or -1) results in the default device selected in 'Audio Panel' being used - added support for multiple audio devices: use -audiodev 1,3 -channels 2,8 to open stereo AnalogIO and 8 channel ADAT-IO to get a total of 10 channels - made -r working, it now overwrites the sample rate setting in audio panel and defaults to 44100 Hz - made -realtime (-rt) work: pd runs with a priority of 192, pd-watchdog with 250 and the pd-gui with 20 to overcome audio drops - memory locking when in realtime mode - added -listdev printout Many thanks for checking it in! BTW, this is based on a checkout I did on Dec. 16th, just in case anything changed in t_main.c in the meantime. best, Olaf PS: n32 binaries of the above available from http://www.nullmedium.de/dev/irix/ * forgot who coined the term, sorry /* 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. */ /* changes added my Olaf Matthes <olaf.matthes(a)gmx.de> on 15th Oct. 2003: - added priority scheduling (-rt flag) - added memlocking (-rt flag) - changed to new audio API (al instead of AL) */ /* changes added my Olaf Matthes <olaf.matthes(a)gmx.de> on 16th Nov. 2003: - support for multiple devices: in the end nearly completely rewrote this file and removed a lot of Soerens changes from s_main.c */ #include "m_imp.h" #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <string.h> #ifdef HAVE_BSTRING_H #include <bstring.h> #endif #include <sys/types.h> #include <sys/time.h> #include <sys/mman.h> #include <sched.h> #include <dmedia/audio.h> #include <dmedia/midi.h> #include <sys/fpu.h> int mdInit(void); /* prototype was messed up in midi.h */ #define SGI_MAXCH 12 /* 2 x stereo plus 8 ADATA */ #define MAXAUDIODEV 3 /* applies for my Octane */ #define DEFAULTCHANS 2 /* stereo as our default */ #define DEFAULTINDEV -1 /* use defaults from audio panel */ #define DEFAULTOUTDEV -1 static ALport iport[MAXAUDIODEV]; static ALport oport[MAXAUDIODEV]; static ALconfig sgi_inconfig; static ALconfig sgi_outconfig; static int sys_inchannels, sys_outchannels; static int sys_nindevs, sys_noutdevs; static int sys_ninchans[MAXAUDIODEV], sys_noutchans[MAXAUDIODEV]; static int sys_audiobufsamps; int sys_schedadvance = 50000; /* scheduler advance in microseconds */ /* (this is set ridiculously high until we can get the real-time scheduling act together.) */ int sys_hipriority = 0; static int sgi_meters; /* true if we're metering */ static float sgi_inmax; /* max input amplitude */ static float sgi_outmax; /* max output amplitude */ /* set the special "flush zero" but (FS, bit 24) in the Control Status Register of the FPU of R4k and beyond so that the result of any underflowing operation will be clamped to zero, and no exception of any kind will be generated on the CPU. thanks to cpirazzi(a)cp.esd.sgi.com (Chris Pirazzi). */ static void sgi_flush_all_underflows_to_zero(void) { union fpc_csr f; f.fc_word = get_fpc_csr(); f.fc_struct.flush = 1; set_fpc_csr(f.fc_word); } /* convert the most common errors into readable strings */ static char *sgi_get_error_message(int err) { switch (err) { case AL_BAD_CONFIG: return "Invalid config"; case AL_BAD_DIRECTION: return "Invalid direction (neither \"r\" nor \"w\")"; case AL_BAD_OUT_OF_MEM: return "Not enough memory"; case AL_BAD_DEVICE_ACCESS: return "Audio hardware is not available or is improperly configured"; case AL_BAD_DEVICE: return "Invalid device"; case AL_BAD_NO_PORTS: return "No audio ports available"; case AL_BAD_QSIZE: return "Invalid fifo size"; case AL_BAD_SAMPFMT: return "Invalid sample format"; case AL_BAD_FLOATMAX: return "Invalid float maximum"; case AL_BAD_WIDTH: return "Invalid sample width"; default: return "Unknown error"; } } static void sgi_setsr(int sr) { sys_dacsr = sr; sys_audiobufsamps = (sys_schedadvance * sys_dacsr) / (1000000.); if (sys_audiobufsamps < 3 * DACBLKSIZE) sys_audiobufsamps = 3 * DACBLKSIZE; } static void sgi_setch(int inchans, int outchans) { int inbytes = inchans * (DACBLKSIZE*sizeof(float)); int outbytes = outchans * (DACBLKSIZE*sizeof(float)); sys_inchannels = inchans; sys_outchannels = outchans; if (sys_soundin) free(sys_soundin); sys_soundin = (t_float *)malloc(inbytes); memset(sys_soundin, 0, inbytes); if (sys_soundout) free(sys_soundout); sys_soundout = (t_float *)malloc(outbytes); memset(sys_soundout, 0, outbytes); if (sys_verbose) post("input channels = %d, output channels = %d", sys_inchannels, sys_outchannels); } static void sgi_open_audio(int nindev, int *indev, int nchin, int *chin, int noutdev, int *outdev, int nchout, int *chout, int rate) { ALpv pvbuf[2]; int num_devs = 0; int in_dev = 0; int out_dev = 0; int inchans = 0; int outchans = 0; int err, n; sgi_setsr(rate); for (n = 0; n < nindev; n++) { int gotchannels = 0; int thisdevice = indev[n]; int wantchannels = chin[n]; char *indevnames[4] = {"DefaultIn", "AnalogIn", "AESIn", "ADATIn"}; if(thisdevice > 0) /* open specified defice by name */ { if(sys_verbose)post("opening %s", indevnames[thisdevice]); in_dev = alGetResourceByName(AL_SYSTEM, indevnames[thisdevice], AL_DEVICE_TYPE); } else /* open default device */ { if(sys_verbose)post("opening %s", indevnames[0]); in_dev = AL_DEFAULT_INPUT; } if(!in_dev) { error("%s\n", sgi_get_error_message(in_dev)); continue; /* try next device, if any */ } sgi_inconfig = alNewConfig(); alSetSampFmt(sgi_inconfig, AL_SAMPFMT_FLOAT); alSetFloatMax(sgi_outconfig, 1.1f); alSetChannels(sgi_outconfig, chin[n]); alSetQueueSize(sgi_inconfig, sys_audiobufsamps * chin[n]); alSetDevice(sgi_inconfig, in_dev); iport[n] = alOpenPort("Pd input port", "r", sgi_inconfig); if (!iport[n]) fprintf(stderr,"Pd: failed to open audio read port\n"); /* now try to set sampl erate */ pvbuf[0].param = AL_RATE; pvbuf[0].value.ll = alDoubleToFixed(rate); if((err = alSetParams(in_dev, pvbuf, 1)) < 0) { post("could not set specified sample rate for input (%s)\n", sgi_get_error_message(err)); if(pvbuf[0].sizeOut < 0) post("rate was invalid\n"); } /* check how many channels we actually got */ pvbuf[0].param = AL_CHANNELS; if(alGetParams(in_dev, pvbuf, 1) < 0) { post("could not figure out how many input channels we got"); gotchannels = chin[n]; /* assume we got them all */ } else { gotchannels = pvbuf[0].value.i; } inchans += gotchannels; /* count total number of channels */ sys_ninchans[n] = gotchannels; /* remember channels for this device */ } for (n = 0; n < noutdev; n++) { int gotchannels; int thisdevice = outdev[n]; int wantchannels = chout[n]; char *outdevnames[4] = {"DefaultOut", "AnalogOut", "AESOut", "ADATOut"}; if(thisdevice > 0) /* open specified defice by name */ { if(sys_verbose)post("opening %s", outdevnames[thisdevice]); out_dev = alGetResourceByName(AL_SYSTEM, outdevnames[thisdevice], AL_DEVICE_TYPE); } else /* open default device */ { if(sys_verbose)post("opening %s", outdevnames[0]); out_dev = AL_DEFAULT_OUTPUT; } if(!out_dev) { error("%s\n", sgi_get_error_message(out_dev)); continue; /* try next device, if any */ } /* configure the port before opening it */ sgi_outconfig = alNewConfig(); alSetSampFmt(sgi_outconfig, AL_SAMPFMT_FLOAT); alSetFloatMax(sgi_outconfig, 1.1f); alSetChannels(sgi_outconfig, chout[n]); alSetQueueSize(sgi_outconfig, sys_audiobufsamps * chout[n]); alSetDevice(sgi_outconfig, out_dev); /* open the port */ oport[n] = alOpenPort("Pd ouput port", "w", sgi_outconfig); if (!oport[n]) fprintf(stderr,"Pd: failed to open audio write port\n"); /* now try to set sample rate */ pvbuf[0].param = AL_RATE; pvbuf[0].value.ll = alDoubleToFixed(rate); if((err = alSetParams(out_dev, pvbuf, 1)) < 0) { post("could not set specified sample rate for output (%s)\n", sgi_get_error_message(err)); if(pvbuf[0].sizeOut < 0) post("rate was invalid\n"); } /* check how many channels we actually got */ pvbuf[0].param = AL_CHANNELS; if(alGetParams(out_dev, pvbuf, 1) < 0) { post("could not figure out how many output channels we got"); gotchannels = chout[n]; } else { gotchannels = pvbuf[0].value.i; } outchans += gotchannels; sys_noutchans[n] = gotchannels; } sys_noutdevs = noutdev; sys_nindevs = nindev; /* allocate memory for the number of channels we got */ sgi_setch(inchans, outchans); } void sys_close_audio(void) { /* this never gets called anyway... ;-( */ #if 0 if (iport[n]) alClosePort(iport); if (oport[n]) alClosePort(oport); #endif } void sys_close_midi( void) { /* ??? */ } t_sample *sys_soundout; t_sample *sys_soundin; float sys_dacsr; int sys_send_dacs(void) { float buf[SGI_MAXCH * DACBLKSIZE], *fp1, *fp2, *fp3, *fp4; long outfill[MAXAUDIODEV], infill[MAXAUDIODEV]; long minoutfill = 100000000; int outchannels = sys_outchannels, inchannels = sys_inchannels; int outdevchannels, indevchannels; int i, n, nwait = 0, channel; int outblk = DACBLKSIZE; int inblk = DACBLKSIZE; /* take a lok how much audio data we have available */ for(n = 0; n < sys_noutdevs; n++) { outfill[n] = alGetFillable(oport[n]); if(minoutfill > outfill[n]) minoutfill = outfill[n]; } for(n = 0; n < sys_nindevs; n++) infill[n] = alGetFilled(iport[n]); /* calculate values for level meter */ if (sgi_meters) { float maxsamp; for (i = 0, n = sys_inchannels * DACBLKSIZE, maxsamp = sgi_inmax; i < n; i++) { float f = sys_soundin[i]; if (f > maxsamp) maxsamp = f; else if (-f > maxsamp) maxsamp = -f; } sgi_inmax = maxsamp; for (i = 0, n = sys_outchannels * DACBLKSIZE, maxsamp = sgi_outmax; i < n; i++) { float f = sys_soundout[i]; if (f > maxsamp) maxsamp = f; else if (-f > maxsamp) maxsamp = -f; } sgi_outmax = maxsamp; } if (!outchannels && !inchannels) return(1); /* no need to output data, check input */ if((minoutfill <= DACBLKSIZE) && sys_nindevs) { i = 0; for(n = 0; n < sys_nindevs; n++) { /* we jsut throw away the input in case it is getting too much by the time */ while((infill[n] = alGetFilled(iport[n])) > (4*DACBLKSIZE)) { alReadFrames(iport[n], buf, DACBLKSIZE); i = 1; /* indicate we really did it */ } } if(sys_verbose && i)post("drop ADC buf"); return (0); } /* output audio data, if we use audio out */ if(sys_noutdevs) { fp2 = sys_soundout; /* point to current output position in buffer */ for(n = 0; n < sys_noutdevs; n++) { outdevchannels = sys_noutchans[n]; /* channels supported by this device */ for (channel = 0, fp1 = buf; channel < outdevchannels; channel++, fp1++, fp2 += DACBLKSIZE) { for (i = 0, fp3 = fp1, fp4 = fp2; i < DACBLKSIZE; i++, fp3 += outdevchannels, fp4++) *fp3 = *fp4, *fp4 = 0; } alWriteFrames(oport[n], buf, DACBLKSIZE); } } /* get audio data from input, if we use audio in */ if(sys_nindevs) { fp2 = sys_soundin; /* point to current input position in buffer */ for(n = 0; n < sys_nindevs; n++) { indevchannels = sys_ninchans[n]; /* channels supported by this device */ if (alGetFilled(iport[n]) > DACBLKSIZE) { alReadFrames(iport[n], buf, DACBLKSIZE); } else /* have to read but nothing's there... */ { if (sys_verbose) post("extra ADC buf"); /* set buffer to silende */ memset(buf, 0, inblk*sizeof(float)); } for (channel = 0, fp1 = buf; channel < indevchannels; channel++, fp1++, fp2 += DACBLKSIZE) { for (i = 0, fp3 = fp1, fp4 = fp2; i < DACBLKSIZE; i++, fp3 += indevchannels, fp4++) *fp4 = *fp3; } } } return (1); } /* ------------------------- MIDI -------------------------- */ #define NPORT 2 static MDport sgi_inport[NPORT]; static MDport sgi_outport[NPORT]; void sgi_open_midi(int midiin, int midiout) { int i; int sgi_nports = mdInit(); if (sgi_nports < 0) sgi_nports = 0; else if (sgi_nports > NPORT) sgi_nports = NPORT; if (sys_verbose) { if (!sgi_nports) { post("no serial ports are configured for MIDI;"); post("if you want to use MIDI, try exiting Pd, typing"); post("'startmidi -d /dev/ttyd2' to a shell, and restarting Pd."); } else if (sgi_nports == 1) post("Found one MIDI port on %s", mdGetName(0)); else if (sgi_nports == 2) post("Found MIDI ports on %s and %s", mdGetName(0), mdGetName(1)); } if (midiin) { for (i = 0; i < sgi_nports; i++) { if (!(sgi_inport[i] = mdOpenInPort(mdGetName(i)))) error("MIDI input port %d: open failed", i+1);; } } if (midiout) { for (i = 0; i < sgi_nports; i++) { if (!(sgi_outport[i] = mdOpenOutPort(mdGetName(i)))) error("MIDI output port %d: open failed", i+1);; } } return; } void sys_putmidimess(int portno, int a, int b, int c) { MDevent mdv; if (portno >= NPORT || portno < 0 || !sgi_outport[portno]) return; mdv.msg[0] = a; mdv.msg[1] = b; mdv.msg[2] = c; mdv.msg[3] = 0; mdv.sysexmsg = 0; mdv.stamp = 0; mdv.msglen = 0; if (mdSend(sgi_outport[portno], &mdv, 1) < 0) error("MIDI output error\n"); post("msg out %d %d %d", a, b, c); } void sys_putmidibyte(int portno, int foo) { error("MIDI raw byte output not available on SGI"); } void inmidi_noteon(int portno, int channel, int pitch, int velo); void inmidi_controlchange(int portno, int channel, int ctlnumber, int value); void inmidi_programchange(int portno, int channel, int value); void inmidi_pitchbend(int portno, int channel, int value); void inmidi_aftertouch(int portno, int channel, int value); void inmidi_polyaftertouch(int portno, int channel, int pitch, int value); void sys_poll_midi(void) { int i; MDport *mp; for (i = 0, mp = sgi_inport; i < NPORT; i++, mp++) { int ret, nfds; MDevent mdv; fd_set inports; struct timeval timeout; timeout.tv_sec = 0; timeout.tv_usec = 0; if (!*mp) continue; FD_ZERO(&inports); FD_SET(mdGetFd(*mp), &inports); if (select(mdGetFd(*mp)+1 , &inports, 0, 0, &timeout) < 0) perror("midi select"); if (FD_ISSET(mdGetFd(*mp),&inports)) { if (mdReceive(*mp, &mdv, 1) < 0) error("failure receiving message\n"); else if (mdv.msg[0] == MD_SYSEX) mdFree(mdv.sysexmsg); else { int status = mdv.msg[0]; int channel = (status & 0xf) + 1; int b1 = mdv.msg[1]; int b2 = mdv.msg[2]; switch(status & 0xf0) { case MD_NOTEOFF: inmidi_noteon(i, channel, b1, 0); break; case MD_NOTEON: inmidi_noteon(i, channel, b1, b2); break; case MD_POLYKEYPRESSURE: inmidi_polyaftertouch(i, channel, b1, b2); break; case MD_CONTROLCHANGE: inmidi_controlchange(i, channel, b1, b2); break; case MD_PITCHBENDCHANGE: inmidi_pitchbend(i, channel, ((b2 << 7) + b1)); break; case MD_PROGRAMCHANGE: inmidi_programchange(i, channel, b1); break; case MD_CHANNELPRESSURE: inmidi_aftertouch(i, channel, b1); break; } } } } } /* ----------------------- public routines ----------------------- */ void sys_listdevs( void) { post("common devices on SGI machines:"); post("#-1 - Default In/Out selected in Audio Panel"); post("#1 - Analog In/Out"); post("#2 - AES In/Out"); post("#3 - ADAT I/O"); } void sys_open_audio(int naudioindev, int *audioindev, int nchindev, int *chindev, int naudiooutdev, int *audiooutdev, int nchoutdev, int *choutdev, int rate) /* IOhannes */ { int inchans=0; int outchans=0; int i; if(rate < 1) rate = 44100; if (naudioindev == -1) /* not set */ { if (nchindev==-1) { nchindev=1; chindev[0] = DEFAULTCHANS; naudioindev=1; audioindev[0] = DEFAULTINDEV; } else { for (i = 0; i < MAXAUDIODEV; i++) audioindev[i]=i+1; naudioindev = nchindev; } } else /* audioindev is specified */ { if (nchindev == -1) /* no channels specified */ { nchindev = naudioindev; for (i = 0; i < naudioindev; i++) chindev[i] = DEFAULTCHANS; } else if (nchindev > naudioindev) { for (i = naudioindev; i < nchindev; i++) { if (i == 0) audioindev[0] = DEFAULTINDEV; else audioindev[i] = audioindev[i-1] + 1; } naudioindev = nchindev; } else if (nchindev < naudioindev) { for (i = nchindev; i < naudioindev; i++) { if (i == 0) chindev[0] = DEFAULTCHANS; else chindev[i] = chindev[i-1]; } naudioindev = nchindev; } } if (naudiooutdev == -1) /* audiooutdev not set */ { if (nchoutdev==-1) { nchoutdev=1; choutdev[0] = DEFAULTCHANS; naudiooutdev = 1; audiooutdev[0] = DEFAULTOUTDEV; } else { for (i = 0; i < MAXAUDIODEV; i++) audiooutdev[i] = i+1; naudiooutdev = nchoutdev; } } else { if (nchoutdev == -1) { nchoutdev = naudiooutdev; for (i = 0; i < naudiooutdev; i++) choutdev[i] = DEFAULTCHANS; } else if (nchoutdev > naudiooutdev) { for (i = naudiooutdev; i < nchoutdev; i++) { if (i == 0) audiooutdev[0] = DEFAULTOUTDEV; else audiooutdev[i] = audiooutdev[i-1] + 1; } naudiooutdev = nchoutdev; } else if (nchoutdev < naudiooutdev) { for (i = nchoutdev; i < naudiooutdev; i++) { if (i == 0) choutdev[0] = DEFAULTCHANS; else choutdev[i] = choutdev[i-1]; } naudiooutdev = nchoutdev; } } sgi_flush_all_underflows_to_zero(); sgi_open_audio(naudioindev, audioindev, nchindev, chindev, naudiooutdev, audiooutdev, nchoutdev, choutdev, rate); } void sys_open_midi(int nmidiin, int *midiinvec, int nmidiout, int *midioutvec) { sgi_open_midi(nmidiin!=0, nmidiout!=0); } float sys_getsr(void) { return (sys_dacsr); } void sys_audiobuf(int n) { /* set the size, in milliseconds, of the audio FIFO */ if (n < 5) n = 5; else if (n > 5000) n = 5000; fprintf(stderr, "audio buffer set to %d milliseconds\n", n); sys_schedadvance = n * 1000; } void sys_getmeters(float *inmax, float *outmax) { if (inmax) { sgi_meters = 1; *inmax = sgi_inmax; *outmax = sgi_outmax; } else sgi_meters = 0; sgi_inmax = sgi_outmax = 0; } void sys_reportidle(void) { } int sys_get_inchannels(void) { return (sys_inchannels); } int sys_get_outchannels(void) { return (sys_outchannels); } void sys_set_priority(int foo) { /* hack by <olaf.matthes(a)gmx.de> at 2003/09/21 */ struct sched_param par; /* Bearing the table found in 'man realtime' in mind, I found it a */ /* good idea to use 192 as the priority setting for Pd. Any thoughts? */ if(foo) par.sched_priority = 250; /* priority for watchdog */ else par.sched_priority = 192; /* priority for pd (DSP) */ if (sched_setscheduler(0, SCHED_FIFO, &par) != -1) fprintf(stderr, "priority %d scheduling enabled.\n", par.sched_priority); #ifdef _POSIX_MEMLOCK if (mlockall(MCL_FUTURE) != -1) fprintf(stderr, "memory locking enabled.\n"); #endif /* end of hack */ } void sys_setblocksize(int n) { fprintf(stderr, "warning: blocksize not settable in IRIX\n"); } /* 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. */ /* This file should be compared with the corresponding thing in the TK * distribution whenever updating to newer versions of TCL/TK. */ /* * Copyright (c) 1993 The Regents of the University of California. * Copyright (c) 1994 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. */ #ifndef MACOSX /* linux and IRIX only; in MACOSX we don't link this in */ #include "tk.h" #include <stdlib.h> #ifndef IRIX /* added by olaf.matthes(a)gmx.de to compile on IRIX 6.5 */ /* * The following variable is a special hack that is needed in order for * Sun shared libraries to be used for Tcl. */ extern int matherr(void); int *tclDummyMathPtr = (int *) matherr; #endif /* *---------------------------------------------------------------------- * * main -- * * This is the main program for the application. * * Results: * None: Tk_Main never returns here, so this procedure never * returns either. * * Side effects: * Whatever the application does. * *---------------------------------------------------------------------- */ void pdgui_startup(Tcl_Interp *interp); void pdgui_setname(char *name); void pdgui_setsock(int port); void pdgui_sethost(char *name); int main(int argc, char **argv) { pdgui_setname(argv[0]); if (argc >= 2) { pdgui_setsock(atoi(argv[1])); argc--; argv++; argv[0] = "Pd"; } if (argc >= 2) { pdgui_sethost(argv[1]); argc--; argv++; argv[0] = "Pd"; } Tk_Main(argc, argv, Tcl_AppInit); return 0; /* Needed only to prevent compiler warning. */ } /* *---------------------------------------------------------------------- * * Tcl_AppInit -- * * This procedure performs application-specific initialization. * Most applications, especially those that incorporate additional * packages, will have their own version of this procedure. * * Results: * Returns a standard Tcl completion code, and leaves an error * message in interp->result if an error occurs. * * Side effects: * Depends on the startup script. * *---------------------------------------------------------------------- */ int Tcl_AppInit(interp) Tcl_Interp *interp; /* Interpreter for application. */ { Tk_Window mainwindow; if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } /* setup specific to pd-gui: */ pdgui_startup(interp); /* * Specify a user-specific startup file to invoke if the application * is run interactively. Typically the startup file is "~/.apprc" * where "app" is the name of the application. If this line is deleted * then no user-specific startup file will be run under any conditions. */ #if 0 tcl_RcFileName = "~/.pdrc"; #endif return TCL_OK; } #endif /* MACOSX */ #Makefile mods by Soeren Bovbjerg. #Adopted by Olaf Matthes for use with GCC 3.3 # #This makefile is made for r10000. You can change r10000 to your #processor type if you have problems. Just change and type #'make pd' # #You will need to change the tck/tk paths if you want to recompile #The GUI part. #compile with GCC as n32 binary EXECUTABLE=../bin/pd-n32 XF1=-mabi=n32 -DN32 -O3 -funroll-loops -fomit-frame-pointer XF2=-Wall -W -Wshadow -Wno-unused -Wno-parentheses -Wno-switch -mips4 #compile with GCC as o32 binary #EXECUTABLE=../bin/pd-o32 #XF1=-mcpu=r4000 -O3 -funroll-loops -fomit-frame-pointer #XF2=-Wall -W -Wshadow -Wno-unused -Wno-parentheses -Wno-switch -mips3 #EXECUTABLE=../bin/pd-n32 #XF1=-n32 -DN32 -woff 1080,1064,1185,1552,1174,1171 -Ofast=ip32 #XF2=-OPT:cray_ivdep=true -r10000 -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 #uncomment this to make o32 version and comment the 3 lines above #EXECUTABLE=../bin/pd-o32 #XF1=-o32 -fullwarn -O2 #XF2= all: $(EXECUTABLE) ../bin/pd-gui ../bin/pd.tk ../bin/pd-watchdog VPATH=../obj INCLUDE = -I. -I../tk/unix/include -I../tcl/unix/include GLIB = ../tk/unix/lib/libtk8.4.a ../tcl/unix/lib/libtcl8.4.a -lm -lX11 LIB = -laudio -lmd -lm -lpthread CFLAGS = -DUNIX -DIRIX -DPD -DDL_OPEN $(XF1) $(XF2) LDFLAGS = $(XF1) $(XF2) SYSSRC = s_sgi.c SRC = g_canvas.c g_graph.c g_text.c g_rtext.c g_array.c g_template.c g_io.c \ g_scalar.c g_traversal.c g_guiconnect.c g_readwrite.c g_editor.c \ g_all_guis.c g_bang.c g_hdial.c g_hslider.c g_mycanvas.c g_numbox.c \ g_toggle.c g_vdial.c g_vslider.c g_vumeter.c \ m_pd.c m_class.c m_obj.c m_atom.c m_memory.c m_binbuf.c \ m_conf.c m_glob.c m_sched.c \ s_main.c s_inter.c s_unix.c s_file.c s_print.c \ s_loader.c s_path.c s_entry.c \ d_ugen.c d_ctl.c d_arithmetic.c d_osc.c d_filter.c d_dac.c d_misc.c \ d_math.c d_fft.c d_mayer_fft.c d_fftroutine.c d_array.c d_global.c \ d_delay.c d_resample.c \ x_arithmetic.c x_connective.c x_interface.c x_midi.c x_misc.c \ x_time.c x_acoustics.c x_net.c x_qlist.c x_gui.c d_soundfile.c \ $(SYSSRC) OBJ = $(SRC:.c=.o) GSRC = t_main.c t_tkcmd.c GOBJ = $(GSRC:.c=.o) .PHONY: pd gui .c.o: gcc $(CFLAGS) $(INCLUDE) -c -o $(VPATH)/$*.o $*.c pd: $(EXECUTABLE) gui: ../bin/pd-gui $(EXECUTABLE): $(OBJ) cd ../obj; gcc $(LDFLAGS) -o $(EXECUTABLE) $(OBJ) \ $(LIB) ../bin/pd-gui: $(GOBJ) cd ../obj; gcc $(LDFLAGS) -o ../bin/pd-gui $(GOBJ) \ $(GLIB) -lm -lX11 -v ../bin/pd.tk: u_main.tk; cp u_main.tk ../bin/pd.tk pd-watchdog: ../bin/pd-watchdog ../bin/pd-watchdog: s_watchdog.c gcc $(LDFLAGS) -o ../bin/pd-watchdog s_watchdog.c tags: $(SRC) $(GSRC); ctags *.[ch] depend:; gcc -M $(CFLAGS) $(INCLUDE) $(SRC) > makefile.dependencies include makefile.dependencies

3 2

zexy external z_lp does not compile on PPC Linux
by lee＠fallingforward.net 07 Dec '03

07 Dec '03

bash-2.05b# uname -a Linux kitty 2.4.22-ben2 #1 Sun Nov 30 15:22:32 EST 2003 ppc 740/750 GNU/Linux z_lp.c:19:20: sys/io.h: No such file or directory z_lp.c: In function `lp_float': z_lp.c:41: warning: implicit declaration of function `outb' z_lp.c: In function `lp_new': z_lp.c:83: warning: implicit declaration of function `ioperm' z_lp.c:90: warning: implicit declaration of function `iopl' bash-2.05b# ls -l /usr/include/sys | grep io -rw-r--r-- 1 root root 1825 Nov 30 06:44 ioctl.h -rw-r--r-- 1 root root 11230 Nov 30 06:44 mtio.h -rw-r--r-- 1 root root 74 Nov 30 06:44 termios.h -rw-r--r-- 1 root root 1874 Nov 30 06:44 uio.h and on my AMD system I find a comment in /usr/include/sys/io.h that calls in this file are not supported on all arcitectures. I guess this would make sense because most Macs don't have parallel ports. In fact most Macs that are even worth running Linux on don't have serial ports either, only USB and Firewire. I don't know how to edit makefiles. Would it be possible to check for the existance of PPC Linux and not compile z_lp ? -lee

2 4

Gridflow/PD/OSX/X11
by Mathieu Bouchard 07 Dec '03

07 Dec '03

Hi, I would really like to know how to solve the big bug in GridFlow/OSX. When I do [@out x11] no window is created, and then if I try sending a picture to it anyway, then PD crashes. However if I redo all the same in jMax it works. Since in GridFlow the PD-specific parts and the jMax-specific parts are very small and don't contain any X11-related code, the problem looks all the more weird. May anyone shed some light on this... (checkout from CVS, as the latest release doesn't contain the OSX stuff) http://artengine.ca/jmax/gridflow/ ________________________________________________________________ Mathieu Bouchard http://artengine.ca/matju

1 0

PDP 0.12.2 linux -- broken objects
by lee＠fallingforward.net 05 Dec '03

05 Dec '03

After spending a day with the PD/PDP/GEM source code and Gentoo Linux on both an AMD Athlon and a G3 Powerbook, here's my results: Gentoo's 0.37 does not compile if jack is installed. MSP's 0.37-test1 compiles and runs very good. Haven't tried running with jack yet but alsa drivers give a test tone. PiDiP won't even unzip and unarchive. The downloaded file from: http://ydegoyon.free.fr/pidip-0.12.11.tar.gz is about 8K PDP 0.12.2 from http://zwizwa.fartit.com/pd/pdp/ compiles fine but... Most objects in the example patches break their connections and do not function. Here's the list I made: pdp_motion_phase pdp_gradient pdp_conv_sobel_edge pdp_blur pdp_cheby3o pdp_save_png_sequence pdp_diff pdp_agc pdp_contrast pdp_saturation pdp_motion_fade pdp_pps creating error messages similar to this: pdp_motion_fade 1 ... couldn't create pdp_contrast 0.16 ... couldn't create example15.pd 3 0 6 0 (pdp_v4l->text) connection failed example15.pd 6 0 7 0 (text->text) connection failed example15.pd 7 0 8 1 (text->pdp_mul) connection failed example15.pd 7 0 8 0 (text->pdp_mul) connection failed On the Powerbook, PD 0.37 without jack compiles fine from Gentoo's package. The only GEM source that would compile is from CVS but it did and it runs great. Well, great for an old ATI rage 128 card with 8MB on it :) And after all that. I'd like to introduce myself. I've been a Max/MSP user for about three years and developed patches with SoftVNS for video installations. When my Apple hardware started getting old even before the loan was paid off, I decided to try and move to Linux for multimedia. It's coming along slowly but surely. It's great to have these PD packages compile and run with only a day's work. I look forward to being a part of this great community. -lee

4 8

Really ugly Quattro hack (but works)
by Frank Barknecht 04 Dec '03

04 Dec '03

Hallo, I desperatly needed 4-channel audio out on my Quattro on Linux and I know, lots of others needed that, too. So I made an ugly hack without actually hoping it would work at all, but interestingly it did work. In CVS-Pd, tagged devel_0_37 edit s_audio_alsa.c and change this near line 111: /* device names are hw:0, plughw:0, hw:1, and so on. */ if (devno & 1) sprintf(devname, "plughw:%d", devno/2); else sprintf(devname, "hw:%d", devno/2); to be that: /* device names are hw:0, plughw:0, hw:1, and so on. */ /* if (devno & 1) sprintf(devname, "plughw:%d", devno/2); else sprintf(devname, "hw:%d", devno/2); */ /* HACK: hardcode quattro devices */ if (devno & 1) sprintf(devname, "q4"); /* Quattro plug */ else sprintf(devname, "q4b"); /* Quattro route */ while using the usual asoundrc, that defines q4 and q4b. Recompile. You will now only be able to use the Quattro devices with that Pd and you'll have to use this command line: $ pd -alsa -noadc -outchannels 4 because trying to use audio-in at the same time results in that error: opened 1 MIDI input device(s) and 0 MIDI output device(s). Sample width set to 2 bytes ALSA lib pcm.c:1148:(snd_pcm_link) SNDRV_PCM_IOCTL_LINK failed: Operation already in progress Now, the interesting part here, and the reason I post this to pd-dev, is, that Pd's ALSA subsystem in CVS obviously is practically ready to use freely named ALSA devices, that are not called plughw:X or hw:X. The only thing missing is a way, to specify other names for Pd to use either on the command line, or in a free form text field in the Media menu, and get rid of the hardcoded "hw" and "plughw" specifiers in the ALSA code. After that, Quattro users, abd maybe also the RME users, would be soo happy. (Oh, and there also is this SNDRV_PCM_IOCTL_LINK error, but this probably is another story.) ciao -- Frank Barknecht _ ______footils.org__

2 7

about pd chaos
by rama 03 Dec '03

03 Dec '03

hi, some things: a) making use of pdb: what about giving more life to pdb? as to have (or approach to) *all* of the objects that can be created inside pd, plus their description, parent librabry, + ... at least for stuff inside cvs by agreeing on a way for documenting each external lib, object or (however we do it)we could have a script parse and insert into a db all relevant data, and then use and improve the search engine, thus achieving solid keword (?) based relational records "connecting" abstractions to objects/externals/abstractions/patches/+ (?) i began something not so advanced but then thought it could be a waste of time if we can get back to pdb @ iem if u wanna check it is http://pd.xicnet.com just sucked the externals area from pdb at iem and built a php+mysql searchbase. if useful i can continue to work on it b) I have published some of my pd work at http://rama.xicnet.com It is an ongoing project and patches names, packaging and documentation is changing constantly. if anyone wants to try it I'm open to feedback through either list or direct emails c) list configuration: for any special reason this list is configured to reply to author instead of reply to list? some mails I supposed I've posted to the list, just got lost because of not realizing it was going to originator's mailbox. greetings r -- rama <medialist(a)xicnet.com>

3 2

presets, a proposal
by Krzysztof Czaja 03 Dec '03

03 Dec '03

hi all, hi Miller, how about adding to the core the following, minimal interface, and letting people define state-saving externals, like Guenter's state, cyclone's preset, or anything else: --- m_pd.h~ 2003-10-01 06:05:28.000000000 +0200 +++ m_pd.h 2003-12-02 09:42:37.000000000 +0100 @@ -428,4 +428,8 @@ EXTERN void class_setpropertiesfn(t_class *c, t_propertiesfn f); EXTERN t_propertiesfn class_getpropertiesfn(t_class *c); + /* prototype for functions to store Pd's state to a binbuf */ +typedef int (*t_statefn)(t_gobj *x, t_binbuf *b, int flags); +EXTERN void class_setstatefn(t_class *c, t_statefn f); +EXTERN t_statefn class_getstatefn(t_class *c); #ifndef PD_CLASS_DEF --- m_imp.h~ 2003-08-27 18:30:15.000000000 +0200 +++ m_imp.h 2003-12-02 09:33:23.000000000 +0100 @@ -47,4 +47,5 @@ t_savefn c_savefn; /* function to call when saving */ t_propertiesfn c_propertiesfn; /* function to start prop dialog */ + t_statefn c_statefn; /* function to store a state */ int c_floatsignalin; /* onset to float for signal input */ char c_gobj; /* true if is a gobj */ --- m_class.c~ 2003-09-16 06:39:26.000000000 +0200 +++ m_class.c 2003-12-02 09:36:59.000000000 +0100 @@ -209,4 +209,5 @@ c->c_externdir = class_extern_dir; c->c_savefn = (typeflag == CLASS_PATCHABLE ? text_save : class_nosavefn); + c->c_statefn = 0; #if 0 post("class: %s", c->c_name->s_name); @@ -446,4 +447,14 @@ } +void class_setstatefn(t_class *c, t_statefn f) +{ + c->c_statefn = f; +} + +t_statefn class_getstatefn(t_class *c) +{ + return (c->c_statefn); +} + That is all, really. Any class with a state, would then define something like the gatom below: --- g_text.c~ 2003-10-27 22:09:10.000000000 +0100 +++ g_text.c 2003-12-02 09:43:10.000000000 +0100 @@ -862,4 +862,14 @@ } +static int gatom_state(t_gobj *z, t_binbuf *bb, int flags) +{ + t_gatom *x = (t_gatom *)z; + t_atom at; + SETSYMBOL(&at, gensym("set")); + binbuf_add(bb, 1, &at); + binbuf_add(bb, 1, &x->a_atom); + binbuf_addsemi(bb); + return (0); +} /* -------------------- widget behavior for text objects ------------ */ @@ -1308,4 +1318,5 @@ class_setwidget(gatom_class, &gatom_widgetbehavior); class_setpropertiesfn(gatom_class, gatom_properties); + class_setstatefn(gatom_class, gatom_state); } Storing a glist's state into a preset/state/whatever requires only this: t_gobj *g; t_binbuf *bb = binbuf_new(); int id; for (g = x->x_glist->gl_list, id = 0; g; g = g->g_next, id++) { t_object *ob; t_statefn statefn; if ((ob = pd_checkobject((t_pd *)g)) && (statefn = class_getstatefn(*(t_pd *)g))) { binbuf_addv(bb, "isii", id, gensym(class_getname(*(t_pd *)g)), (int)ob->te_xpix, (int)ob->te_ypix); (*statefn)(g, bb, 0); } } /* do what you like with the binbuf here */ binbuf_free(bb); Validation could be based on checking an id against a class name, and, optionally, a position. Krzysztof

5 9

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

Pd-dev December 2003