Pd-cvs November 2005

pd-cvs@lists.iem.at

17 participants
497 discussions

abstractions/tabs README,NONE,1.1
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25100 Added Files: README Log Message: adding readme file --- NEW FILE: README --- ********************************************************************** a set of useful and useless abstractions and py/pyext scripts, that i'm using in my daily work some of them are cleanly written, some even have documentation they require a number of externals, but no exotic ones ... Copyright (C) 2005 Tim Blechmann, TimBlechmann(a)gmx.net ********************************************************************** 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. 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; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. **********************************************************************

1 0

abstractions/tabs _pan~math.pd, NONE, 1.1 panS~-help.pd, NONE, 1.1 panS~.pd, NONE, 1.1 pan~.pd, NONE, 1.1
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17810 Added Files: _pan~math.pd panS~-help.pd panS~.pd pan~.pd Log Message: adding pan~ abstractions --- NEW FILE: panS~-help.pd --- #N canvas 599 324 443 253 10; #X obj 35 176 dacer~; #X obj 54 16 osc~ 440; #X obj 69 35 osc~ 444; #X obj 53 90 panS~; #X obj 198 35 osc~ 440; #X obj 199 73 pan~; #X obj 179 177 dacer~; #X floatatom 83 63 5 0 0 0 - - -; #X floatatom 222 57 5 0 0 0 - - -; #X text 36 233 $Id: panS~-help.pd 188 2005-11-20 00:26:53Z tim $; #X connect 1 0 3 0; #X connect 2 0 3 1; #X connect 3 0 0 0; #X connect 3 1 0 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 7 0 3 2; #X connect 8 0 5 1; --- NEW FILE: _pan~math.pd --- #N canvas 356 113 633 535 10; #X obj 47 21 inlet; #X obj 47 72 clip -45 45; #X obj 47 93 deg2rad; #X obj 47 115 t b b f f; #X obj 105 136 sin; #X obj 105 157 v \$0-sin; #X obj 85 196 v \$0-cos; #X obj 85 176 cos; #X obj 66 215 t b b; #X obj 66 234 v \$0-cos; #X obj 66 270 +; #X obj 47 342 t b b; #X obj 47 361 v \$0-cos; #X obj 47 416 *; #X obj 301 55 expr sqrt(2) / 2; #X obj 271 14 loadbang; #X obj 66 289 *; #X obj 66 308 outlet; #X obj 47 435 outlet; #X text 43 465 as discribed in http://www.csounds.com/ezine/autumn1999/beginners/ ; #X obj 271 34 t b b; #X obj 96 253 v \$0-sin; #X obj 77 380 v \$0-sin; #X obj 47 397 -; #X text 43 503 $Id: _pan~math.pd 196 2005-11-20 01:40:43Z tim $; #X obj 271 55 \$1; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 11 0; #X connect 3 1 8 0; #X connect 3 2 7 0; #X connect 3 3 4 0; #X connect 4 0 5 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 8 1 21 0; #X connect 9 0 10 0; #X connect 10 0 16 0; #X connect 11 0 12 0; #X connect 11 1 22 0; #X connect 12 0 23 0; #X connect 13 0 18 0; #X connect 14 0 13 1; #X connect 14 0 16 1; #X connect 15 0 20 0; #X connect 16 0 17 0; #X connect 20 0 25 0; #X connect 20 1 14 0; #X connect 21 0 10 1; #X connect 22 0 23 1; #X connect 23 0 13 0; #X connect 25 0 1 0; --- NEW FILE: panS~.pd --- #N canvas 162 192 507 282 10; #X obj 35 13 inlet~; #X obj 132 14 inlet~; #X obj 196 15 inlet pan; #X obj 35 131 volctl~ 0 100; #X obj 132 131 volctl~ 0 100; #X obj 35 150 outlet~; #X obj 132 150 outlet~; #X text 365 190 \$1: pan; #X text 365 210 \$2: ramp; #X text 33 249 $Id: panS~.pd 196 2005-11-20 01:40:43Z tim $; #X obj 391 43 init \$2; #X obj 391 65 moses 0; #X obj 196 64 _pan~math \$1; #X connect 0 0 3 0; #X connect 1 0 4 0; #X connect 2 0 12 0; #X connect 3 0 5 0; #X connect 4 0 6 0; #X connect 10 0 11 0; #X connect 11 1 4 2; #X connect 11 1 3 2; #X connect 12 0 3 1; #X connect 12 1 4 1; --- NEW FILE: pan~.pd --- #N canvas 685 294 476 248 10; #X obj 35 23 inlet~; #X obj 131 23 inlet pan; #X obj 35 113 volctl~ 0 100; #X obj 146 113 volctl~ 0 100; #X obj 35 132 outlet~; #X obj 146 132 outlet~; #X text 40 182 $Id: pan~.pd 196 2005-11-20 01:40:43Z tim $; #X obj 315 33 init \$2; #X obj 315 55 moses 0; #X text 311 126 \$1: pan; #X text 311 146 \$2: ramp; #X obj 131 80 _pan~math \$1; #X connect 0 0 2 0; #X connect 0 0 3 0; #X connect 1 0 11 0; #X connect 2 0 4 0; #X connect 3 0 5 0; #X connect 7 0 8 0; #X connect 8 1 3 2; #X connect 11 0 2 1; #X connect 11 1 3 1;

1 0

