Pd-cvs August 2005

pd-cvs@lists.iem.at

8 participants
108 discussions

pd/src pd.tk, 1.1.2.4, 1.1.2.5 pd_objects.tk, 1.1.2.4, 1.1.2.5
by carmen rocco 13 Aug '05

13 Aug '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8638 Modified Files: Tag: devel_0_39 pd.tk pd_objects.tk Log Message: brb Index: pd.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/pd.tk,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -d -r1.1.2.4 -r1.1.2.5 *** pd.tk 11 Aug 2005 14:30:58 -0000 1.1.2.4 --- pd.tk 12 Aug 2005 23:45:45 -0000 1.1.2.5 *************** *** 1,6 **** #pd tk gui v2 ix ! if {[catch {package require snack}]} {set has_snack 0} {set has_snack 1} ! if {[catch {package require tkdnd}]} {set has_dnd 0} {set has_dnd 1} namespace eval ::pd { --- 1,7 ---- #pd tk gui v2 ix ! foreach _ {snack tkdnd tkpath} { ! if {[catch {package require $_}]} {set has_$_ 0} {set has_$_ 1} ! } namespace eval ::pd { *************** *** 47,54 **** set x [tr $p $t x i $($t:hx)] set y [tr $p $t y i $($t:hy)] ! item_ua $p $t $id abs [dict create x $x xx $x y $y yy $y color {128 128 128} v 1] 0 if {[dict exists $obj $type defaults]} { ! item_ua $p $t $id abs [dict get $obj [dict get $d type] defaults] 0 } --- 48,60 ---- set x [tr $p $t x i $($t:hx)] set y [tr $p $t y i $($t:hy)] ! if {[dict exists $obj $type size]} { ! set sx [dict get $obj $type size x] ! set sy [dict get $obj $type size y] ! } {set sx 0; set sy 0} ! ! item_ua $p $t $id abs [dict create x $x xx [expr $x + $sx] y $y yy [expr $y + $sy] color {128 128 128} v 1] 0 if {[dict exists $obj $type defaults]} { ! item_ua $p $t $id abs [dict get $obj $type defaults] 0 } *************** *** 65,70 **** set tags [list item i$id $id] set color [color [dict get $($t:g) $($t:cg) color]] ! foreach local [dict keys [dict get $obj $type defaults]] { ! set $local [dict get $obj $type defaults $local]} eval [dict get $obj $type draw] redraw $p $t $id --- 71,77 ---- set tags [list item i$id $id] set color [color [dict get $($t:g) $($t:cg) color]] ! if {[dict exists $obj $type defaults]} { ! foreach local [dict keys [dict get $obj $type defaults]] { ! set $local [dict get $obj $type defaults $local]}} eval [dict get $obj $type draw] redraw $p $t $id *************** *** 135,140 **** set tags [concat item && i$id && $id] set item [$p find withtag $tags] ! foreach tag [dict get $obj $type tags] { ! set $tag [$p find withtag "$tags && $tag"]} eval [dict get $obj $type redraw] redraw_io $p $t $id --- 142,148 ---- set tags [concat item && i$id && $id] set item [$p find withtag $tags] ! if {[dict exists $obj $type tags]} { ! foreach tag [dict get $obj $type tags] { ! set $tag [$p find withtag "$tags && $tag"]}} eval [dict get $obj $type redraw] redraw_io $p $t $id *************** *** 148,155 **** proc item_v {p t a x y} { variable "" ! foreach item $($t:sel) { ! item_ua $p $t $item rel [dict create v [expr {($x - $($t:cx)) / 100.0}]] 1 } - item_info $p $t $($t:sel) } --- 156,167 ---- proc item_v {p t a x y} { variable "" ! variable obj ! foreach id $($t:sel) { ! set type [dict get $($t) $id type] ! if {[dict exists $obj $type defaults]} { ! foreach local [dict keys [dict get $obj $type defaults]] { ! set $local [dict get $obj $type defaults $local]}} ! eval [dict get $obj $type control Button-1] } } *************** *** 161,165 **** set my [tr $p $t y d [expr {$y - $($t:cy)}]] foreach item $($t:sel) {item_pos $p $t $item rel $mx $my $mx $my} - item_info $p $t $($t:sel) } --- 173,176 ---- *************** *** 177,182 **** array set ax {x x xx x y y yy y} set m [tr $p $t $ax($e) d [expr $$ax($e) - $($t:c$ax($e))]] ! foreach item $($t:sel) {item_ua $p $t $item rel [dict create $e $m] 1} ! item_info $p $t $($t:sel) } --- 188,192 ---- array set ax {x x xx x y y yy y} set m [tr $p $t $ax($e) d [expr $$ax($e) - $($t:c$ax($e))]] ! item_mua $p $t rel [dict create $e $m] 1 } *************** *** 272,296 **** } proc inspect {p t id} { if {![winfo exists .i$t]} {return} variable "" set keys [dict keys [dict get $($t) $id]] ! if {$($t:inspect) != $id} { foreach c [winfo children .ic] {destroy $c} foreach k $keys { ! text .i$t.$k -wrap none -width 10 -height 1 -bd 0 .i$t.$k insert 1.0 $k .i$t.$k configure -state disabled ! text .i$t.${k}v -wrap none -width 16 -height 1 -bd 1 ! bind .i$t.${k}v <Any-KeyRelease> "::pd::item_ua $p $t $id abs \[dict create $k \[.i$t.${k}v get 1.0 end\] \] 1" ! grid .i$t.$k .i$t.${k}v ! } ! } set ($t:inspect) $id foreach k $keys { .i$t.${k}v delete 1.0 end ! .i$t.${k}v insert 1.0 [dict get $($t) $id $k] ! } ! } proc click {m button action p t x y X Y} { --- 282,312 ---- } + proc inspector {p t} { + variable "" + if {![winfo exists .i$t]} {toplevel .i$t + if {[info exists ($t:inspect)]} {unset ($t:inspect)}}} + proc inspect {p t id} { if {![winfo exists .i$t]} {return} variable "" set keys [dict keys [dict get $($t) $id]] ! if {![info exists ($t:inspect)] || ([info exists ($t:inspect)] && [dict get $($t) $($t:inspect) type] ne [dict get $($t) $id type])} { foreach c [winfo children .ic] {destroy $c} foreach k $keys { ! text .i$t.$k -wrap none -width 8 -height 1 -bd 0 .i$t.$k insert 1.0 $k + .i$t.$k tag add justify 1.0 end + .i$t.$k tag configure justify -justify right .i$t.$k configure -state disabled ! text .i$t.${k}v -wrap none -width 16 -height 1 -bd 0 -bg gray94 ! bind .i$t.${k}v <Any-KeyRelease> "::pd::item_mua $p $t abs \[dict create $k \[.i$t.${k}v get 1.0 end\] \] 1" ! grid .i$t.$k .i$t.${k}v -sticky nsew ! grid rowconfigure .i$t .i$t.${k}v -weight 1 ! grid columnconfigure .i$t .i$t.${k}v -weight 3 ! grid columnconfigure .i$t .i$t.$k -weight 1}} set ($t:inspect) $id foreach k $keys { .i$t.${k}v delete 1.0 end ! .i$t.${k}v insert 1.0 [dict get $($t) $id $k]}} proc click {m button action p t x y X Y} { *************** *** 355,363 **** $m add cascade -label "view" -menu [set mv [menu $m.view -tearoff no]] $mv add command -label "zoom to fit" -command "::pd::viewpoint $p $t {action fit}" $mv add command -label "reset" -command "::pd::viewpoint $p $t {action reset}" $m add command -label reload -command {source pd.tk} $m add command -label "console" -command {tkcon show} ! $m add command -label "inspector" -command "toplevel .i$t" } else { --- 371,381 ---- $m add cascade -label "view" -menu [set mv [menu $m.view -tearoff no]] $mv add command -label "zoom to fit" -command "::pd::viewpoint $p $t {action fit}" + $mv add command -label "flip x" -command "::pd::viewpoint $p $t {action mirror_x}" + $mv add command -label "flip y" -command "::pd::viewpoint $p $t {action mirror_y}" $mv add command -label "reset" -command "::pd::viewpoint $p $t {action reset}" $m add command -label reload -command {source pd.tk} $m add command -label "console" -command {tkcon show} ! $m add command -label "inspector" -command "::pd::inspector $p $t" } else { *************** *** 381,408 **** switch [dict get $opts action] { fit { ! set i 0 ! dict for {s xy} $($t) { ! dict with xy { ! if {$i == 0} { ! set xa $x ! set xb $x ! set ya $y ! set yb $y ! } ! if {$x > $xb} {set xb $x} ! if {$x < $xa} {set xa $x} ! if {$y > $yb} {set yb $y} ! if {$y < $ya} {set ya $y} ! if {$xx > $xb} {set xb $xx} ! if {$xx < $xa} {set xa $xx} ! if {$yy > $yb} {set yb $yy} ! if {$yy < $ya} {set ya $yy} ! incr i ! } ! } ! set ($t:xa) $xa ! set ($t:xb) $xb ! set ($t:ya) $ya ! set ($t:yb) $yb } reset { --- 399,413 ---- switch [dict get $opts action] { fit { ! lassign [$p bbox item] xa ya xb yb ! set ($t:xa) [tr $p $t x i $xa] ! set ($t:xb) [tr $p $t x i $xb] ! set ($t:ya) [tr $p $t y i $ya] ! set ($t:yb) [tr $p $t y i $yb] ! } ! mirror_x { ! lassign "$($t:xb) $($t:xa)" ($t:xa) ($t:xb) ! } ! mirror_y { ! lassign "$($t:yb) $($t:ya)" ($t:ya) ($t:yb) } reset { *************** *** 495,501 **** proc group_assign {p t group} { variable "" ! foreach item $($t:sel) { ! item_ua $p $t $item abs [dict create g $group] 1 ! } } --- 500,509 ---- proc group_assign {p t group} { variable "" ! item_mua $p $t abs [dict create g $group] 1 ! } ! ! proc item_mua {p t r u redraw} { ! variable "" ! foreach item $($t:sel) {item_ua $p $t $item $r $u $redraw} } *************** *** 547,560 **** variable obj foreach xy {x y} {foreach ab {a b} {set ($t:${xy}${ab}o) [dict get $opts ${xy}${ab}]}} ! foreach a {sc ln mode xa xb ya yb qx qy mx my samplerate inspect} {set ($t:$a) [dict get $opts $a]} if {[winfo exists $p] != 1} { canvas $p -bg [dict get $opts bg] place $p -relwidth 1 -relheight 1 - toplevel .i$t bind $p <Configure> "::pd::gridlines $p $t; ::pd::redraw $p $t all" bind $p <Enter> "focus $p" bind $p <Key> "::pd::key $p $t %k 1" bind $p <KeyRelease> "::pd::key $p $t %k 0" ! if {$::has_dnd == 1} { dnd bindtarget $p text/plain <Drop> "::pd::drop $p $t %D %x %y" } else { --- 555,567 ---- variable obj foreach xy {x y} {foreach ab {a b} {set ($t:${xy}${ab}o) [dict get $opts ${xy}${ab}]}} ! foreach a {sc ln mode xa xb ya yb qx qy mx my samplerate} {set ($t:$a) [dict get $opts $a]} if {[winfo exists $p] != 1} { canvas $p -bg [dict get $opts bg] place $p -relwidth 1 -relheight 1 bind $p <Configure> "::pd::gridlines $p $t; ::pd::redraw $p $t all" bind $p <Enter> "focus $p" bind $p <Key> "::pd::key $p $t %k 1" bind $p <KeyRelease> "::pd::key $p $t %k 0" ! if {$::has_tkdnd == 1} { dnd bindtarget $p text/plain <Drop> "::pd::drop $p $t %D %x %y" } else { *************** *** 615,619 **** . configure -width 800 -height 800 ! new .c c {bg gray86 ln white mode edit sc orange samplerate 44100 xa 0 xb 100 ya 0 yb 100 qx 10 qy 10 mx 15 my 15 inspect -} } --- 622,626 ---- . configure -width 800 -height 800 ! new .c c {bg gray86 ln white mode edit sc orange samplerate 44100 xa 0 xb 100 ya 0 yb 100 qx 10 qy 10 mx 15 my 15} } Index: pd_objects.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/pd_objects.tk,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -d -r1.1.2.4 -r1.1.2.5 *** pd_objects.tk 11 Aug 2005 14:30:58 -0000 1.1.2.4 --- pd_objects.tk 12 Aug 2005 23:45:45 -0000 1.1.2.5 *************** *** 57,61 **** box loc } ! defaults { ins 0 outs 0 --- 57,62 ---- box loc } ! size {x 10 y 10} ! defaults { ins 0 outs 0 *************** *** 73,77 **** label_cable { ! defaults {width 8} draw { $p create line 0 0 0 0 -tags $tags -fill green -arrow last -width 8 --- 74,78 ---- label_cable { ! size {x 10 y 10} draw { $p create line 0 0 0 0 -tags $tags -fill green -arrow last -width 8 *************** *** 89,92 **** --- 90,96 ---- box txt } + size { + x 6.4 y 1.2 + } defaults { ins 1 *************** *** 95,106 **** } draw { ! $p create polygon 0 0 0 0 -tags [concat $tags box] -fill $color $p create text 0 0 -tags [concat $tags txt] -fill white -anchor nw -justify left } redraw { $p coords $txt $x $y $p itemconfigure $txt -font [list {bitstream vera sans} [expr int($sy)]] -text $msg lassign [$p bbox $txt] x y xx yy ! $p coords $box $x $y [expr $xx + $sx / 5.] $y $xx [expr $y + $sy/2.] [expr $xx + $sx / 5.] $yy $x $yy } } --- 99,112 ---- } draw { ! $p create polygon 0 0 0 0 -tags [concat $tags box] $p create text 0 0 -tags [concat $tags txt] -fill white -anchor nw -justify left } redraw { $p coords $txt $x $y + $p itemconfigure $box -fill $color $p itemconfigure $txt -font [list {bitstream vera sans} [expr int($sy)]] -text $msg lassign [$p bbox $txt] x y xx yy ! set flare [expr $xx + ($xx - $x) / 10.] ! $p coords $box $x $y $flare $y $xx [expr $y + ($yy - $y)/2.] $flare $yy $x $yy } } *************** *** 110,115 **** --- 116,123 ---- pos box } + size {x 2 y 10} defaults { min 1 + v 48 max 69 ins 0 *************** *** 123,131 **** $p coords $box $x $y $xx $yy if {[expr ($xx - $x) > ($yy - $y)]} {set orient h} {set orient v} switch $orient { ! v {set coords [concat $x [expr $y + ($yy - $y) * [dict get $($t) $id v]] [expr $xx - $x] 3]} ! h {set coords [concat [expr $x + ($xx - $x) * [dict get $($t) $id v]] $y 3 [expr $yy - $y]]}} $p coords $pos $coords } } --- 131,152 ---- $p coords $box $x $y $xx $yy if {[expr ($xx - $x) > ($yy - $y)]} {set orient h} {set orient v} + set v [expr ($v - $min + 0.) / ($max - $min + 0.)] switch $orient { ! v { ! set loc [expr $y + ($yy - $y) * $v] ! set coords [concat $x $loc $xx $loc] ! } ! h { ! set loc [expr $x + ($xx - $x) * $v] ! set coords [concat $loc $y $loc $yy] ! } ! } $p coords $pos $coords } + control { + Button-1 { + item_ua $p $t $id rel [dict create v [expr {($x - $($t:cx)) / 100.0 * ($max - $min + 0.)}]] 1 + } + } }