abstractions/tabs bpe.py, NONE, 1.1 dacer~.pd, NONE, 1.1 le3dp.pd, NONE, 1.1 sigmoid_booster~.pd, NONE, 1.1 tbEnvify~-help.pd, NONE, 1.1 tbEnvify~.pd, NONE, 1.1
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16005 Added Files: bpe.py dacer~.pd le3dp.pd sigmoid_booster~.pd tbEnvify~-help.pd tbEnvify~.pd Log Message: checking in some more abstractions --- NEW FILE: tbEnvify~-help.pd --- #N canvas 394 35 818 634 10; #X obj 21 324 tbEnvify~; #X obj 291 185 Scope~ 456 390 256 3 128 -1 1 0 0 0 0 102 255 51 135 135 135 0; #X obj 21 366 dacer~; #X msg 173 40 1000 sine 1 0.1; #X msg 151 9 1000 triangle 1 0.1; #X msg 183 64 1000 hanning 1 0.1; #X msg 193 85 1000 bpe 0 0 1 1 0.2 1 0 1; #X obj 20 272 osc~ 440; #X msg 204 109 1000 bpe-smooth 0 0 1 1 0.2 1 0 1 2000 8000; #X msg 214 133 1000 bpe-slide 0 0 1 1 0.2 1 0 1 4000 8000; #X text 344 36 $Id$; #X text 344 17 a simple envelope generator; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 0 0 2 1; #X connect 3 0 0 1; #X connect 4 0 0 1; #X connect 5 0 0 1; #X connect 6 0 0 1; #X connect 7 0 0 0; #X connect 8 0 0 1; #X connect 9 0 0 1; --- NEW FILE: sigmoid_booster~.pd --- #N canvas 488 227 567 322 10; #X obj 69 40 dbtorms; #X obj 69 21 inlet pregain; #X obj 26 1 inlet~; #X obj 26 78 *~ -5; #X obj 26 135 pow~; #X obj 26 154 +~ 1; #X obj 26 222 -~ 1; #X obj 123 216 dbtorms; #X obj 123 197 inlet postgain; #X obj 26 262 outlet~; #X obj 26 59 volctl~ \$1 10; #X obj 26 241 volctl~ \$2 10; #X obj 49 97 init 1; #X obj 49 116 exp; #X text 203 21 direct port of TAP Sigmoid Booster by Tom Szilagyi \, except that it's using pd's db scaling instead of tap's; #X obj 26 181 sig~ 2; #X obj 26 203 /~; #X text 28 287 $Id: sigmoid_booster~.pd 194 2005-11-20 01:17:05Z tim $; #X connect 0 0 10 1; #X connect 1 0 0 0; #X connect 2 0 10 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 16 1; #X connect 6 0 11 0; #X connect 7 0 11 1; #X connect 8 0 7 0; #X connect 10 0 3 0; #X connect 11 0 9 0; #X connect 12 0 13 0; #X connect 13 0 4 1; #X connect 15 0 16 0; #X connect 16 0 6 0; --- NEW FILE: le3dp.pd --- #N canvas 163 335 546 315 10; #X obj 8 10 init 1; #N canvas 95 25 450 300 axis 0; #X obj -80 4 inlet; #X obj 117 121 zmap_lin 255 0 0 1; #X obj 117 187 s le3dp-throttle; #X obj -80 41 route abs_x abs_y abs_rz abs_throttle abs_hat0x abs_hat0y ; #X obj 182 61 s le3dp-hatx; #X obj 248 81 s le3dp-haty; #X obj 314 61 assert; #N canvas 498 328 450 300 z 0; #X obj 24 15 inlet; #X obj 24 164 s le3dp-z; #X obj 24 45 moses 128; #X obj 82 65 moses 144; #X obj 82 85 b; #X obj 82 104 0; #X obj 24 141 zmap_lin 0 128 -1 0; #X obj 140 85 zmap_lin 144 255 0 1; #X connect 0 0 2 0; #X connect 2 0 6 0; #X connect 2 1 3 0; #X connect 3 0 4 0; #X connect 3 1 7 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 1 0; #X connect 7 0 1 0; #X restore 51 109 pd z; #N canvas 496 358 450 300 x 0; #X obj -70 11 inlet; #X obj -70 145 s le3dp-x; #X obj -70 31 moses 508; #X obj -12 50 moses 520; #X obj -12 69 b; #X obj -12 88 0; #X obj -70 126 zmap_lin 0 508 -1 0; #X obj 46 69 zmap_lin 520 1023 0 1; #X connect 0 0 2 0; #X connect 2 0 6 0; #X connect 2 1 3 0; #X connect 3 0 4 0; #X connect 3 1 7 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X connect 6 0 1 0; #X connect 7 0 1 0; #X restore -80 80 pd x; #N canvas 496 358 450 300 y 0; #X obj -70 11 inlet; #X obj -12 69 b; #X obj -12 88 0; #X obj -70 145 s le3dp-y; #X obj -70 31 moses 486; #X obj -12 50 moses 512; #X obj -70 126 zmap_lin 0 486 -1 0; #X obj 46 69 zmap_lin 512 1023 0 1; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 4 0 6 0; #X connect 4 1 5 0; #X connect 5 0 1 0; #X connect 5 1 7 0; #X connect 6 0 3 0; #X connect 7 0 3 0; #X restore -15 82 pd y; #X connect 0 0 3 0; #X connect 1 0 2 0; #X connect 3 0 8 0; #X connect 3 1 9 0; #X connect 3 2 7 0; #X connect 3 3 1 0; #X connect 3 4 4 0; #X connect 3 5 5 0; #X connect 3 6 6 0; #X restore 8 245 pd axis; #X obj 8 221 route abs key; #N canvas 0 0 450 300 buttons 0; #X obj 12 10 inlet; #X obj 12 32 route btn_0 btn_1 btn_2 btn_3 btn_4 btn_5 btn_6 btn_7 btn_8 btn_9 btn_10 btn_11; #X obj 12 68 s le3dp-b1; #X obj 386 186 s le3dp-b12; #X obj 352 166 s le3dp-b11; #X obj 318 146 s le3dp-b10; #X obj 284 126 s le3dp-b9; #X obj 250 106 s le3dp-b8; #X obj 216 86 s le3dp-b7; #X obj 182 190 s le3dp-b6; #X obj 148 165 s le3dp-b5; #X obj 114 138 s le3dp-b4; #X obj 80 116 s le3dp-b3; #X obj 46 92 s le3dp-b2; #X obj 420 70 assert; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 13 0; #X connect 1 2 12 0; #X connect 1 3 11 0; #X connect 1 4 10 0; #X connect 1 5 9 0; #X connect 1 6 8 0; #X connect 1 7 7 0; #X connect 1 8 6 0; #X connect 1 9 5 0; #X connect 1 10 4 0; #X connect 1 11 3 0; #X connect 1 12 14 0; #X restore 51 266 pd buttons; #X msg 38 60 find Logitech Extreme 3D; #X obj 38 172 prepend open; #X obj 38 84 py find_hid; #X obj 8 39 t f b; #X obj 8 199 hid; #X obj 38 106 route -1; #X obj 38 126 0; #X obj 8 148 spigot 1; #X text 12 294 $Id: le3dp.pd 194 2005-11-20 01:17:05Z tim $; #X text 116 220 abstraction to use a Logitech Extreme 3D Joystick with hid under linux; #X connect 0 0 7 0; #X connect 2 0 1 0; #X connect 2 1 3 0; #X connect 4 0 6 1; #X connect 5 0 8 0; #X connect 6 0 9 0; #X connect 7 0 11 0; #X connect 7 1 4 0; #X connect 8 0 2 0; #X connect 9 0 10 0; #X connect 9 1 5 0; #X connect 10 0 11 1; #X connect 11 0 8 0; --- NEW FILE: dacer~.pd --- #N canvas 222 205 333 242 10; #X obj 4 91 inlet~; #X obj 109 91 inlet~; #X obj 4 129 volctl~ 0 100; #X obj 109 129 volctl~ 0 100; #X obj 34 180 dac~; #X floatatom 17 20 5 0 0 0 - - -; #X obj 4 110 hip~ 5; #X obj 109 110 hip~ 5; #X obj 47 67 dbtorms; #X text 11 217 $Id: dacer~.pd 194 2005-11-20 01:17:05Z tim $; #X connect 0 0 6 0; #X connect 1 0 7 0; #X connect 2 0 4 0; #X connect 3 0 4 1; #X connect 5 0 8 0; #X connect 6 0 2 0; #X connect 7 0 3 0; #X connect 8 0 2 1; #X connect 8 0 3 1; #X coords 0 0 1 1 60 40 1 0 0; --- NEW FILE: bpe.py --- # $Id: bpe.py,v 1.1 2005/11/20 00:31:44 timblech Exp $ # # Copyright (C) 2005 Tim Blechmann # # 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. # # 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; see the file COPYING. If not, write to # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. import pyext def parse_arguments(*args): duration = args[0] if duration == 0: return args[1:] length = len(args) durations = [] breakpoints = [] for i in range(1,length): if i % 2 == 0: durations.append(args[i]) else: breakpoints.append(args[i]) duration_factor = duration / reduce(lambda x,y: x + y, durations) durations = map(lambda x: x*duration_factor, durations) ret = [] for i in range(len(durations)): ret.append(breakpoints[i]) ret.append(durations[i]) ret[-2] = ret[0] return ret class Bpe(pyext._class): _inlets = 1 _outlets = 1 def list_1(self, *args): if args[0] != 0: self._outlet(1,parse_arguments(*args)) class VolBpe(pyext._class): _inlets = 3 _outlets = 1 def __init__(self, dollar1): try: self.duration = 1000 / dollar1 except: self.duration = 1000 self._detach = 1 self._priority(-20) self.bpe = [] self.running = False def list_1(self, *args): arglist = list(args) arguments = [self.duration] + arglist self.bpe = arglist self._outlet(1,parse_arguments(*arguments)) if not self.running: self._outlet(1, None) self.running = True def float_2(self, freq): self.duration = 1000 / freq; arguments = self.duration + self.bpe self._outlet(1,parse_arguments(*arguments)) def float_3(self, switch): if switch == 0: self._outlet(1, self.bpe[0], 0, self.bpe[0], self.duration) else: self._outlet(1, self.bpe) --- NEW FILE: tbEnvify~.pd --- #N canvas 599 226 536 134 10; #X obj 28 19 inlet~; #X obj 28 81 outlet~; #N canvas 171 233 452 345 controls 0; #X obj 54 13 inlet; #X obj 54 255 s \$0-triangle; #X text 96 13 duration type (arguments); #X text 105 217 type duration (arguments); #X obj 54 139 zl slice 2; #X obj 54 194 zl join; #X obj 54 165 zl rev; #X obj 84 57 zl len; #X obj 54 36 t a a; #X obj 84 79 <= 2; #X obj 54 104 demux; #X obj 147 166 zl rev; #X obj 107 274 s \$0-sine; #X obj 160 293 s \$0-hanning; #X obj 213 313 s \$0-bpe; #X obj 285 264 s \$0-bpe_rampsmooth; #X obj 54 236 route triangle sine hanning bpe bpe-smooth bpe-slide ; #X obj 302 313 s \$0-bpe_slide; #X connect 0 0 8 0; #X connect 4 0 6 0; #X connect 4 1 5 1; #X connect 5 0 16 0; #X connect 6 0 5 0; #X connect 7 0 9 0; #X connect 8 0 10 0; #X connect 8 1 7 0; #X connect 9 0 10 1; #X connect 10 0 4 0; #X connect 10 1 11 0; #X connect 11 0 16 0; #X connect 16 0 1 0; #X connect 16 1 12 0; #X connect 16 2 13 0; #X connect 16 3 14 0; #X connect 16 4 15 0; #X connect 16 5 17 0; #X restore 142 41 pd controls; #N canvas 515 174 450 300 envelopes 1; #X obj 170 8 r \$0-triangle; #X obj 14 27 ./tbEnvify~/triangle \$0; #X obj 142 50 r \$0-sine; #X obj 14 69 ./tbEnvify~/sine \$0; #X obj 163 90 r \$0-hanning; #X obj 14 109 ./tbEnvify~/hanning \$0; #X obj 14 7 inlet~; #X obj 14 266 outlet~; #X text 223 42 ugly but fast and no latency; #X obj 135 133 r \$0-bpe; #X obj 212 173 r \$0-bpe_rampsmooth; #X obj 179 213 r \$0-bpe_slide; #X obj 14 159 ./tbEnvify~/bpe \$0; #X obj 14 193 ./tbEnvify~/bpe_rampsmooth \$0; #X obj 14 233 ./tbEnvify~/bpe_slide \$0; #X connect 0 0 1 1; #X connect 1 0 7 0; #X connect 2 0 3 1; #X connect 3 0 7 0; #X connect 4 0 5 1; #X connect 5 0 7 0; #X connect 6 0 1 0; #X connect 6 0 3 0; #X connect 6 0 5 0; #X connect 6 0 12 0; #X connect 6 0 13 0; #X connect 6 0 14 0; #X connect 9 0 12 1; #X connect 10 0 13 1; #X connect 11 0 14 1; #X connect 12 0 7 0; #X connect 13 0 7 0; #X connect 14 0 7 0; #X restore 28 45 pd envelopes; #X obj 142 17 inlet duration_type_volume_(arguments); #X text 31 105 $Id$; #X connect 0 0 3 0; #X connect 3 0 1 0; #X connect 4 0 2 0;

1 0

abstractions/tabs/tbEnvify~ _bpe_stuff.pd, NONE, 1.1 _env_lookup~.pd, NONE, 1.1 bpe.pd, NONE, 1.1 bpe_rampsmooth.pd, NONE, 1.1 bpe_slide.pd, NONE, 1.1 hanning.pd, NONE, 1.1 sine.pd, NONE, 1.1 triangle.pd, NONE, 1.1
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs/tbEnvify~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16005/tbEnvify~ Added Files: _bpe_stuff.pd _env_lookup~.pd bpe.pd bpe_rampsmooth.pd bpe_slide.pd hanning.pd sine.pd triangle.pd Log Message: checking in some more abstractions --- NEW FILE: bpe.pd --- #N canvas 365 133 527 148 10; #X obj 19 59 volctl~ 0 0; #X obj 204 15 inlet control; #X obj 269 70 switch~; #X obj 19 11 inlet~; #X obj 19 80 outlet~; #X text 304 14 duration [bp time] * n; #X obj 204 42 _bpe_stuff; #X text 21 119 $Id: bpe.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 4 0; #X connect 1 0 6 0; #X connect 3 0 0 0; #X connect 6 0 0 1; #X connect 6 1 0 2; #X connect 6 2 2 0; --- NEW FILE: _bpe_stuff.pd --- #N canvas 0 0 631 540 10; #X obj 204 21 inlet control; #X obj 455 328 1; #X obj 413 286 delay; #X obj 413 307 0; #X obj 455 198 t b b; #X obj 485 219 zl reg stop; #X obj 413 350 pre_switch 10; #X obj 55 131 t b a; #X obj 55 250 bpe ---; #X obj 413 267 10; #X obj 204 42 t a b; #X obj 413 399 outlet switch~; #X obj 55 286 outlet factor; #X obj 77 309 outlet time; #X obj 55 80 py bpe parse_arguments @detach 0; #X text 47 460 $Id: _bpe_stuff.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 10 0; #X connect 1 0 6 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 4 0 1 0; #X connect 4 1 5 0; #X connect 5 0 2 0; #X connect 6 0 11 0; #X connect 7 0 8 0; #X connect 7 1 8 0; #X connect 8 0 12 0; #X connect 8 1 13 0; #X connect 8 2 9 0; #X connect 9 0 2 0; #X connect 10 0 14 1; #X connect 10 1 4 0; #X connect 14 0 7 0; --- NEW FILE: triangle.pd --- #N canvas 569 176 587 435 10; #X obj 19 292 volctl~ 0 0; #X obj 177 15 inlet control; #X obj 413 339 switch~; #X obj 177 40 t a b; #X obj 455 268 1; #X obj 413 226 delay; #X obj 413 247 0; #X obj 177 120 *; #X obj 55 156 t b f; #X obj 199 168 delay; #X obj 177 139 t f f f; #X obj 221 189 !-; #X obj 177 92 t f f f; #X obj 199 212 t b b; #X obj 229 238 f; #X obj 199 238 0; #X text 277 14 duration peak peak_time; #X obj 177 65 unpack f f f; #X obj 55 176 f; #X obj 413 204 + 10; #X obj 455 138 t b b; #X obj 485 159 zl reg stop; #X obj 413 290 pre_switch 10; #X obj 19 11 inlet~; #X obj 19 313 outlet~; #X text 23 391 $Id: triangle.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 24 0; #X connect 1 0 3 0; #X connect 3 0 17 0; #X connect 3 1 20 0; #X connect 4 0 22 0; #X connect 5 0 6 0; #X connect 6 0 22 0; #X connect 7 0 10 0; #X connect 8 0 18 0; #X connect 8 1 0 2; #X connect 9 0 13 0; #X connect 10 0 8 0; #X connect 10 1 9 0; #X connect 10 2 11 0; #X connect 11 0 14 1; #X connect 12 0 7 0; #X connect 12 1 11 1; #X connect 12 2 19 0; #X connect 13 0 15 0; #X connect 13 1 14 0; #X connect 14 0 0 2; #X connect 15 0 0 1; #X connect 17 0 12 0; #X connect 17 1 18 1; #X connect 17 2 7 1; #X connect 18 0 0 1; #X connect 19 0 5 0; #X connect 20 0 4 0; #X connect 20 1 21 0; #X connect 21 0 5 0; #X connect 22 0 2 0; #X connect 23 0 0 0; --- NEW FILE: _env_lookup~.pd --- #N canvas 518 105 575 385 10; #X obj 45 31 inlet duration; #X obj 148 31 inlet peak_time; #X obj 45 98 *; #X obj 45 61 t f f; #X obj 45 215 t b f; #X obj 67 148 delay; #X obj 45 119 t f f f; #X obj 89 169 !-; #X obj 67 193 pack 0 f; #X obj 45 276 line~; #X text 339 80 \$1 max_scaling; #X obj 45 246 pack \$1 f; #X obj 45 299 outlet~; #X text 101 300 outlet function; #X text 47 329 $Id: _env_lookup~.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 3 0; #X connect 1 0 2 1; #X connect 2 0 6 0; #X connect 3 0 2 0; #X connect 3 1 7 1; #X connect 4 0 11 0; #X connect 4 1 11 1; #X connect 5 0 8 0; #X connect 6 0 4 0; #X connect 6 1 5 0; #X connect 6 2 7 0; #X connect 7 0 8 1; #X connect 8 0 9 0; #X connect 9 0 12 0; #X connect 11 0 9 0; --- NEW FILE: hanning.pd --- #N canvas 121 117 559 504 10; #X obj 177 15 inlet control; #X obj 177 40 t a b; #X text 277 14 duration peak peak_time; #X obj 177 65 unpack f f f; #X obj 19 378 *~ 0; #X obj 20 359 *~; #X obj 323 339 switch~; #X obj 365 268 1; #X obj 323 226 delay; #X obj 323 247 0; #X obj 323 204 + 10; #X obj 365 138 t b b; #X obj 395 159 zl reg stop; #X obj 323 290 pre_switch 10; #X obj 56 335 +~ 1; #X obj 216 361 * 0.5; #X obj 177 92 t f f; #X obj 55 288 cos~; #X obj 56 312 *~ -1; #X obj 19 11 inlet~; #X obj 19 399 outlet~; #X obj 55 268 _env_lookup~ 0.5; #X text 21 425 $Id: hanning.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 11 0; #X connect 3 0 16 0; #X connect 3 1 15 0; #X connect 3 2 21 1; #X connect 4 0 20 0; #X connect 5 0 4 0; #X connect 7 0 13 0; #X connect 8 0 9 0; #X connect 9 0 13 0; #X connect 10 0 8 0; #X connect 11 0 7 0; #X connect 11 1 12 0; #X connect 12 0 8 0; #X connect 13 0 6 0; #X connect 14 0 5 1; #X connect 15 0 4 1; #X connect 16 0 21 0; #X connect 16 1 10 0; #X connect 17 0 18 0; #X connect 18 0 14 0; #X connect 19 0 5 0; #X connect 21 0 17 0; --- NEW FILE: bpe_rampsmooth.pd --- #N canvas 20 105 625 441 10; #X obj 204 15 inlet control; #X obj 269 332 switch~; #X obj 19 11 inlet~; #X obj 19 379 outlet~; #X text 304 14 duration [bp time] * n; #X obj 204 92 _bpe_stuff; #X obj 204 47 zl ecils 2; #X obj 19 360 *~; #X obj 36 164 pack f f; #X obj 36 188 line~; #X obj 36 231 rampsmooth~; #X obj 162 131 unpack f f; #X obj 162 193 prepend rampup; #X obj 227 214 prepend rampdown; #X obj 269 259 sel 1; #X obj 269 281 1; #X obj 72 262 edge~; #X obj 102 282 0; #X text 21 407 $Id: bpe_rampsmooth.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 6 0; #X connect 2 0 7 0; #X connect 5 0 8 0; #X connect 5 1 8 1; #X connect 5 2 14 0; #X connect 6 0 5 0; #X connect 6 1 11 0; #X connect 7 0 3 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 7 1; #X connect 10 0 16 0; #X connect 11 0 12 0; #X connect 11 1 13 0; #X connect 12 0 10 0; #X connect 13 0 10 0; #X connect 14 0 15 0; #X connect 15 0 1 0; #X connect 16 1 17 0; #X connect 17 0 1 0; --- NEW FILE: sine.pd --- #N canvas 0 0 555 438 10; #X obj 177 15 inlet control; #X obj 177 40 t a b; #X text 277 14 duration peak peak_time; #X obj 177 65 unpack f f f; #X obj 55 288 sinx~; #X obj 19 338 *~ 0; #X obj 20 315 *~; #X obj 323 339 switch~; #X obj 365 268 1; #X obj 323 226 delay; #X obj 323 247 0; #X obj 323 204 + 10; #X obj 365 138 t b b; #X obj 395 159 zl reg stop; #X obj 323 290 pre_switch 10; #X obj 55 268 _env_lookup~ 1.5708; #X obj 177 92 t f f; #X obj 19 11 inlet~; #X obj 19 359 outlet~; #X text 19 385 $Id: sine.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 1 1 12 0; #X connect 3 0 16 0; #X connect 3 1 5 1; #X connect 3 2 15 1; #X connect 4 0 6 1; #X connect 5 0 18 0; #X connect 6 0 5 0; #X connect 8 0 14 0; #X connect 9 0 10 0; #X connect 10 0 14 0; #X connect 11 0 9 0; #X connect 12 0 8 0; #X connect 12 1 13 0; #X connect 13 0 9 0; #X connect 14 0 7 0; #X connect 15 0 4 0; #X connect 16 0 15 0; #X connect 16 1 11 0; #X connect 17 0 6 0; --- NEW FILE: bpe_slide.pd --- #N canvas 84 183 625 441 10; #X obj 204 15 inlet control; #X obj 269 332 switch~; #X obj 19 11 inlet~; #X obj 19 379 outlet~; #X text 304 14 duration [bp time] * n; #X obj 204 92 _bpe_stuff; #X obj 204 47 zl ecils 2; #X obj 19 360 *~; #X obj 36 164 pack f f; #X obj 36 188 line~; #X obj 162 124 unpack f f; #X obj 162 152 t f f; #X obj 227 152 t f f; #X obj 269 252 sel 1; #X obj 269 273 1; #X obj 121 271 edge~; #X obj 37 231 slide~; #X obj 151 291 0; #X text 21 401 $Id: bpe_slide.pd 195 2005-11-20 01:25:43Z tim $; #X connect 0 0 6 0; #X connect 2 0 7 0; #X connect 5 0 8 0; #X connect 5 1 8 1; #X connect 5 2 13 0; #X connect 6 0 5 0; #X connect 6 1 10 0; #X connect 7 0 3 0; #X connect 8 0 9 0; #X connect 9 0 16 0; #X connect 10 0 11 0; #X connect 10 1 12 0; #X connect 11 0 16 1; #X connect 12 0 16 2; #X connect 13 0 14 0; #X connect 14 0 1 0; #X connect 15 1 17 0; #X connect 16 0 7 1; #X connect 16 0 15 0; #X connect 17 0 1 0;