1 0

pd/src g_array.c, 1.3.4.4.2.2, 1.3.4.4.2.3 g_canvas.h, 1.3.4.3.2.2, 1.3.4.3.2.3
by Tim Blechmann 12 Aug '05

12 Aug '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22631 Modified Files: Tag: devel_0_39 g_array.c g_canvas.h Log Message: adding garray_updatetime again Index: g_array.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_array.c,v retrieving revision 1.3.4.4.2.2 retrieving revision 1.3.4.4.2.3 diff -C2 -d -r1.3.4.4.2.2 -r1.3.4.4.2.3 *** g_array.c 12 Jul 2005 15:11:07 -0000 1.3.4.4.2.2 --- g_array.c 12 Aug 2005 10:03:41 -0000 1.3.4.4.2.3 *************** *** 222,225 **** --- 222,231 ---- } + static void garray_update(t_garray *x) + { + x->x_lastupdate = clock_getlogicaltime(); + } + + /* get the "array" structure and furthermore check it's float */ static t_array *garray_getarray_floatonly(t_garray *x, *************** *** 1051,1054 **** --- 1057,1066 ---- garray_vis(&x->x_gobj, x->x_glist, 1); } + garray_update(x); + } + + double garray_updatetime(t_garray *x) + { + return x->x_lastupdate; } Index: g_canvas.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_canvas.h,v retrieving revision 1.3.4.3.2.2 retrieving revision 1.3.4.3.2.3 diff -C2 -d -r1.3.4.3.2.2 -r1.3.4.3.2.3 *** g_canvas.h 12 Jul 2005 15:11:07 -0000 1.3.4.3.2.2 --- g_canvas.h 12 Aug 2005 10:03:41 -0000 1.3.4.3.2.3 *************** *** 226,235 **** t_gpointer a_gp; /* pointer to scalar or array element we're in */ t_gstub *a_stub; /* stub for pointing into this array */ - double a_lastupdate; /* T.Grill - clock_getlogicaltime() of last array update */ }; - - - struct _garray { --- 226,231 ---- *************** *** 242,248 **** char x_saveit; /* true if we should save this with parent */ char x_listviewing; /* true if list view window is open */ ! #ifdef GARRAY_THREAD_LOCK ! pthread_mutex_t * x_mutex; /* TB: mutex */ ! #endif }; --- 238,242 ---- char x_saveit; /* true if we should save this with parent */ char x_listviewing; /* true if list view window is open */ ! double x_lastupdate; /* T.Grill - clock_getlogicaltime() of last array update */ };

1 0

[PD-cvs] externals/grill/vst/pd vst~-help.pd, NONE, 1.1 help-vst~.pd, 1.9, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/vst/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15429/pd Added Files: vst~-help.pd Removed Files: help-vst~.pd Log Message: fix for DSP setup DSP fixes added support for plug shells (like Waveshell) clean handling of plugin deletion (potentially open editor window etc.) names containing spaces are now correctly dumped support for named parameters feedback attribute for parameter reporting added event processing (like Midi in) fixed bug with param method much cleaner Window GUI code added mute and bypass attributes rename help file fix for build system no more interruptions on window close workarounds for Waves5 bundle restructured VSThost code alt-click for plug editor many small fixes better shell support added window size,move,caption,titling features VSTTime info some fixes and warnings updated for new flext function naming more consistent MIDI functionality --- NEW FILE: vst~-help.pd --- #N canvas 30 4 858 559 12; #X obj 26 94 noise~; #X obj 240 189 print A; #X obj 27 393 tgl 15 0 empty empty empty 0 -6 0 8 -261689 -1 -1 0 1 ; #X msg 27 435 edit \$1; #X msg 97 435 getedit; #N canvas 367 122 570 368 info 0; #X msg 92 160 getversion; #X msg 92 105 getname; #X msg 93 183 getvendor; #X msg 92 218 getsynth; #X msg 92 248 getins; #X msg 153 250 getouts; #X msg 93 134 getdll; #X obj 24 290 s \$0-vst; #X msg 98 323 print; #X text 169 220 is synth?; #X text 177 183 get vendor string; #X text 179 161 get version; #X text 152 134 get shared lib name; #X text 157 109 get internal (official) plug name; #X text 217 251 number of plug inlets and outlets; #X msg 93 41 getattributes; #X msg 266 219 geteditor; #X text 346 219 has editor?; #X msg 22 41 help; #X text 213 38 list all attributes; #X msg 93 64 getmethods; #X text 213 65 list all methods; #X connect 0 0 7 0; #X connect 1 0 7 0; #X connect 2 0 7 0; #X connect 3 0 7 0; #X connect 4 0 7 0; #X connect 5 0 7 0; #X connect 6 0 7 0; #X connect 8 0 7 0; #X connect 15 0 7 0; #X connect 16 0 7 0; #X connect 18 0 7 0; #X connect 20 0 7 0; #X restore 521 97 pd info; #X obj 96 94 r \$0-vst; #X obj 27 462 s \$0-vst; #X text 52 392 display edit window; #X msg 104 309 getplug; #X obj 26 337 s \$0-vst; #X text 64 263 set/get plugin; #X text 587 97 further information; #X obj 23 15 cnv 15 800 58 empty empty vst~ 10 32 0 24 -260818 -1 0 ; #X text 237 170 attribute outlet; #X text 190 134 inlets outlets [plugname]; #N canvas 351 2 630 585 win 0; #X obj 23 202 s \$0-vst; #X msg 122 83 getx; #X msg 181 85 gety; #X obj 122 37 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 123 55 x \$1; #X obj 192 37 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 193 53 y \$1; #X text 264 74 (position of the actual VST interface); #X obj 117 208 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X msg 116 227 caption \$1; #X msg 211 227 getcaption; #X text 119 251 set/get window caption and borders; #X text 118 316 set/get window title; #X msg 218 292 gettitle; #X msg 115 292 title KARL; #X obj 120 124 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X obj 190 124 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 121 142 w \$1; #X msg 120 170 getw; #X msg 191 140 h \$1; #X msg 175 170 geth; #X text 265 144 set and get editor window size; #X text 267 59 set and get editor position; #X obj 122 458 bng 15 250 50 0 empty empty empty 0 -6 0 8 -225271 -1 -1; #X text 280 457 send editor window to front; #X msg 223 457 front; #X obj 145 457 delay 100; #X obj 123 500 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X msg 145 497 handle \$1; #X text 230 498 set/unset handle for window (taskbar button); #X obj 118 374 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X msg 117 396 vis \$1; #X msg 186 396 getvis; #X text 141 372 make edit window (in)visible; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 8 0 9 0; #X connect 9 0 0 0; #X connect 10 0 0 0; #X connect 13 0 0 0; #X connect 14 0 0 0; #X connect 15 0 17 0; #X connect 16 0 19 0; #X connect 17 0 0 0; #X connect 18 0 0 0; #X connect 19 0 0 0; #X connect 20 0 0 0; #X connect 23 0 26 0; #X connect 25 0 0 0; #X connect 26 0 25 0; #X connect 27 0 28 0; #X connect 28 0 0 0; #X connect 30 0 31 0; #X connect 31 0 0 0; #X connect 32 0 0 0; #X restore 520 227 pd win; #X text 586 227 manipulating the edit window; #X msg 26 310 plug \$1; #X obj 26 254 bng 25 250 50 0 empty empty empty 0 -6 0 8 -261689 -1 -1; #X obj 26 285 openpanel; #N canvas 294 23 534 663 midi 0; #X obj 16 256 s \$0-vst; #X msg 198 201 ctlchg 3 123; #X text 204 70 note on; #X text 375 71 note off; #X text 308 200 control change; #X text 272 287 pitch bend; #X text 279 228 program change; #X msg 197 229 progchg 2; #X msg 285 72 noteoff 10; #X text 275 336 after touch; #X obj 198 267 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X obj 198 318 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 197 287 pbend \$1; #X msg 196 337 atouch \$1; #X obj 109 136 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 108 71 note 10 100; #X msg 108 152 note \$1 100; #X msg 284 126 noteoff \$1; #X obj 285 109 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X text 25 520 MIDI messages have the following format:; #X text 23 544 [event midi subtype chn b2 b3 delta note-length note-offset detune off-velocity(; #X obj 90 371 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1 ; #X msg 90 390 events \$1; #X msg 90 415 getevents; #X text 177 393 enable event processing; #X text 25 463 if enabled vst~ will output events generated by the plugin as [event ...( messages through the dump outlet; #X msg 108 93 note 10 0; #X text 188 93 "note off"; #X obj 107 12 nbx 5 14 0 15 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 106 28 channel \$1; #X msg 207 28 getchannel; #X text 305 20 set/get MIDI channel; #X text 25 585 subtypes are note \, noteoff \, atouch \, patouch \, ctlchg \, progchg \, pbend; #X connect 1 0 0 0; #X connect 7 0 0 0; #X connect 8 0 0 0; #X connect 10 0 12 0; #X connect 11 0 13 0; #X connect 12 0 0 0; #X connect 13 0 0 0; #X connect 14 0 16 0; #X connect 15 0 0 0; #X connect 16 0 0 0; #X connect 17 0 0 0; #X connect 18 0 17 0; #X connect 21 0 22 0; #X connect 22 0 0 0; #X connect 23 0 0 0; #X connect 26 0 0 0; #X connect 28 0 29 0; #X connect 29 0 0 0; #X connect 30 0 0 0; #X restore 521 195 pd midi; #X text 134 33 based on the work of Jarno Seppanen and Mark Williamson ; #X obj 742 456 loadbang; #X msg 742 483 \; pd dsp 1; #X obj 520 449 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X obj 520 498 s \$0-vst; #X msg 520 471 bypass \$1; #X msg 602 471 getbypass; #X text 545 448 bypass plugin; #X obj 520 357 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X obj 520 405 s \$0-vst; #X text 545 356 mute output; #X msg 520 378 mute \$1; #X msg 602 378 getmute; #N canvas 200 110 497 448 parameters 0; #X obj 114 125 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -225271 -1 -1 0 1; #X msg 111 142 param 2 \$1; #X obj 21 195 s \$0-vst; #X msg 113 26 getparams; #X text 191 26 get number of parameters; #X msg 213 143 getparam 2; #X msg 107 202 param gain 0; #X text 203 84 get parameter name; #X text 120 277 get value in textual representation; #X text 136 164 set/get parameter (0-based); #X msg 107 255 getptext \$1; #X obj 107 238 nbx 5 14 0 10000 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X obj 111 68 nbx 5 14 0 10000 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 111 86 getpname \$1; #X msg 212 255 getptext gain; #X msg 214 202 getparam gain; #X text 116 293 (may be ambigous!); #X obj 106 335 tgl 15 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X msg 108 356 feedback \$1; #X msg 213 356 getfeedback; #X text 108 378 get parameter feedback through dump outlet; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 3 0 2 0; #X connect 5 0 2 0; #X connect 6 0 2 0; #X connect 10 0 2 0; #X connect 11 0 10 0; #X connect 12 0 13 0; #X connect 13 0 2 0; #X connect 14 0 2 0; #X connect 15 0 2 0; #X connect 17 0 18 0; #X connect 18 0 2 0; #X connect 19 0 2 0; #X restore 520 130 pd parameters; #N canvas 0 0 466 316 programs 0; #X obj 39 245 s \$0-vst; #X msg 162 106 getprogram; #X text 134 34 get number of programs; #X msg 39 37 getprograms; #X text 93 125 set/get program (0-based); #X msg 39 62 getprogcats; #X text 134 59 get number of program categories; #X msg 59 106 program \$1; #X obj 60 90 nbx 5 14 0 10000 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X obj 64 144 nbx 5 14 0 10000 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 62 161 getprogname \$1; #X text 182 158 get program name; #X obj 63 195 nbx 5 14 0 10000 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X text 199 210 get program name; #X msg 61 212 getprogname 2 \$1; #X text 201 224 (with category); #X text 198 172 (no category); #X connect 1 0 0 0; #X connect 3 0 0 0; #X connect 5 0 0 0; #X connect 7 0 0 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 0 0; #X connect 12 0 14 0; #X connect 14 0 0 0; #X restore 521 162 pd programs; #X text 637 131 VST parameters; #X text 638 162 VST programs; #X text 134 53 http://grrrr.org; #X text 589 196 midi messages for VST synths; #X msg 269 316 subplug AudioTrack; #X obj 249 441 s \$0-vst; #X msg 269 401 getsubplug; #X obj 26 135 vst~ 2 2 @pnames 100; #X msg 249 283 getpluglist; #X text 585 254 sequencer stuff; #X text 133 14 VST plugins for PD \, (C)2003-2005 Thomas Grill; #X msg 269 341 subplug X-Noise; #N canvas 0 0 466 316 out 0; #X obj 79 164 *~; #X obj 79 194 dac~ 1 2 3 4; #X obj 109 164 *~; #X obj 139 164 *~; #X obj 169 164 *~; #X obj 266 26 inlet; #X obj 49 26 inlet~; #X obj 102 26 inlet~; #X obj 154 26 inlet~; #X obj 206 26 inlet~; #X obj 265 108 line~; #X msg 266 82 \$1 1 20; #X connect 0 0 1 0; #X connect 2 0 1 1; #X connect 3 0 1 2; #X connect 4 0 1 3; #X connect 5 0 11 0; #X connect 6 0 0 0; #X connect 7 0 2 0; #X connect 8 0 3 0; #X connect 9 0 4 0; #X connect 10 0 4 1; #X connect 10 0 3 1; #X connect 10 0 2 1; #X connect 10 0 0 1; #X connect 11 0 10 0; #X restore 26 192 pd out; #X obj 72 175 hsl 128 15 0.001 1 1 1 empty empty gain -2 -6 0 8 -261689 -1 -1 6400 1; #N canvas 105 36 494 651 seq 0; #X obj 17 225 s \$0-vst; #X msg 112 78 samplepos \$1; #X obj 111 60 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 224 77 getsamplepos; #X obj 111 108 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 112 126 ppqpos \$1; #X msg 199 127 getppqpos; #X obj 111 153 nbx 5 14 5 400 0 1 empty empty empty 0 -6 0 10 -225271 -1 -1 120 256; #X msg 112 171 tempo \$1; #X msg 199 172 gettempo; #X msg 113 28 playing \$1; #X msg 203 28 getplaying; #X obj 112 -1 tgl 25 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1 ; #X obj 109 218 tgl 25 0 empty empty empty 0 -6 0 8 -225271 -1 -1 0 1; #X msg 110 247 looping \$1; #X msg 200 247 getlooping; #X obj 111 275 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 112 293 loopstart \$1; #X msg 222 293 getloopstart; #X obj 111 319 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 112 337 loopend \$1; #X msg 222 337 getloopend; #X obj 111 363 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 112 379 looplength \$1; #X msg 227 379 getlooplength; #X obj 115 521 nbx 5 14 0 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0 256; #X msg 116 537 smpteoffset \$1; #X msg 238 537 getsmpteoffset; #X msg 116 579 smpterate \$1; #X msg 230 579 getsmpterate; #X obj 116 562 hradio 15 1 0 6 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X text 230 561 24/25/24/30/29.97df/30df; #X obj 112 415 nbx 5 14 1 128 0 1 empty empty empty 0 -6 0 10 -225271 -1 -1 4 256; #X msg 113 433 timenom \$1; #X msg 205 434 gettimenom; #X obj 113 455 nbx 5 14 1 128 0 1 empty empty empty 0 -6 0 10 -225271 -1 -1 4 256; #X msg 114 473 timeden \$1; #X msg 206 474 gettimeden; #X text 300 423 time signature; #X text 302 438 nominator; #X text 302 476 denominator; #X text 284 161 tempo in quarters per minute; #X connect 1 0 0 0; #X connect 2 0 1 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 5 0 0 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 0 0; #X connect 9 0 0 0; #X connect 10 0 0 0; #X connect 11 0 0 0; #X connect 12 0 10 0; #X connect 13 0 14 0; #X connect 14 0 0 0; #X connect 15 0 0 0; #X connect 16 0 17 0; #X connect 17 0 0 0; #X connect 18 0 0 0; #X connect 19 0 20 0; #X connect 20 0 0 0; #X connect 21 0 0 0; #X connect 22 0 23 0; #X connect 23 0 0 0; #X connect 24 0 0 0; #X connect 25 0 26 0; #X connect 26 0 0 0; #X connect 27 0 0 0; #X connect 28 0 0 0; #X connect 29 0 0 0; #X connect 30 0 28 0; #X connect 32 0 33 0; #X connect 33 0 0 0; #X connect 34 0 0 0; #X connect 35 0 36 0; #X connect 36 0 0 0; #X connect 37 0 0 0; #X restore 520 256 pd seq; #X text 23 508 on the vst~ object box; #X text 24 491 you can also alt-click; #X obj 27 413 pipe 100; #X text 249 244 functions for plugin shells; #X text 247 260 (like Waves); #X msg 269 366 subplug; #X connect 0 0 44 0; #X connect 0 0 44 1; #X connect 2 0 54 0; #X connect 3 0 7 0; #X connect 4 0 7 0; #X connect 6 0 44 0; #X connect 9 0 10 0; #X connect 18 0 10 0; #X connect 19 0 20 0; #X connect 20 0 18 0; #X connect 23 0 24 0; #X connect 25 0 27 0; #X connect 27 0 26 0; #X connect 28 0 26 0; #X connect 30 0 33 0; #X connect 33 0 31 0; #X connect 34 0 31 0; #X connect 41 0 42 0; #X connect 43 0 42 0; #X connect 44 0 49 0; #X connect 44 1 49 1; #X connect 44 2 1 0; #X connect 45 0 42 0; #X connect 48 0 42 0; #X connect 50 0 49 4; #X connect 54 0 3 0; #X connect 57 0 42 0; --- help-vst~.pd DELETED ---

1 0

externals/grill/dynext/pd dyn~-help.pd, NONE, 1.1 help-dyn~.pd, 1.2, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/dynext/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15300/pd Added Files: dyn~-help.pd Removed Files: help-dyn~.pd Log Message: cached several symbols, renamed help file - strip .pd from abstraction filenames rename help file - open debug patcher on alt-click --- NEW FILE: dyn~-help.pd --- #N canvas 131 104 817 536 12; #N canvas 71 10 554 561 examples 0; #X floatatom 148 239 5 0 0 0 - - -; #X floatatom 105 304 5 0 0 0 - - -; #X floatatom 113 501 5 0 0 0 - - -; #X obj 251 273 +; #X floatatom 252 301 5 0 0 0 - - -; #X floatatom 155 423 5 0 0 0 - - -; #X floatatom 244 424 5 0 0 0 - - -; #X floatatom 306 422 5 0 0 0 - - -; #X obj 261 468 * 2; #X obj 303 469 + 1; #X floatatom 270 499 5 0 0 0 - - -; #X floatatom 256 238 5 0 0 0 - - -; #X floatatom 224 72 5 0 0 0 - - -; #X floatatom 98 136 5 0 0 0 - - -; #X floatatom 237 133 5 0 0 0 - - -; #X obj 236 107 f; #X obj 99 107 dyn~ 0 1 0 1; #X obj 106 273 dyn~ 0 2 0 1; #X obj 113 468 dyn~ 0 3 0 1; #X msg 37 36 reset \, newobj . a f \, conn 0 a 0 \, conn a 0 0; #X msg 37 197 reset \, newobj . a + \, conn 0 a 0 \, conn 1 a 1 \, conn a 0 0; #X msg 37 368 reset \, newobj . a * 2 \, newobj . b + 1 \, conn 0 a 0 \, conn 1 a 1 \, conn a 0 b 0 \, conn 2 b 1 \, conn b 0 0; #X connect 0 0 3 0; #X connect 0 0 17 1; #X connect 3 0 4 0; #X connect 5 0 8 0; #X connect 5 0 18 1; #X connect 6 0 8 1; #X connect 6 0 18 2; #X connect 7 0 9 1; #X connect 7 0 18 3; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 11 0 3 1; #X connect 11 0 17 2; #X connect 12 0 15 0; #X connect 12 0 16 1; #X connect 15 0 14 0; #X connect 16 0 13 0; #X connect 17 0 1 0; #X connect 18 0 2 0; #X connect 19 0 16 0; #X connect 20 0 17 0; #X connect 21 0 18 0; #X restore 514 459 pd examples; #X msg 127 70 reset; #X text 184 70 clear all objects and connections; #X msg 129 231 conn 0 a 0; #X text 224 230 connect dyn-inlet 0 to a-inlet 0; #X msg 129 260 conn a 0 0; #X text 224 259 connect a-outlet 0 to dyn-outlet 0; #X msg 129 293 conn x 2 y 3; #X text 234 292 connect x-outlet 2 to y-inlet 3; #X msg 129 356 del a; #X text 181 358 delete object "a"; #X obj 11 10 cnv 15 700 40 empty empty dyn~ 10 22 0 24 -260818 -1 0 ; #X msg 128 387 send a message 1; #X text 270 387 send "message 1" to a-inlet 0; #X obj 54 468 dyn~ 0 1 0 2; #X text 156 467 dyn sig/msg inlets sig/msg outlets; #X msg 165 421 vis \$1; #X obj 129 421 tgl 20 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X text 222 417 make patch visible/invisible; #X msg 129 323 dis x 2 y 3; #X text 234 324 disconnect x-outlet 2 to y-inlet 3; #X text 187 98 reload all objects (keep connections); #X msg 127 98 reload; #X text 218 432 (connections are not drawn at the moment!); #N canvas 178 192 578 434 dsp-ex 0; #X obj 73 380 dac~; #X obj 183 257 hsl 128 15 0 1000 0 0 empty empty empty -2 -6 0 8 -261681 -1 -1 0 1; #X obj 194 282 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X msg 66 78 reset; #X obj 467 323 loadbang; #X msg 466 347 \; pd dsp 1; #X text 65 56 clear all; #X obj 47 278 dyn~ 0 1 2 0; #X text 70 107 make an oscillator (left); #X text 66 167 add an oscillator (double frq \, right); #X text 24 17 signals passing through dyn~ are delayed by one block ; #X text 74 239 select frequency; #X obj 57 341 *~ 0.2; #X obj 141 340 *~ 0.2; #X obj 179 313 hsl 128 15 0.001 1 1 0 empty empty empty -2 -6 0 8 -262131 -1 -1 0 1; #X text 316 309 gain; #X msg 64 129 newobj . o1 osc~ 220 \, conn 0 o1 0 \, conn o1 0 0; #X msg 67 187 newobj . m * 1.5 \, newobj . o2 osc~ 330 \, conn 0 m 0 \, conn m 0 o2 0 \, conn o2 0 1; #X connect 1 0 2 0; #X connect 1 0 7 1; #X connect 3 0 7 0; #X connect 4 0 5 0; #X connect 7 0 12 0; #X connect 7 1 13 0; #X connect 12 0 0 0; #X connect 13 0 0 1; #X connect 14 0 12 1; #X connect 14 0 13 1; #X connect 16 0 7 0; #X connect 17 0 7 0; #X restore 514 487 pd dsp-ex; #X msg 129 156 newmsg . b Hello; #X msg 128 124 newobj . a + 1; #X text 247 124 make new object [+ 1] with name "a" in root patcher ("."); #X text 269 156 make new message object [Hello( with name "b" in root patcher; #X msg 128 200 newobj . c pd sub; #X text 273 200 make sub patcher; #X msg 432 198 newobj c d bang; #X text 561 198 make object in sub patcher; #X text 133 12 dynamic object management \, (C)2003-2005 Thomas Grill ; #X text 133 30 http://grrrr.org/ext; #X connect 1 0 14 0; #X connect 3 0 14 0; #X connect 5 0 14 0; #X connect 7 0 14 0; #X connect 9 0 14 0; #X connect 12 0 14 0; #X connect 16 0 14 0; #X connect 17 0 16 0; #X connect 19 0 14 0; #X connect 22 0 14 0; #X connect 25 0 14 0; #X connect 26 0 14 0; #X connect 29 0 14 0; #X connect 31 0 14 0; --- help-dyn~.pd DELETED ---

1 0

externals/grill/pool pool-help.pd, NONE, 1.1 help-pool.pd, 1.7, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/pool In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14897 Added Files: pool-help.pd Removed Files: help-pool.pd Log Message: better symbol handling added seti, clri rename help file preparing the release 0.1.2 - load/store empty dirs too updated help and project files - fix "cntsub" message more inlined functions --- NEW FILE: pool-help.pd --- #N canvas 4 3 943 713 12; #X msg 296 105 set 1 2 3; #X obj 238 631 print K; #X msg 607 211 getall; #X msg 296 134 set A k g; #X obj 189 660 print V; #X obj 287 605 print D; #X msg 296 164 set A l m; #X msg 297 195 set 2 34; #X msg 427 297 clr A; #X msg 429 105 get A; #X msg 429 130 get 2; #X msg 31 132 echodir \$1; #X obj 31 111 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 31 213 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 31 234 absdir \$1; #X text 426 277 clear value; #X text 425 83 get value; #X obj 336 576 print C; #X text 408 576 command; #X text 360 605 directory (abs or rel to current); #X text 264 661 data value; #X text 310 631 data key; #X msg 32 314 pool pool1; #X msg 33 343 pool; #X text 77 343 set to private; #X msg 33 405 reset; #X text 32 384 clear all pool data; #X msg 608 111 clrall; #X text 599 89 clear all values in dir; #X text 607 190 get all values in dir; #X text 175 500 pool name can be given as argument; #X text 598 136 clear all values and dirs; #X msg 606 158 clrrec; #X msg 605 258 getrec; #X text 605 236 get all values in dir and subdirs; #X text 670 289 bang at EOL; #X text 673 208 bang at EOL; #X text 670 257 depth may be given; #X text 34 291 set pool name; #X text 31 89 at each command; #X text 31 73 echo current dir; #X text 295 82 set values; #X text 26 194 (default on); #X text 18 178 report absolute dirs; #X msg 34 452 help; #X text 77 453 get some info; #X text 670 274 default=-1 (= infinite); #X msg 609 340 cntall; #X text 675 338 count all values in dir; #X msg 609 366 cntrec; #X text 677 364 ... and subdirs; #X text 673 378 (depth may be given); #N canvas 472 45 420 631 dirs 0; #X msg 111 40 mkdir fld1; #X msg 113 135 chdir; #X msg 109 331 updir; #X msg 110 468 getsub -1; #X text 112 20 make absolute dir; #X text 111 64 make relative dir; #X msg 112 85 mksub fld2; #X text 111 117 change to absolute dir; #X msg 112 178 chsub fld2; #X text 110 159 change to relative dir; #X text 105 312 change to upper dir; #X text 106 364 remove absolute dir; #X msg 107 383 rmdir fld1; #X msg 109 422 rmsub fld2; #X text 108 403 remove relative dir; #X text 108 450 get subdirs; #X text 250 494 -1 ... infinite; #X text 166 327 depth may be given; #X text 167 343 default=1; #X text 208 463 depth may be given; #X text 206 479 default=1; #X text 107 491 count subdirs; #X msg 110 512 cntsub -1; #X msg 110 572 getdir; #X text 109 552 get current dir; #X text 175 572 always absolute; #X obj 13 252 s \$0-pool; #X msg 111 231 mkchdir fld1; #X text 112 211 make and change to absolute dir; #X msg 109 276 mkchsub fld2; #X text 110 256 make and change to relative dir; #X connect 0 0 26 0; #X connect 1 0 26 0; #X connect 2 0 26 0; #X connect 3 0 26 0; #X connect 6 0 26 0; #X connect 8 0 26 0; #X connect 12 0 26 0; #X connect 13 0 26 0; #X connect 22 0 26 0; #X connect 23 0 26 0; #X connect 27 0 26 0; #X connect 29 0 26 0; #X restore 716 496 pd dirs; #X text 713 470 directory operations; #N canvas 0 22 833 465 file 0; #X text 117 207 save dir and subdirs; #X text 117 165 save data in current dir; #X text 117 253 load data into current dir; #X text 115 300 load data into current dir and below; #X text 132 340 depth (default -1) and; #X text 134 356 mkdir flag (default 1) can be given; #X text 117 37 save all; #X text 117 81 load all (add to existing data); #X text 22 12 file operations; #X obj 22 188 s \$0-pool; #X text 473 209 save dir and subdirs; #X text 473 167 save data in current dir; #X text 473 255 load data into current dir; #X text 471 302 load data into current dir and below; #X text 488 342 depth (default -1) and; #X text 490 358 mkdir flag (default 1) can be given; #X text 473 39 save all; #X text 473 83 load all (add to existing data); #X obj 378 190 s \$0-pool; #X text 444 12 XML format; #X msg 120 54 save pool.dat; #X msg 118 100 load pool.dat; #X msg 117 184 svdir pool.dat; #X msg 117 226 svrec pool.dat; #X msg 116 272 lddir pool.dat; #X msg 116 319 ldrec pool.dat; #X msg 476 56 savex pool.xml; #X msg 474 102 loadx pool.xml; #X msg 473 186 svxdir pool.xml; #X msg 473 228 svxrec pool.xml; #X msg 472 274 ldxdir pool.xml; #X msg 472 321 ldxrec pool.xml; #X text 26 398 If the file name is given without a path specification the folder containing the current patcher will be used.; #X connect 20 0 9 0; #X connect 21 0 9 0; #X connect 22 0 9 0; #X connect 23 0 9 0; #X connect 24 0 9 0; #X connect 25 0 9 0; #X connect 26 0 18 0; #X connect 27 0 18 0; #X connect 28 0 18 0; #X connect 29 0 18 0; #X connect 30 0 18 0; #X connect 31 0 18 0; #X restore 717 551 pd file; #X text 715 528 file operations; #X text 715 585 clipboard operations; #N canvas 0 22 545 593 clip 0; #X text 97 56 copy value associated to key into clipboard; #X msg 100 77 copy A; #X msg 98 119 cut B; #X text 96 101 cut value associated to key into clipboard; #X msg 96 401 paste; #X msg 98 179 copyall; #X text 95 158 copy all values in current dir into clipboard; #X msg 97 221 cutall; #X text 95 201 cut all values in current dir into clipboard; #X text 94 263 copy all values in current dir into clipboard; #X text 94 306 cut all values in current dir into clipboard; #X msg 97 284 copyrec; #X text 194 285 depth may be given (default=-1); #X text 193 326 depth may be given (default=-1); #X msg 96 326 cutrec 1; #X text 194 345 1..only with first level subdirs; #X text 96 379 paste clipboard contents into current directory; #X text 167 397 depth (default -1) and; #X text 169 413 mkdir flag (default 1) can be given; #X text 183 448 depth (default -1) and; #X text 185 466 mkdir flag (default 1) can be given; #X msg 95 453 pasteadd; #X text 95 431 paste but don't replace; #X msg 94 521 clrclip; #X text 171 520 clear clipboard (free memory); #X text 22 12 clipboard operations (this is an internal clipboard...) ; #X obj 4 193 s \$0-pool; #X connect 1 0 26 0; #X connect 2 0 26 0; #X connect 4 0 26 0; #X connect 5 0 26 0; #X connect 7 0 26 0; #X connect 11 0 26 0; #X connect 14 0 26 0; #X connect 21 0 26 0; #X connect 23 0 26 0; #X restore 716 606 pd clip; #X text 715 439 more commands:; #X obj 237 444 r \$0-pool; #X text 174 517 data is shared among pool objects with the same name ; #X obj 26 10 cnv 15 850 45 empty empty pool 10 22 0 24 -260818 -1 0 ; #X obj 386 553 print A; #X text 458 552 attributes; #X msg 34 490 getattributes; #X msg 139 132 getechodir; #X msg 130 234 getabsdir; #X msg 141 314 getpool; #X msg 297 345 add 2 14; #X obj 260 478 pool @valcnt 10 @dircnt 5; #X text 330 437 expected value and directory counts; #X text 330 452 can be given for optimal performance; #X msg 429 155 get 3; #X msg 295 222 set 3 -1 1; #X msg 32 518 getmethods; #X text 328 466 (see attributes in properties dialog); #X text 715 638 console printout; #N canvas 0 22 612 291 print 0; #X obj 21 231 s \$0-pool; #X msg 109 80 printall; #X msg 109 132 printrec; #X text 110 60 print all values in dir; #X text 109 112 print values in dir and subdirs; #X text 190 133 (depth may be given); #X text 22 12 print-to-console operations; #X text 201 183 (depth may be given); #X msg 109 181 printroot; #X text 109 161 print values in dir and subdirs (starting from root) ; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 8 0 0 0; #X restore 717 659 pd print; #X text 272 13 a hierarchical storage object \, (C)2002-2004 Thomas Grill; #X text 272 33 http://grrrr.org; #X msg 428 225 geti \$1; #X text 426 185 get indexed element; #X obj 427 205 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X text 297 323 set but don't replace; #X text 294 256 set value at index; #X msg 295 276 seti 3 Uhu; #X text 424 343 clear value at index; #X msg 425 363 clri 2; #X connect 0 0 69 0; #X connect 2 0 69 0; #X connect 3 0 69 0; #X connect 6 0 69 0; #X connect 7 0 69 0; #X connect 8 0 69 0; #X connect 9 0 69 0; #X connect 10 0 69 0; #X connect 11 0 69 0; #X connect 12 0 11 0; #X connect 13 0 14 0; #X connect 14 0 69 0; #X connect 22 0 69 0; #X connect 23 0 69 0; #X connect 25 0 69 0; #X connect 27 0 69 0; #X connect 32 0 69 0; #X connect 33 0 69 0; #X connect 44 0 69 0; #X connect 47 0 69 0; #X connect 49 0 69 0; #X connect 59 0 69 0; #X connect 64 0 69 0; #X connect 65 0 69 0; #X connect 66 0 69 0; #X connect 67 0 69 0; #X connect 68 0 69 0; #X connect 69 0 4 0; #X connect 69 1 1 0; #X connect 69 2 5 0; #X connect 69 3 17 0; #X connect 69 4 62 0; #X connect 72 0 69 0; #X connect 73 0 69 0; #X connect 74 0 69 0; #X connect 80 0 69 0; #X connect 82 0 80 0; #X connect 85 0 69 0; #X connect 87 0 69 0; --- help-pool.pd DELETED ---

1 0

externals/grill/delsplit delsplit-help.pd, NONE, 1.1 help-delsplit.pd, 1.1, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/delsplit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14732 Added Files: delsplit-help.pd Removed Files: help-delsplit.pd Log Message: rename help file more fixes --- help-delsplit.pd DELETED --- --- NEW FILE: delsplit-help.pd --- #N canvas 300 90 458 286 12; #X msg 264 133 symbol -; #X msg 232 57 list; #X msg 242 84 list +; #X obj 105 229 print; #X obj 43 69 tosymbol; #X msg 42 42 ask+asd-ssds; #X symbolatom 251 111 10 0 0 0 - - -; #X obj 105 203 delsplit; #X text 273 54 space; #X connect 0 0 7 1; #X connect 1 0 7 1; #X connect 2 0 7 1; #X connect 4 0 7 0; #X connect 5 0 4 0; #X connect 6 0 7 1; #X connect 7 0 3 0;

1 0

[PD-cvs] externals/grill/deljoin deljoin-help.pd, NONE, 1.1 main.cpp, 1.6, 1.7 help-deljoin.pd, 1.1, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/deljoin In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14614 Modified Files: main.cpp Added Files: deljoin-help.pd Removed Files: help-deljoin.pd Log Message: fixed integer representation rename help file more fixes Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/deljoin/main.cpp,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** main.cpp 7 Apr 2005 14:57:01 -0000 1.6 --- main.cpp 11 Aug 2005 15:02:40 -0000 1.7 *************** *** 131,139 **** if(IsSymbol(a)) strcpy(t,GetString(a)); ! else if(IsInt(a)) { ! STD::sprintf(t,"%i",GetInt(a),10); ! } ! else if(IsFloat(a)) { ! STD::sprintf(t,"%f",GetFloat(a),10); } // else do nothing --- 131,141 ---- if(IsSymbol(a)) strcpy(t,GetString(a)); ! else if(CanbeFloat(a)) { ! const float f = GetAFloat(a); ! const int fi = (int)f; ! if(f == fi) ! STD::sprintf(t,"%i",fi,10); ! else ! STD::sprintf(t,"%f",f,10); } // else do nothing --- NEW FILE: deljoin-help.pd --- #N canvas 300 90 462 290 12; #X msg 247 89 symbol -; #X msg 232 62 list; #X msg 259 115 list +; #X obj 105 229 print; #X symbolatom 266 143 10 0 0 0 - - -; #X msg 44 66 a b c d e f; #X msg 217 34 0; #X obj 105 203 deljoin 0; #X text 254 21 no delimiter; #X text 272 62 space; #X msg 208 11 bang; #X connect 0 0 7 1; #X connect 1 0 7 1; #X connect 2 0 7 1; #X connect 4 0 7 1; #X connect 5 0 7 0; #X connect 6 0 7 1; #X connect 7 0 3 0; #X connect 10 0 7 1; --- help-deljoin.pd DELETED ---

1 0

externals/grill/xsample/source groove.cpp, 1.32, 1.33 main.cpp, 1.20, 1.21 main.h, 1.36, 1.37
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/xsample/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14403/source Modified Files: groove.cpp main.cpp main.h Log Message: merge in branch "20041229-unify" Mac adaptations some safety for settings cross-fading loop zone now functional update for new flext callback naming more loop zone optimizations enhanced PD help files simplified and bug-fixed crossfade-zone sampling rename help file fix: loopmodes 0 and 2 now setting loopzone parameters 64 bit fixes minor updates *** empty log message *** more fixes fix for OSX 10.4.1 (thanks to Jamie) renamed help files more fixes and cleanups for fade-zones Index: groove.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/groove.cpp,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** groove.cpp 13 Mar 2005 04:58:28 -0000 1.32 --- groove.cpp 11 Aug 2005 15:01:42 -0000 1.33 *************** *** 57,60 **** --- 57,61 ---- void ms_xfade(int xf) { + if(xf < 0 || xf > xsf_inside) xf = xsf_keeplooppos; xfade = (xs_fade)xf; Update(xsc_fade,true); *************** *** 264,267 **** --- 265,270 ---- void xgroove::ms_xshape(int sh) { + if(sh < 0 || sh > xss_hsine) sh = xss_lin; + xshape = (xs_shape)sh; switch(xshape) { Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/main.cpp,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** main.cpp 13 Mar 2005 04:58:29 -0000 1.20 --- main.cpp 11 Aug 2005 15:01:42 -0000 1.21 *************** *** 57,61 **** #endif sclmode(xss_unitsinbuf), ! curmin(0),curmax(1<<(sizeof(curmax)*8-2)) {} --- 57,61 ---- #endif sclmode(xss_unitsinbuf), ! curmin(0),curmax(1L<<(sizeof(curmax)*8-2)) {} Index: main.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/xsample/source/main.h,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** main.h 30 Jul 2005 22:08:53 -0000 1.36 --- main.h 11 Aug 2005 15:01:42 -0000 1.37 *************** *** 16,20 **** #endif ! #define XSAMPLE_VERSION "0.3.1pre6" --- 16,20 ---- #endif ! #define XSAMPLE_VERSION "0.3.1pre7"

1 0

externals/grill/xsample/pd xgroove~-help.pd, NONE, 1.1 xplay~-help.pd, NONE, 1.1 xrecord~-help.pd, NONE, 1.1 help-xgroove~.pd, 1.1, NONE help-xplay~.pd, 1.1, NONE help-xrecord~.pd, 1.1, NONE
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/xsample/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14403/pd Added Files: xgroove~-help.pd xplay~-help.pd xrecord~-help.pd Removed Files: help-xgroove~.pd help-xplay~.pd help-xrecord~.pd Log Message: merge in branch "20041229-unify" Mac adaptations some safety for settings cross-fading loop zone now functional update for new flext callback naming more loop zone optimizations enhanced PD help files simplified and bug-fixed crossfade-zone sampling rename help file fix: loopmodes 0 and 2 now setting loopzone parameters 64 bit fixes minor updates *** empty log message *** more fixes fix for OSX 10.4.1 (thanks to Jamie) renamed help files more fixes and cleanups for fade-zones --- NEW FILE: xgroove~-help.pd --- #N canvas 69 62 945 610 12; #X obj 215 253 hsl 128 15 0.001 3 1 1 empty empty speed 0 -8 0 10 -225271 -1 -1 5000 1; #X msg 603 169 loop \$1; #X obj 28 72 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1 -1; #X msg 27 92 stop; #N canvas 0 0 450 300 graph7 0; #X array \$0-buf 10000 float 0; #X coords 0 1 9999 -1 300 150 1; #X restore 573 269 graph; #X obj 17 556 dac~; #X msg 120 73 reset; #X text 299 321 min/max points; #X text 50 69 start; #X text 67 90 stop; #X msg 119 99 help; #X text 280 269 (float or signal); #X msg 749 167 interp \$1; #X msg 237 305 all; #X text 747 94 interpolation; #X text 622 116 once; #X text 768 116 none; #X text 768 148 linear; #X text 224 75 units; #X msg 225 163 units \$1; #X msg 358 163 sclmode \$1; #X text 244 127 ms; #X text 244 142 s; #X text 377 127 buffer; #X text 377 142 loop; #X obj 487 208 bng 15 250 50 0 empty empty empty 0 -6 0 8 -228992 -1 -1; #X obj 335 349 print A; #N canvas 0 0 450 300 graph2 0; #X array \$0-scp 300 float 0; #X coords 0 1 299 -1 300 100 1; #X restore 573 447 graph; #X obj 26 525 *~; #X obj 82 491 hsl 128 15 0.0001 1 1 0 empty empty volume -2 -6 0 8 -261689 -1 -1 0 1; #X obj 79 509 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -261689 -1 -1 0.0001 256; #X msg 25 249 pos \$1; #X msg 63 220 200; #X msg 25 221 100; #X obj 507 209 nbx 5 14 0 1e+037 0 1 empty empty frq 0 -6 0 10 -228992 -1 -1 220 256; #N canvas 19 334 427 333 loopzone 0; #X msg 28 84 xzone \$1; #X obj 31 43 hsl 128 15 0 300 0 0 empty empty empty -2 -6 0 8 -262131 -1 -1 0 1; #X floatatom 28 64 5 0 0 0 - - -; #X msg 203 207 xfade \$1; #X obj 203 142 vdl 15 0 0 4 empty empty empty 0 -6 0 8 -262144 -1 -1 0; #X text 202 123 loop zone mode; #X text 222 141 keep loop pos; #X text 222 157 keep loop length; #X text 222 173 keep fade length; #X msg 47 205 xshape \$1; #X obj 48 155 vdl 15 0 0 3 empty empty empty 0 -6 0 8 -262144 -1 -1 0; #X text 45 133 fade zone shape; #X text 67 152 linear; #X text 67 168 quarter sine; #X text 67 184 half sine; #X text 125 67 length of the loop zone; #X text 123 84 (in units); #X text 222 188 zone inside loop; #X text 21 9 xgroove~ crossfading loop zone; #X obj 27 255 s to-g; #X connect 0 0 19 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 19 0; #X connect 4 0 3 0; #X connect 9 0 19 0; #X connect 10 0 9 0; #X restore 23 414 pd loopzone; #X text 64 147 set buffer; #X text 23 383 settings for; #X text 22 395 cross-fading loop zone; #X text 399 349 print attributes; #X obj 357 394 bng 15 250 50 0 empty empty loop_bang 0 -6 0 8 -262131 -1 -1; #X text 357 60 scale mode; #X text 354 75 (pos message and position outlet); #X text 622 148 bidirectional; #X text 244 111 buffer size; #X obj 574 419 hsl 300 15 0 10000 0 0 empty bufpos empty -2 -6 0 8 -262144 -1 -1 10628 1; #X obj 236 527 nbx 5 14 -1e+037 1e+037 0 0 empty empty position 0 -6 0 10 -228992 -1 -1 3554.44 256; #N canvas 0 0 474 324 watch 0; #X obj 163 18 loadbang; #X obj 88 80 snapshot~; #X obj 164 44 metro 50; #X obj 143 109 s bufpos; #X obj 176 196 outlet; #X obj 22 14 inlet~; #X obj 88 14 inlet~; #X obj 22 196 tabwrite~ \$0-scp; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 1 0 4 0; #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 2 0 7 0; #X connect 5 0 7 0; #X connect 6 0 1 0; #X restore 235 492 pd watch; #X text 377 111 units in loop; #N canvas 97 34 266 202 genosc 0; #X obj 38 29 inlet; #X obj 64 94 osc~ 1000; #X obj 38 54 route bang; #X obj 37 134 tabwrite~ \$0-buf; #X obj 158 94 loadbang; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 2 0 3 0; #X connect 2 1 1 0; #X connect 4 0 3 0; #X restore 487 229 pd genosc; #X text 600 97 loop mode; #X text 23 201 set position; #X obj 299 426 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -262131 -1 -1 1004 256; #X obj 356 426 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -262131 -1 -1 8996 256; #X obj 298 309 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -225271 -1 -1 1004 256; #X obj 355 309 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -225271 -1 -1 8996 256; #X text 244 95 frames (def.); #X text 377 96 units in buffer (def.); #X text 622 132 forward (def.); #X text 768 132 4-point (def.); #N canvas 12 194 490 407 attributes 0; #X msg 82 74 getattributes; #X msg 138 133 getmax; #X msg 81 133 getmin; #X text 198 75 dump all attributes; #X text 200 135 get min/max positions; #X msg 82 105 getbuffer; #X msg 80 162 getpos; #X text 140 162 get current position; #X text 167 105 get buffer name; #X msg 79 251 getloop; #X msg 79 276 getinterp; #X text 147 251 get loop mode; #X text 160 276 get interpolation mode; #X msg 79 197 getunits; #X text 152 197 get unit setting; #X msg 79 222 getsclmode; #X text 170 222 get scale mode; #X msg 79 315 getxfade; #X msg 78 365 getxshape; #X text 157 315 get crossfade mode; #X msg 79 340 getxzone; #X text 154 340 get crossfade length; #X text 156 367 get crossfade shape; #X text 19 12 xgroove~ attributes; #X obj 19 195 s to-g; #X msg 82 49 getmethods; #X text 174 49 dump all methods; #X connect 0 0 24 0; #X connect 1 0 24 0; #X connect 2 0 24 0; #X connect 5 0 24 0; #X connect 6 0 24 0; #X connect 9 0 24 0; #X connect 10 0 24 0; #X connect 13 0 24 0; #X connect 15 0 24 0; #X connect 17 0 24 0; #X connect 18 0 24 0; #X connect 20 0 24 0; #X connect 25 0 24 0; #X restore 24 343 pd attributes; #X text 23 324 attribute stuff; #X text 484 177 generate; #X obj 26 10 cnv 15 850 40 empty empty xgroove~ 10 22 0 24 -260818 -1 0; #X msg 105 221 1000; #X msg 96 249 posmod \$1; #X text 146 227 modulo; #X text 301 439 min/max points; #X text 299 454 (sample rounded); #X obj 603 120 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X obj 749 119 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X obj 225 99 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X obj 358 99 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X obj 65 164 s to-g; #X obj 298 197 s to-g; #X obj 61 278 s to-g; #X obj 180 304 r to-g; #X obj 704 201 s to-g; #X obj 191 349 xgroove~ \$0-buf; #X text 227 29 http://grrrr.org/ext; #X obj 79 550 line~; #X msg 79 527 \$1 50; #X obj 212 271 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -225271 -1 -1 0.0233854 256; #X text 227 10 varispeed sample player \, (C)2001-2005 Thomas Grill ; #X connect 0 0 82 0; #X connect 1 0 77 0; #X connect 2 0 73 0; #X connect 3 0 73 0; #X connect 6 0 73 0; #X connect 10 0 73 0; #X connect 12 0 77 0; #X connect 13 0 78 0; #X connect 19 0 74 0; #X connect 20 0 74 0; #X connect 25 0 49 0; #X connect 28 0 5 0; #X connect 28 0 5 1; #X connect 29 0 30 0; #X connect 30 0 81 0; #X connect 31 0 75 0; #X connect 32 0 31 0; #X connect 33 0 31 0; #X connect 34 0 49 0; #X connect 47 0 46 0; #X connect 54 0 78 1; #X connect 55 0 78 2; #X connect 64 0 65 0; #X connect 65 0 75 0; #X connect 69 0 1 0; #X connect 70 0 12 0; #X connect 71 0 19 0; #X connect 72 0 20 0; #X connect 76 0 78 0; #X connect 78 0 28 0; #X connect 78 0 47 0; #X connect 78 1 47 1; #X connect 78 2 52 0; #X connect 78 3 53 0; #X connect 78 4 40 0; #X connect 78 5 26 0; #X connect 80 0 28 1; #X connect 81 0 80 0; #X connect 82 0 78 0; --- help-xplay~.pd DELETED --- --- help-xgroove~.pd DELETED --- --- NEW FILE: xplay~-help.pd --- #N canvas 165 149 716 444 12; #X obj 21 75 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1 -1; #X msg 21 95 stop; #X msg 107 99 reset; #X text 43 72 start; #X text 60 93 stop; #X obj 159 217 *~ 300; #X text 161 239 position signal; #X msg 107 75 help; #N canvas 0 0 450 300 graph7 0; #X array \$0-buf 300 float 1; #A 0 -0.445589 -0.568192 -0.679282 -0.776596 -0.858191 -0.922374 -0.967874 -0.99377 -0.999505 -0.985009 -0.950534 -0.896801 -0.824907 -0.736274 -0.632737 -0.516371 -0.38954 -0.254823 -0.114932 0.0272834 0.168947 0.307184 0.439204 0.562312 0.674031 0.772096 0.854499 0.919606 0.966059 0.992941 0.999714 0.986201 0.952726 0.899931 0.8289 0.741087 0.638231 0.522457 0.396092 0.261698 0.122005 -0.0201642 -0.161923 -0.300402 -0.432789 -0.556415 -0.668753 -0.767544 -0.85079 -0.916775 -0.964202 -0.992074 -0.999845 -0.987371 -0.954858 -0.903018 -0.832869 -0.74584 -0.643712 -0.528517 -0.402624 -0.268571 -0.129073 0.013039 0.154887 0.293596 0.426359 0.550472 0.663443 0.762958 0.847014 0.913919 0.962278 0.991158 0.999942 0.988459 0.956966 0.906048 0.836789 0.75057 0.649134 0.534557 0.409131 0.275422 0.136132 -0.00591801 -0.147849 -0.286781 -0.419902 -0.544521 -0.658091 -0.758339 -0.84321 -0.910993 -0.960333 -0.990181 -0.999986 -0.989519 -0.958993 -0.909055 -0.840666 -0.755257 -0.654544 -0.540557 -0.415628 -0.282266 -0.143188 -0.00120819 0.140795 0.279949 0.413425 0.538524 0.652719 0.753668 0.83936 0.908035 0.958306 0.989179 0.999971 0.99052 0.960994 0.911984 0.844512 0.759903 0.659907 0.54654 0.422089 0.289093 0.150232 0.00832932 -0.133744 -0.273102 -0.406932 -0.532511 -0.647298 -0.748981 -0.835462 -0.90503 -0.956253 -0.988091 -0.999927 -0.991469 -0.962937 -0.914892 -0.848294 -0.764525 -0.665244 -0.55249 -0.428544 -0.295904 -0.157275 -0.015455 0.126676 0.266245 0.400409 0.526467 0.641853 0.744228 0.831539 0.901971 0.954143 0.986978 0.999801 0.992384 0.96483 0.917738 0.852053 0.769085 0.67055 0.558412 0.434962 0.302703 0.164301 0.0225751 -0.11961 -0.25937 -0.393881 -0.520396 -0.636376 -0.739458 -0.827548 -0.898887 -0.951984 -0.985804 -0.99965 -0.993222 -0.966689 -0.920545 -0.855754 -0.773631 -0.675811 -0.564313 -0.441369 -0.309483 -0.171329 -0.0296987 0.112532 0.252482 0.387314 0.514306 0.63086 0.73464 0.823534 0.895727 0.94979 0.984581 0.999431 0.994035 0.968475 0.92331 0.859418 0.778115 0.681053 0.570172 0.447749 0.316248 0.178338 0.0368166 -0.105453 -0.245585 -0.380741 -0.508177 -0.625327 -0.729788 -0.819469 -0.892548 -0.947524 -0.98332 -0.999169 -0.994777 -0.970238 -0.926013 -0.863044 -0.782573 -0.686245 -0.576021 -0.454107 -0.323001 -0.185347 -0.0439363 0.0983649 0.23867 0.374141 0.502032 0.619741 0.724906 0.815363 0.889305 0.945234 0.981988 0.998863 0.99548 0.971926 0.928692 0.866611 0.786989 0.69141 0.581818 0.460448 0.32973 0.19234 0.0510499 -0.0912742 -0.231752 -0.367527 -0.495857 -0.614144 -0.719972 -0.811227 -0.886027 -0.942877 -0.980632 -0.998489 -0.996135 -0.973581 -0.931298 -0.87016 -0.79136 -0.696541 -0.587603 -0.466754 -0.336455 -0.199327 -0.0581653 0.0841763 0.22481 0.360894 0.489656 0.608499 0.715018 0.80703 0.882706 0.940481 0.979199 0.998091 0.996726 0.975184 0.933873 0.873632 0.795706; #X coords 0 1 299 -1 300 200 1; #X restore 370 80 graph; #X obj 162 174 hsl 128 15 1 100 1 1 empty empty speed 0 -8 0 10 -225271 -1 -1 9300 1; #X msg 107 123 print; #X obj 159 194 phasor~ 100; #X obj 180 311 print A; #X obj 37 389 dac~; #X obj 46 358 *~; #X obj 87 360 hsl 128 15 0.0001 1 1 0 empty empty volume -2 -6 0 8 -261689 -1 -1 0 1; #X obj 84 378 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0 10 -261689 -1 -1 0 256; #X obj 21 10 cnv 15 650 40 empty empty xplay~ 10 22 0 24 -260818 -1 0; #N canvas 0 0 450 300 graph2 0; #X array \$0-scp 300 float 0; #X coords 0 1 299 -1 300 100 1; #X restore 370 294 graph; #N canvas 0 0 265 143 watch 0; #X obj 100 13 loadbang; #X obj 101 39 metro 50; #X obj 22 14 inlet~; #X obj 22 94 tabwrite~ \$0-scp; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 3 0; #X restore 90 310 pd watch; #N canvas 33 327 454 231 attributes 0; #X msg 85 60 getattributes; #X obj 22 181 s to; #X text 203 61 dump all attributes; #X msg 85 91 getbuffer; #X text 170 91 get buffer name; #X msg 84 186 getinterp; #X text 165 186 get interpolation mode; #X msg 85 130 getunits; #X text 158 130 get unit setting; #X msg 85 155 getsclmode; #X text 176 155 get scale mode; #X text 21 15 xplay~ attributes; #X connect 0 0 1 0; #X connect 3 0 1 0; #X connect 5 0 1 0; #X connect 7 0 1 0; #X connect 9 0 1 0; #X restore 22 210 pd attributes; #X text 21 192 attributes; #X obj 21 154 s to-p; #X obj 21 250 r to-p; #X obj 81 280 xplay~ \$0-buf; #X text 180 29 http://grrrr.org/ext; #X text 179 11 buffer-based sample player \, (C)2001-2005 Thomas Grill ; #X connect 0 0 22 0; #X connect 1 0 22 0; #X connect 2 0 22 0; #X connect 5 0 24 0; #X connect 7 0 22 0; #X connect 9 0 11 0; #X connect 10 0 22 0; #X connect 11 0 5 0; #X connect 14 0 13 0; #X connect 14 0 13 1; #X connect 15 0 16 0; #X connect 16 0 14 1; #X connect 23 0 24 0; #X connect 24 0 14 0; #X connect 24 0 19 0; #X connect 24 1 12 0; --- help-xrecord~.pd DELETED --- --- NEW FILE: xrecord~-help.pd --- #N canvas 58 17 877 659 12; #X obj 18 83 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1 -1; #X msg 17 103 stop; #N canvas 0 0 450 300 graph7 0; #X array \$0-buf 10000 float 0; #X coords 0 1 9999 -1 200 140 1; #X restore 61 477 graph; #X msg 15 137 reset; #X obj 74 355 snapshot~; #X floatatom 76 380 7 0 0 0 - - -; #X obj 22 288 loadbang; #X msg 14 167 help; #X obj 179 164 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1; #X msg 197 161 loop \$1; #X msg 177 104 0; #X msg 213 104 200; #X msg 176 132 draw \$1; #X obj 427 332 bng 15 250 50 0 empty empty empty 20 8 0 8 -258699 -1 -1; #X msg 426 352 stop; #X msg 425 391 reset; #X obj 516 575 snapshot~; #X floatatom 516 605 7 0 0 0 - - -; #X obj 427 503 loadbang; #X obj 553 299 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1; #X msg 572 296 loop \$1; #X msg 468 263 0; #X msg 467 291 draw \$1; #X obj 554 322 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1; #X msg 572 320 sigmode \$1; #X msg 425 417 print; #X obj 579 425 hsl 128 15 -0.001 1 0 1 empty empty empty 20 8 0 8 -225271 -1 -1 2800 1; #X msg 601 347 mixmode \$1; #X floatatom 645 443 8 0 0 0 - - -; #X obj 427 530 metro 30; #X obj 22 315 metro 30; #X obj 681 86 osc~ 10; #X obj 90 146 r~ rec; #X obj 498 396 r~ rec; #X obj 667 149 s~ rec; #X obj 664 113 *~ 1; #X obj 663 90 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 1 1 ; #X obj 760 115 *~ 1; #X obj 759 92 tgl 15 0 empty empty empty 20 8 0 8 -225271 -1 -1 0 1 ; #X obj 777 88 adc~; #X text 266 164 looping on/off; #X text 241 133 display refresh; #X text 56 81 start; #X text 57 103 stop; #X text 30 338 position signal; #X text 635 295 looping on/off; #X text 660 321 signal mode on/off; #X text 714 436 trigger signal; #X text 383 189 <----- message triggered; #X text 187 439 signal triggered ------->; #X text 509 242 click to activate auto update; #X text 448 328 start; #X text 466 352 stop; #X msg 152 239 all; #X msg 504 263 100; #X obj 554 497 line~; #X msg 554 472 \$1 20; #X msg 13 203 getattributes; #X obj 236 281 print A; #X msg 14 231 getbuffer; #X obj 583 116 *~ 1; #X obj 582 93 tgl 15 1 empty empty empty 20 8 0 8 -225271 -1 -1 0 1 ; #X obj 602 89 noise~; #X obj 554 349 hradio 15 1 0 3 empty empty empty 0 -6 0 8 -225271 -1 -1 0; #X text 575 366 mixmode (off \, mix-in \, add); #X text 582 396 by the trigger signal; #X text 581 383 the amount of mixing-in is given; #X obj 95 280 xrecord~ \$0-buf; #X obj 516 529 xrecord~ \$0-buf; #X obj 18 12 cnv 15 800 40 empty empty xrecord~ 10 22 0 24 -260818 -1 0; #X text 202 253 min/max points; #X obj 201 241 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -225271 -1 -1 0 256; #X obj 258 241 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -225271 -1 -1 10002 256; #X obj 190 365 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -262131 -1 -1 0 256; #X obj 247 365 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -262131 -1 -1 10000 256; #X text 192 378 min/max points; #X obj 224 321 bng 15 250 50 0 empty empty loop_bang 0 -6 0 8 -262131 -1 -1; #X text 294 284 print attributes; #X obj 617 574 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -262131 -1 -1 0 256; #X obj 674 574 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -262131 -1 -1 10000 256; #X obj 618 500 nbx 5 14 0 1e+037 0 1 empty empty min 0 -6 0 10 -225271 -1 -1 0 256; #X obj 675 500 nbx 5 14 0 1e+037 0 1 empty empty max 0 -6 0 10 -225271 -1 -1 10000 256; #X text 224 31 http://grrrr.org/ext; #X text 224 12 buffer-based signal recorder \, (C)2001-2005 Thomas Grill; #X connect 0 0 67 0; #X connect 1 0 67 0; #X connect 3 0 67 0; #X connect 4 0 5 0; #X connect 6 0 30 0; #X connect 7 0 67 0; #X connect 8 0 9 0; #X connect 9 0 67 0; #X connect 10 0 12 0; #X connect 11 0 12 0; #X connect 12 0 67 0; #X connect 13 0 68 0; #X connect 14 0 68 0; #X connect 15 0 68 0; #X connect 16 0 17 0; #X connect 18 0 29 0; #X connect 19 0 20 0; #X connect 20 0 68 0; #X connect 21 0 22 0; #X connect 22 0 68 0; #X connect 23 0 24 0; #X connect 24 0 68 0; #X connect 25 0 68 0; #X connect 26 0 28 0; #X connect 26 0 56 0; #X connect 27 0 68 0; #X connect 29 0 16 0; #X connect 30 0 4 0; #X connect 31 0 35 0; #X connect 32 0 67 0; #X connect 33 0 68 0; #X connect 35 0 34 0; #X connect 36 0 35 1; #X connect 37 0 34 0; #X connect 38 0 37 1; #X connect 39 0 37 0; #X connect 39 1 37 0; #X connect 53 0 67 0; #X connect 54 0 22 0; #X connect 55 0 68 1; #X connect 56 0 55 0; #X connect 57 0 67 0; #X connect 59 0 67 0; #X connect 60 0 34 0; #X connect 61 0 60 1; #X connect 62 0 60 0; #X connect 63 0 27 0; #X connect 67 0 4 0; #X connect 67 1 73 0; #X connect 67 2 74 0; #X connect 67 3 76 0; #X connect 67 4 58 0; #X connect 68 0 16 0; #X connect 68 1 78 0; #X connect 68 2 79 0; #X connect 71 0 67 2; #X connect 72 0 67 3; #X connect 80 0 68 2; #X connect 81 0 68 3;

1 0

externals/grill/py/source py.cpp, 1.33, 1.34 pyargs.cpp, 1.22, 1.23 pybase.cpp, 1.7, 1.8 pybase.h, 1.7, 1.8 pymeth.cpp, 1.5, 1.6
by Thomas Grill 11 Aug '05

11 Aug '05

Update of /cvsroot/pure-data/externals/grill/py/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14249/source Modified Files: py.cpp pyargs.cpp pybase.cpp pybase.h pymeth.cpp Log Message: oops, include libraries for editing the scripts some optimizations and py reload fix open editor for module file on "edit" message (or click) open editor for script under OS X added cygwin support Index: pybase.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/py/source/pybase.h,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** pybase.h 1 Aug 2005 11:58:01 -0000 1.7 --- pybase.h 11 Aug 2005 15:00:58 -0000 1.8 *************** *** 54,58 **** void AddCurrentPath(flext_base *o); void GetModulePath(const char *mod,char *dir,int len); - void AddToPath(const char *dir); void SetArgs(); --- 54,57 ---- *************** *** 149,153 **** } - // virtual bool thrcall(void *data) = 0; virtual void callpy(PyObject *fun,PyObject *args) = 0; --- 148,151 ---- *************** *** 169,177 **** static ThrCond qucond; static PyThreadState *pythrsys; - - static PyThreadState *FindThreadState(); - static void FreeThreadState(); - #else - static PyThreadState *FindThreadState() { return NULL; } #endif --- 167,170 ---- *************** *** 183,190 **** public: #ifdef FLEXT_THREADS ! ThrMutex mutex; ! inline void Lock() { mutex.Unlock(); } ! inline void Unlock() { mutex.Unlock(); } // this is especially needed when one py/pyext object calls another one --- 176,184 ---- public: + static void AddToPath(const char *dir); + #ifdef FLEXT_THREADS ! static PyThreadState *FindThreadState(); ! static void FreeThreadState(); // this is especially needed when one py/pyext object calls another one *************** *** 210,218 **** if(old != pythrsys || !--lockcount) PyEval_ReleaseLock(); } - #else - inline void Lock() {} - inline void Unlock() {} - static PyThreadState *PyLock(PyThreadState * = NULL) { return NULL; } static PyThreadState *PyLockSys() { return NULL; } --- 204,208 ---- Index: pybase.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/py/source/pybase.cpp,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** pybase.cpp 1 Aug 2005 11:58:01 -0000 1.7 --- pybase.cpp 11 Aug 2005 15:00:58 -0000 1.8 *************** *** 201,205 **** , pymsg(false) { ! PyThreadState *state = PyLockSys(); Py_INCREF(module_obj); PyUnlock(state); --- 201,205 ---- , pymsg(false) { ! PyThreadState *state = PyLock(); Py_INCREF(module_obj); PyUnlock(state); *************** *** 208,212 **** pybase::~pybase() { ! PyThreadState *state = PyLockSys(); Py_XDECREF(module_obj); PyUnlock(state); --- 208,212 ---- pybase::~pybase() { ! PyThreadState *state = PyLock(); Py_XDECREF(module_obj); PyUnlock(state); *************** *** 356,360 **** } } ! #elif FLEXT_OS == FLEXT_OS_LINUX #endif } --- 356,377 ---- } } ! #else ! // thanks to Tim Blechmann ! ! char *editor = getenv("EDITOR"); ! ! if(!editor || !strcmp(editor, "/usr/bin/nano") || !strcmp(editor, "/usr/bin/pico") || !strcmp(editor, "/usr/bin/vi")) { ! // no environment variable or console text editor found ... use idle instead (should have come with Python) ! editor = "idle"; ! } ! ! pid_t child = fork(); ! if(!child) { ! char cmd[80]; ! strcpy(cmd,editor); ! strcat(cmd," "); ! strcat(cmd,fname); ! execl("/bin/sh", "sh", "-c", cmd, (char *) NULL); ! } #endif } *************** *** 540,544 **** void pybase::Reload() { ! PyThreadState *state = PyLockSys(); PyObject *reg = GetRegistry(REGNAME); --- 557,561 ---- void pybase::Reload() { ! PyThreadState *state = PyLock(); PyObject *reg = GetRegistry(REGNAME); *************** *** 671,674 **** --- 688,692 ---- #if 0 // want to use that, but exception keeps a reference to the object + // might be a Python bug! PyErr_Print(); #else *************** *** 777,784 **** return true; } - - /* - PY_EXPORT PyThreadState *py_Lock(PyThreadState *st = NULL) { return pybase::PyLock(st?st:pybase::FindThreadState()); } - PY_EXPORT PyThreadState *py_LockSys() { return pybase::PyLockSys(); } - PY_EXPORT void py_Unlock(PyThreadState *st) { pybase::PyUnlock(st); } - */ --- 795,796 ---- Index: py.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/py/source/py.cpp,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** py.cpp 1 Aug 2005 11:58:01 -0000 1.33 --- py.cpp 11 Aug 2005 15:00:58 -0000 1.34 *************** *** 155,164 **** funnm = MakeSymbol(pt+1); *pt = 0; - - #if 0 - if(!*modnm) - // if module name is empty set it to __builtin__ - strcpy(modnm,"__builtin__"); - #endif } --- 155,158 ---- *************** *** 338,342 **** void pyobj::Unload() { ! SetFunction(NULL); } --- 332,337 ---- void pyobj::Unload() { ! // SetFunction(NULL); ! function = NULL; // just clear the PyObject, not the function name } *************** *** 355,359 **** return flext_base::CbMethodResort(n,s,argc,argv); ! PyThreadState *state = PyLock(); bool ret = false; --- 350,354 ---- return flext_base::CbMethodResort(n,s,argc,argv); ! PyThreadState *state = PyLockSys(); bool ret = false; Index: pymeth.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/py/source/pymeth.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** pymeth.cpp 1 Aug 2005 11:58:01 -0000 1.5 --- pymeth.cpp 11 Aug 2005 15:00:58 -0000 1.6 *************** *** 367,371 **** return flext_base::CbMethodResort(n,s,argc,argv); ! PyThreadState *state = PyLock(); bool ret = false; --- 367,371 ---- return flext_base::CbMethodResort(n,s,argc,argv); ! PyThreadState *state = PyLockSys(); bool ret = false; Index: pyargs.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/py/source/pyargs.cpp,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** pyargs.cpp 1 Aug 2005 11:58:01 -0000 1.22 --- pyargs.cpp 11 Aug 2005 15:00:58 -0000 1.23 *************** *** 19,23 **** return pySymbol_FromSymbol(flext::GetSymbol(at)); #if 1 ! else if(flext::CanbeInt(at) || flext::CanbeFloat(at)) { // if a number can be an integer... let it be an integer! int ival = flext::GetAInt(at); --- 19,23 ---- return pySymbol_FromSymbol(flext::GetSymbol(at)); #if 1 ! else if(flext::CanbeFloat(at)) { // if a number can be an integer... let it be an integer! int ival = flext::GetAInt(at);

1 0

← Newer
1
...
5
6
7
8
9
10
11
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 August 2005