1 0

pd SConstruct,1.1.4.7,1.1.4.8
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15887 Modified Files: Tag: devel_0_39 SConstruct Log Message: improved install Index: SConstruct =================================================================== RCS file: /cvsroot/pure-data/pd/Attic/SConstruct,v retrieving revision 1.1.4.7 retrieving revision 1.1.4.8 diff -C2 -d -r1.1.4.7 -r1.1.4.8 *** SConstruct 4 Aug 2005 11:00:01 -0000 1.1.4.7 --- SConstruct 20 Nov 2005 00:30:37 -0000 1.1.4.8 *************** *** 17,25 **** opt.Save('options.cache',env) ! if env.Dictionary().has_key('icc') and env['icc']: ! env['CC'] = '/opt/intel/cc/9.0/bin/icc' ! env['CXX'] = '/opt/intel/cc/9.0/bin/icc' ! env.Append(CCFLAGS=' -ip -ipo -axB') ! env.Append(LINKFLAGS='-i-static -ip -ipo -axB') print "Using intel c compiler" --- 17,32 ---- opt.Save('options.cache',env) ! if env['icc']: ! env.Replace(CC="icc", ! SHCC="icc", ! CXX="icc", ! LINK="icc", ! SHCXX="icc", ! SHLINK="icc", ! ) ! env.Append(LINKFLAGS="-static-libcxa") ! ! env.Append(CCFLAGS=' -ip') ! env.Append(LINKFLAGS='-ip') print "Using intel c compiler" *************** *** 38,58 **** prefix = env['prefix'] ! env.Install(prefix+'/bin', pdsend) ! env.Install(prefix+'/bin', pdreceive) ! env.Install(prefix+'/bin', pd) ! env.Install(prefix+'/lib/pd/bin', pdgui) if env['PLATFORM']=='posix': ! env.Install(prefix+'/lib/pd/bin', pdwatchdog) ! env.InstallAs(prefix + '/lib/pd/bin/pd.tk','src/u_main.tk') for extra in extras: ! env.Install(prefix+'/lib/extra/', extra) try: ! env.Install(prefix+'/lib', pdlib) except: pass for header in Split("m_pd.h m_imp.h g_canvas.h"): ! env.Install(prefix+'/include', 'src/'+header) ! env.Alias('install', prefix) --- 45,68 ---- prefix = env['prefix'] ! installs = [] ! ! installs.append(env.Install(prefix+'/bin', pdsend)) ! installs.append(env.Install(prefix+'/bin', pdreceive)) ! installs.append(env.Install(prefix+'/bin', pd)) ! installs.append(env.Install(prefix+'/lib/pd/bin', pdgui)) if env['PLATFORM']=='posix': ! installs.append(env.Install(prefix+'/lib/pd/bin', pdwatchdog)) ! ! installs.append(env.InstallAs(prefix + '/lib/pd/bin/pd.tk','src/u_main.tk')) for extra in extras: ! installs.append(env.Install(prefix+'/lib/extra/', extra)) try: ! installs.append(env.Install(prefix+'/lib', pdlib)) except: pass for header in Split("m_pd.h m_imp.h g_canvas.h"): ! installs.append(env.Install(prefix+'/include', 'src/'+header)) ! env.Alias('install', installs)

1 0

abstractions/tabs/tbEnvify~ - New directory
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs/tbEnvify~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15265/tbEnvify~ Log Message: Directory /cvsroot/pure-data/abstractions/tabs/tbEnvify~ added to the repository

1 0

abstractions/tabs pre_switch.pd, NONE, 1.1 switcher.pd, NONE, 1.1 volctl~.pd, NONE, 1.1 xfade-help.pd, NONE, 1.1 xfade.pd, NONE, 1.1 xfadeS.pd, NONE, 1.1
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4363 Added Files: pre_switch.pd switcher.pd volctl~.pd xfade-help.pd xfade.pd xfadeS.pd Log Message: initial checking of some basic abstractions --- NEW FILE: xfadeS.pd --- #N canvas 0 0 949 473 10; #X obj 45 24 inlet~; #X obj 357 24 inlet~; #X obj 45 416 outlet~; #X text 626 26 0 bis 100; #X text 46 4 0; #X text 358 6 100; #X obj 550 25 inlet fade; #X obj 550 180 t f f; #X obj 550 160 * 0.01; #X obj 550 204 !- 1; #X obj 550 48 clip 0 100; #X obj 580 223 sqrt; #X obj 550 244 sqrt; #N canvas 5 26 523 273 init 0; #X obj 9 21 init \$1; #X obj 187 20 init \$2; #X obj 187 83 10; #X obj 187 63 b; #X obj 187 40 moses 0; #X obj 231 63 sel 0; #X obj 9 43 outlet initial_state; #X obj 187 112 outlet fade_time; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 7 0; #X connect 3 0 2 0; #X connect 4 0 3 0; #X connect 4 1 5 0; #X connect 5 0 2 0; #X connect 5 1 7 0; #X restore 409 69 pd init; #X text 691 82 \$1: initial value; #X obj 550 328 != 0; #X obj 550 366 outlet switch~_1; #X obj 670 328 != 0; #X obj 670 366 outlet switch~_2; #X obj 670 347 pre_switch 20; #X obj 550 347 pre_switch 20; #X obj 357 342 volctl~ 0 \$2; #X obj 45 342 volctl~ 1 \$2; #X text 691 102 \$2: interpolation time; #X obj 135 24 inlet~; #X obj 135 416 outlet~; #X text 136 4 0; #X obj 135 342 volctl~ 1 \$2; #X obj 237 24 inlet~; #X obj 237 342 volctl~ 0 \$2; #X text 238 6 100; #X obj 756 283 + 10; #X text 45 447 $Id$; #X connect 0 0 22 0; #X connect 1 0 21 0; #X connect 6 0 10 0; #X connect 7 0 9 0; #X connect 7 1 11 0; #X connect 8 0 7 0; #X connect 9 0 12 0; #X connect 10 0 8 0; #X connect 11 0 17 0; #X connect 11 0 21 1; #X connect 11 0 29 1; #X connect 12 0 15 0; #X connect 12 0 22 1; #X connect 12 0 27 1; #X connect 13 0 8 0; #X connect 13 1 22 2; #X connect 13 1 21 2; #X connect 13 1 27 2; #X connect 13 1 29 2; #X connect 13 1 31 1; #X connect 15 0 20 0; #X connect 17 0 19 0; #X connect 19 0 18 0; #X connect 20 0 16 0; #X connect 21 0 25 0; #X connect 22 0 2 0; #X connect 24 0 27 0; #X connect 27 0 25 0; #X connect 28 0 29 0; #X connect 29 0 2 0; #X connect 31 0 20 1; #X connect 31 0 19 1; --- NEW FILE: xfade.pd --- #N canvas 399 50 792 461 10; #X obj 35 24 inlet~; #X obj 187 24 inlet~; #X obj 35 366 outlet~; #X text 456 26 0 bis 100; #X text 36 4 0; #X text 169 5 100; #X obj 380 25 inlet fade; #X obj 380 180 t f f; #X obj 380 160 * 0.01; #X obj 380 204 !- 1; #X obj 380 48 clip 0 100; #X obj 410 223 sqrt; #X obj 380 244 sqrt; #N canvas 5 26 523 273 init 0; #X obj 9 21 init \$1; #X obj 187 20 init \$2; #X obj 187 83 10; #X obj 187 63 b; #X obj 187 40 moses 0; #X obj 231 63 sel 0; #X obj 9 43 outlet initial_state; #X obj 187 112 outlet fade_time; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 7 0; #X connect 3 0 2 0; #X connect 4 0 3 0; #X connect 4 1 5 0; #X connect 5 0 2 0; #X connect 5 1 7 0; #X restore 241 73 pd init; #X text 521 82 \$1: initial value; #X obj 380 328 != 0; #X obj 380 366 outlet switch~_1; #X obj 500 328 != 0; #X obj 500 366 outlet switch~_2; #X obj 380 347 pre_switch 20; #X obj 187 342 volctl~ 0 \$2; #X obj 35 342 volctl~ 1 \$2; #X text 521 102 \$2: interpolation time; #X obj 586 273 + 10; #X text 36 426 $Id$; #X obj 500 347 pre_switch 20; #X connect 0 0 21 0; #X connect 1 0 20 0; #X connect 6 0 10 0; #X connect 7 0 9 0; #X connect 7 1 11 0; #X connect 8 0 7 0; #X connect 9 0 12 0; #X connect 10 0 8 0; #X connect 11 0 17 0; #X connect 11 0 20 1; #X connect 12 0 15 0; #X connect 12 0 21 1; #X connect 13 0 8 0; #X connect 13 1 21 2; #X connect 13 1 20 2; #X connect 13 1 23 0; #X connect 15 0 19 0; #X connect 17 0 25 0; #X connect 19 0 16 0; #X connect 20 0 2 0; #X connect 21 0 2 0; #X connect 23 0 19 1; #X connect 23 0 25 1; #X connect 25 0 18 0; --- NEW FILE: pre_switch.pd --- #N canvas 0 0 450 300 10; #X obj 36 116 t b b; #X obj 105 193 0; #X obj 66 137 zl reg stop; #X obj 36 192 1; #X obj 36 91 sel 1 0; #X obj 105 170 delay \$1; #X obj 36 39 inlet switch; #X obj 36 231 outlet switch~; #X text 38 17 \$1: switch delay; #X obj 36 69 change; #X obj 197 38 inlet delay; #X obj 197 59 moses 0; #X obj 197 79 assert; #X text 35 265 $Id: pre_switch.pd 188 2005-11-20 00:26:53Z tim $; #X connect 0 0 3 0; #X connect 0 1 2 0; #X connect 1 0 7 0; #X connect 2 0 5 0; #X connect 3 0 7 0; #X connect 4 0 0 0; #X connect 4 1 5 0; #X connect 5 0 1 0; #X connect 6 0 9 0; #X connect 9 0 4 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 5 1; --- NEW FILE: volctl~.pd --- #N canvas 428 171 450 300 10; #X obj 28 13 inlet~; #X obj 28 219 outlet~; #X obj 28 179 *~; #X obj 44 160 line~; #X obj 44 139 pack \$1 \$2; #X obj 109 115 inlet ramp_time; #X obj 44 53 loadbang; #X text 27 275 $Id: volctl~.pd 193 2005-11-20 00:58:51Z tim $; #X text 143 42 \$1: initial gain; #X text 143 62 \$2: initial ramp time; #X text 27 245 for all the people \, who are afraid to use devel or my volctl~ external; #X obj 44 75 inlet factor; #X connect 0 0 2 0; #X connect 2 0 1 0; #X connect 3 0 2 1; #X connect 4 0 3 0; #X connect 5 0 4 1; #X connect 6 0 4 0; #X connect 11 0 4 0; --- NEW FILE: switcher.pd --- #N canvas 567 330 438 173 10; #X obj 36 15 inlet switch; #X obj 36 79 outlet factor; #X obj 66 118 outlet switch~; #X obj 36 60 t f f; #X text 220 18 \$1: switch delay; #X obj 36 38 change; #X obj 66 99 pre_switch \$1; #X text 42 155 $Id: switcher.pd 193 2005-11-20 00:58:51Z tim $; #X connect 0 0 5 0; #X connect 3 0 1 0; #X connect 3 1 6 0; #X connect 5 0 3 0; #X connect 6 0 2 0; --- NEW FILE: xfade-help.pd --- #N canvas 151 330 809 334 10; #X obj 62 74 xfade 0 100; #X obj 98 102 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 134 104 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #N canvas 0 0 450 300 sig1 0; #X obj 38 99 osc~ 440; #X obj 38 123 outlet~; #X obj 162 119 switch~; #X obj 162 99 inlet switch~; #X connect 0 0 1 0; #X connect 3 0 2 0; #X restore 62 18 pd sig1; #N canvas 0 0 450 300 sig2 0; #X obj 38 123 outlet~; #X obj 162 119 switch~; #X obj 162 99 inlet switch~; #X obj 38 99 osc~ 220; #X connect 2 0 1 0; #X connect 3 0 0 0; #X restore 98 48 pd sig2; #X obj 62 144 dacer~; #X floatatom 150 76 5 0 0 0 - - -; #X text 69 212 $Id: xfade-help.pd 189 2005-11-20 00:27:13Z tim $; #X obj 348 118 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 375 118 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #N canvas 0 0 450 300 sig1 0; #X obj 38 99 osc~ 440; #X obj 38 123 outlet~; #X obj 162 119 switch~; #X obj 162 99 inlet switch~; #X connect 0 0 1 0; #X connect 3 0 2 0; #X restore 296 34 pd sig1; #N canvas 0 0 450 300 sig2 0; #X obj 38 123 outlet~; #X obj 162 119 switch~; #X obj 162 99 inlet switch~; #X obj 38 99 osc~ 220; #X connect 2 0 1 0; #X connect 3 0 0 0; #X restore 334 58 pd sig2; #X obj 296 160 dacer~; #X floatatom 408 90 5 0 0 0 - - -; #X obj 296 90 xfadeS 0 100; #X connect 0 0 5 0; #X connect 0 0 5 1; #X connect 0 1 1 0; #X connect 0 2 2 0; #X connect 1 0 3 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 0 1; #X connect 6 0 0 2; #X connect 8 0 10 0; #X connect 9 0 11 0; #X connect 10 0 14 0; #X connect 10 0 14 1; #X connect 11 0 14 2; #X connect 11 0 14 3; #X connect 13 0 14 4; #X connect 14 0 12 0; #X connect 14 1 12 1; #X connect 14 2 8 0; #X connect 14 3 9 0;

1 0

abstractions/tabs - New directory
by Tim Blechmann 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/abstractions/tabs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2529/tabs Log Message: Directory /cvsroot/pure-data/abstractions/tabs added to the repository

1 0

externals/grill/xsample .DS_Store, NONE, 1.1 readme.txt, 1.22, 1.23
by Thomas Grill 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/externals/grill/xsample In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25406 Modified Files: readme.txt Added Files: .DS_Store Log Message: --- NEW FILE: .DS_Store --- (This appears to be a binary file; contents omitted.) Index: readme.txt =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/readme.txt,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** readme.txt 8 Jan 2005 04:59:40 -0000 1.22 --- readme.txt 19 Nov 2005 23:15:44 -0000 1.23 *************** *** 17,21 **** 1) ! For Mac OSX it is best to put the max-osx/xsample.mxd file into the folder /Library/Application Support/Cycling '74/externals and the file maxmsp/xsample-objectmappings.txt into the folder --- 17,21 ---- 1) ! For Mac OSX it is best to put the max-darwin/xsample.mxd file into the folder /Library/Application Support/Cycling '74/externals and the file maxmsp/xsample-objectmappings.txt into the folder

1 0

externals/grill/xsample/source groove.cpp, 1.35, 1.36 main.cpp, 1.22, 1.23 main.h, 1.40, 1.41
by Thomas Grill 20 Nov '05

20 Nov '05

Update of /cvsroot/pure-data/externals/grill/xsample/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25406/source Modified Files: groove.cpp main.cpp main.h Log Message: Index: groove.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/groove.cpp,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** groove.cpp 22 Oct 2005 23:55:21 -0000 1.35 --- groove.cpp 19 Nov 2005 23:15:44 -0000 1.36 *************** *** 342,361 **** register double o = curpos; ! for(int i = 0; i < n; ++i) { ! const t_sample spd = speed[i]; // must be first because the vector is reused for output! ! // normalize offset ! if(!(o < smax)) { // faster than o >= smax ! o = fmod(o-smin,plen)+smin; ! lpbang = true; ! } ! else if(o < smin) { ! o = fmod(o-smin,plen)+smax; ! lpbang = true; ! } - pos[i] = o; - o += spd; - } // normalize and store current playing position setpos(o); --- 342,383 ---- register double o = curpos; ! if(wrap && smin < 0 && smax >= buf.Frames()) { ! for(int i = 0; i < n; ++i) { ! const t_sample spd = speed[i]; // must be first because the vector is reused for output! ! // normalize offset ! if(!(o < smax)) { // faster than o >= smax ! o = fmod(o-smin,plen)+smin; ! lpbang = true; ! } ! else if(o < smin) { ! o = fmod(o-smin,plen)+smax; ! lpbang = true; ! } ! ! // TODO normalize to 0...buf.Frames() ! pos[i] = o; ! o += spd; ! } ! } ! else { ! for(int i = 0; i < n; ++i) { ! const t_sample spd = speed[i]; // must be first because the vector is reused for output! ! ! // normalize offset ! if(!(o < smax)) { // faster than o >= smax ! o = fmod(o-smin,plen)+smin; ! lpbang = true; ! } ! else if(o < smin) { ! o = fmod(o-smin,plen)+smax; ! lpbang = true; ! } ! ! pos[i] = o; ! o += spd; ! } ! } // normalize and store current playing position setpos(o); *************** *** 668,678 **** if(lack > 0) znsmin -= lack,znsmax += lack; ! // check buffer limits and shift bounds if necessary ! if(znsmin < 0) { ! znsmax -= znsmin; ! znsmin = 0; ! } ! if(znsmax > frames) ! znsmax = frames; } else if(xfade == xsf_keeplooplen) { --- 690,702 ---- if(lack > 0) znsmin -= lack,znsmax += lack; ! if(!wrap) { ! // check buffer limits and shift bounds if necessary ! if(znsmin < 0) { ! znsmax -= znsmin; ! znsmin = 0; ! } ! if(znsmax > frames) ! znsmax = frames; ! } } else if(xfade == xsf_keeplooplen) { *************** *** 690,703 **** znsmax = curmax+hzone; ! // check buffer limits and shift bounds if necessary ! // both cases can't happen because of xzone having been limited above ! if(znsmin < 0) { ! znsmax -= znsmin; ! znsmin = 0; ! } ! else if(znsmax > frames) { ! znsmin -= znsmax-frames; ! znsmax = frames; ! } } else if(xfade == xsf_keeplooppos) { --- 714,729 ---- znsmax = curmax+hzone; ! if(!wrap) { ! // check buffer limits and shift bounds if necessary ! // both cases can't happen because of xzone having been limited above ! if(znsmin < 0) { ! znsmax -= znsmin; ! znsmin = 0; ! } ! else if(znsmax > frames) { ! znsmin -= znsmax-frames; ! znsmax = frames; ! } ! } } else if(xfade == xsf_keeplooppos) { Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/main.cpp,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** main.cpp 11 Oct 2005 10:09:47 -0000 1.22 --- main.cpp 19 Nov 2005 23:15:44 -0000 1.23 *************** *** 50,54 **** xsample::xsample(): ! update(xsc_all), #if FLEXT_SYS == FLEXT_SYS_MAX unitmode(xsu_ms), // Max/MSP defaults to milliseconds --- 50,54 ---- xsample::xsample(): ! update(xsc_all),wrap(false), #if FLEXT_SYS == FLEXT_SYS_MAX unitmode(xsu_ms), // Max/MSP defaults to milliseconds *************** *** 169,178 **** if(flags&xsc_range && buf.Ok()) { const int f = buf.Frames(); ! ! if(curmin < 0) curmin = 0; ! else if(curmin > f) curmin = f; ! ! if(curmax > f) curmax = f; ! else if(curmax < curmin) curmax = curmin; } --- 169,184 ---- if(flags&xsc_range && buf.Ok()) { const int f = buf.Frames(); ! ! if(!wrap) { ! // normalize bounds ! if(curmin < 0) curmin = 0; ! else if(curmin > f) curmin = f; ! ! if(curmax > f) curmax = f; ! else if(curmax < curmin) curmax = curmin; ! } ! else ! // don't normalize ! if(curmax < curmin) curmax = curmin; } Index: main.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/main.h,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** main.h 22 Oct 2005 23:55:21 -0000 1.40 --- main.h 19 Nov 2005 23:15:44 -0000 1.41 *************** *** 16,20 **** #endif ! #define XSAMPLE_VERSION "0.3.1" extern "C++" { --- 16,20 ---- #endif ! #define XSAMPLE_VERSION "0.3.2pre" extern "C++" { *************** *** 192,195 **** --- 192,201 ---- } + void m_wrap(bool w) + { + wrap = w; + Update(xsc_pos|xsc_range,true); + } + void m_min(float mn); void m_max(float mx); *************** *** 202,205 **** --- 208,212 ---- float sclmul; float s2u; // sample to unit conversion factor + bool wrap; inline float scale(float smp) const { return (smp-sclmin)*sclmul; } *************** *** 267,270 **** --- 274,280 ---- FLEXT_ATTRGET_F(s2u) + FLEXT_CALLSET_B(m_wrap) + FLEXT_ATTRGET_B(wrap) + protected: FLEXT_CALLGET_F(mg_min)

1 0

← Newer
1
...
24
25
26
27
28
29
30
...
50
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs November 2005