Pd-cvs April 2004

pd-cvs@lists.iem.at

10 participants
178 discussions

pd/src u_main.tk,1.1.1.4.2.7.4.31,1.1.1.4.2.7.4.32
by Mathieu Bouchard 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9542 Modified Files: Tag: impd_0_37 u_main.tk Log Message: file encoder for dialog Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.31 retrieving revision 1.1.1.4.2.7.4.32 diff -C2 -d -r1.1.1.4.2.7.4.31 -r1.1.1.4.2.7.4.32 *** u_main.tk 3 Apr 2004 13:17:15 -0000 1.1.1.4.2.7.4.31 --- u_main.tk 3 Apr 2004 14:24:12 -0000 1.1.1.4.2.7.4.32 *************** *** 2296,2300 **** proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} {error "Come Back Next Month Or So"} proc notebook_select {self i} { --- 2296,2303 ---- proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} { ! set self [string trimleft $self .] ! pdrc_write $self ! } proc notebook_select {self i} { *************** *** 2340,2344 **** proc pdrc_write {self} { ! } --- 2343,2360 ---- proc pdrc_write {self} { ! global pdrc_options pdrc_options_h _ cmdline ! #set fd [open $cmdline($rcfilename) w] ! set fd stderr ! foreach {type name desc} $pdrc_options { ! set v $_($self:$name) ! set op [lindex [split $name |] 0] ! switch $type { ! folders {foreach x $v {puts $fd "$op $x"}} ! files {foreach x $v {puts $fd "$op $x"}} ! void {if {[string length $v]} {if {$v} {puts $fd $op}}} ! default {if {[string length $v]} {puts $fd "$op $v"}} ! } ! } ! #close $fd }

1 0

pd/src u_main.tk,1.1.1.4.2.7.4.30,1.1.1.4.2.7.4.31
by Mathieu Bouchard 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31281 Modified Files: Tag: impd_0_37 u_main.tk Log Message: pdrc file decoder for dialog Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.30 retrieving revision 1.1.1.4.2.7.4.31 diff -C2 -d -r1.1.1.4.2.7.4.30 -r1.1.1.4.2.7.4.31 *** u_main.tk 1 Apr 2004 23:22:01 -0000 1.1.1.4.2.7.4.30 --- u_main.tk 3 Apr 2004 13:17:15 -0000 1.1.1.4.2.7.4.31 *************** *** 988,993 **** } ! proc color_popup {self name i} { ! set w .$self.$name.popup if [winfo exists $w] {destroy $w} menu $w -tearoff false --- 988,993 ---- } ! proc color_popup {self w name i} { ! set w $w.$name.popup if [winfo exists $w] {destroy $w} menu $w -tearoff false *************** *** 1015,1022 **** } ! proc properties_dialog {self ok struct} { global _ foreach {name label type options} $struct { ! set f .$self.$name switch -- $type { side { --- 1015,1022 ---- } ! proc properties_dialog {self w ok struct} { global _ foreach {name label type options} $struct { ! set f $w.$name switch -- $type { side { *************** *** 1042,1050 **** set c [expr $_($self:$name) & 0xFCFCFC] button $f.color -text " " -width 10 \ ! -command [list iemgui_choose_col .$self $name $label] \ -relief sunken -background [format #%6.6x $c] \ -highlightbackground [format #%6.6x $c] ! button $f.preset -text "..." -command [list color_popup $self $name $i] pack $f.label $f.color $f.preset -side left pack $f -side top --- 1042,1050 ---- set c [expr $_($self:$name) & 0xFCFCFC] button $f.color -text " " -width 10 \ ! -command [list iemgui_choose_col $w $name $label] \ -relief sunken -background [format #%6.6x $c] \ -highlightbackground [format #%6.6x $c] ! button $f.preset -text "..." -command [list color_popup $self $w $name $i] pack $f.label $f.color $f.preset -side left pack $f -side top *************** *** 1068,1072 **** eval "entry $f.entry -textvariable _($self:$name) $options" pack $f.entry -side left ! bind $f.entry <Return> "$ok .$self" if {[string compare $type "entry"]} { label $f.type -text "($type)" --- 1068,1072 ---- eval "entry $f.entry -textvariable _($self:$name) $options" pack $f.entry -side left ! bind $f.entry <Return> "$ok $w" if {[string compare $type "entry"]} { label $f.type -text "($type)" *************** *** 1136,1142 **** frame .$self.buttonsep -height 2 -borderwidth 1 -relief sunken frame .$self.buttonframe ! button .$self.buttonframe.cancel -text {Cancel} -command "${procprefix}_cancel .$self" ! button .$self.buttonframe.apply -text {Apply} -command "${procprefix}_apply .$self" ! button .$self.buttonframe.ok -text {OK} -command "${procprefix}_ok .$self" pack .$self.buttonframe.cancel -side left -expand 1 pack .$self.buttonframe.apply -side left -expand 1 --- 1136,1142 ---- frame .$self.buttonsep -height 2 -borderwidth 1 -relief sunken frame .$self.buttonframe ! button .$self.buttonframe.cancel -text "Cancel" -command "${procprefix}_cancel .$self" ! button .$self.buttonframe.apply -text "Apply" -command "${procprefix}_apply .$self" ! button .$self.buttonframe.ok -text "OK" -command "${procprefix}_ok .$self" pack .$self.buttonframe.cancel -side left -expand 1 pack .$self.buttonframe.apply -side left -expand 1 *************** *** 1229,1233 **** wm title $id {graph} wm protocol $id WM_DELETE_WINDOW "graph_cancel $id" ! label $id.label -text {GRAPH BOUNDS} pack $id.label -side top cancel_apply_ok $self graph --- 1229,1233 ---- wm title $id {graph} wm protocol $id WM_DELETE_WINDOW "graph_cancel $id" ! label $id.label -text "GRAPH BOUNDS" pack $id.label -side top cancel_apply_ok $self graph *************** *** 1399,1403 **** lappend props steady [list "jump on click" "steady on click"] choice {} } ! properties_dialog $self iemgui_ok $props set props {} if {$snd != "nosndno"} {lappend props snd "send-symbol: " entry {-width 20}} --- 1399,1403 ---- lappend props steady [list "jump on click" "steady on click"] choice {} } ! properties_dialog $self .$self iemgui_ok $props set props {} if {$snd != "nosndno"} {lappend props snd "send-symbol: " entry {-width 20}} *************** *** 1411,1415 **** lappend props fcol "foreground color" color {} lappend props lcol "label color" color {} ! properties_dialog $self iemgui_ok $props cancel_apply_ok $self iemgui --- 1411,1415 ---- lappend props fcol "foreground color" color {} lappend props lcol "label color" color {} ! properties_dialog $self .$self iemgui_ok $props cancel_apply_ok $self iemgui *************** *** 1455,1461 **** n "size: " entry {} } ! properties_dialog $self array_ok $props ! checkbutton $id.saveme -text {save contents} -variable _($self:saveit) -anchor w pack $id.saveme -side top --- 1455,1461 ---- n "size: " entry {} } ! properties_dialog $self .$self array_ok $props ! checkbutton $id.saveme -text "save contents" -variable _($self:saveit) -anchor w pack $id.saveme -side top *************** *** 1504,1508 **** yscale "Y units/px: " entry {-width 10} } ! properties_dialog $self canvas_ok $props checkbutton $id.graphme -text "graph on parent" -variable _($self:graphme) -anchor w --- 1504,1508 ---- yscale "Y units/px: " entry {-width 10} } ! properties_dialog $self .$self canvas_ok $props checkbutton $id.graphme -text "graph on parent" -variable _($self:graphme) -anchor w *************** *** 1534,1539 **** frame $name.buttonframe pack $name.buttonframe -side bottom -fill x -pady 2m ! button $name.buttonframe.send -text {Send (Ctrl s)} -command "dodata_send $name" ! button $name.buttonframe.ok -text {OK (Ctrl t)} -command "dodata_ok $name" pack $name.buttonframe.send -side left -expand 1 pack $name.buttonframe.ok -side left -expand 1 --- 1534,1539 ---- frame $name.buttonframe pack $name.buttonframe -side bottom -fill x -pady 2m ! button $name.buttonframe.send -text "Send (Ctrl s)" -command "dodata_send $name" ! button $name.buttonframe.ok -text "OK (Ctrl t)" -command "dodata_ok $name" pack $name.buttonframe.send -side left -expand 1 pack $name.buttonframe.ok -side left -expand 1 *************** *** 1827,1831 **** frame $id.longbutton pack $id.longbutton -side top ! button $id.longbutton.b -text {use multiple devices} \ -command {pd pd audio-properties 1 \;} pack $id.longbutton.b --- 1827,1831 ---- frame $id.longbutton pack $id.longbutton -side top ! button $id.longbutton.b -text "use multiple devices" \ -command {pd pd audio-properties 1 \;} pack $id.longbutton.b *************** *** 2271,2297 **** alias -mididev {list -midindev %1 -midioutdev %1} ! section "" "Other" ! folder -path "add to file search path" ! folder -helppath "add to help file search path" ! file -open "open file(s) on startup" ! file -lib "load object library(s)" int -font "specify default font size in points" void -verbose "extra printout on startup and when searching for files" - void -version "don't run Pd; just print out which version it is" void -d "specify debug level" ! void -noloadbang "suppress all loadbangs" ! void -nogui "suppress starting the GUI" ! string -guicmd "substitute another GUI program (e.g., rsh)" string -send "send a message at startup (after patches are loaded)" ! void -listdev "list audio and MIDI devices" void -rt|-realtime "use real-time priority (needs root privilege)" - int -console "console scrollback lines (0 = disable console)" - folder -look "folder containing buttonbar icons" - void -statusbar "enable statusbar" } proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} {error "BOO"} proc notebook_select {self i} { --- 2271,2300 ---- alias -mididev {list -midindev %1 -midioutdev %1} ! section "" "Externals" ! folders -path "add to file search path" ! folders -helppath "add to help file search path" ! files -lib "load object library(s)" ! ! section "" "Gooey" ! void -nogui "suppress starting the GUI (caution)" ! string -guicmd "substitute another GUI program (e.g., rsh)" ! int -console "console scrollback lines (0 = disable console)" ! folder -look "folder containing buttonbar icons" ! void -statusbar "enable statusbar" int -font "specify default font size in points" + + section "" "Other" + files -open "open file(s) on startup" void -verbose "extra printout on startup and when searching for files" void -d "specify debug level" ! void -noloadbang "disable the effect of [loadbang]" string -send "send a message at startup (after patches are loaded)" ! void -listdev "list audio and MIDI devices upon startup" void -rt|-realtime "use real-time priority (needs root privilege)" } proc pdrc_editor_ok {self} {pdrc_editor_apply $self; pdrc_editor_cancel $self} proc pdrc_editor_cancel {self} {destroy $self} ! proc pdrc_editor_apply {self} {error "Come Back Next Month Or So"} proc notebook_select {self i} { *************** *** 2306,2312 **** --- 2309,2350 ---- } + proc pdrc_read {self} { + global pdrc_options pdrc_options_h _ cmdline + set fd [open $cmdline(rcfilename) r] + set contents [split [string map {"\n" " "} [read $fd]] " "] + close $fd + foreach {type name desc} $pdrc_options { + set _($self:$name) "" + foreach subname [split $name |] { + set pdrc_options_h($subname) [list $type $name $desc] + } + } + set i 0 + while {$i < [llength $contents]} { + set op [lindex $contents $i] + puts "op=$op" + if {[string length $op]==0} {break} + if {![info exists pdrc_options_h($op)]} { + error "unknown option: $op" + } + foreach {type name desc} $pdrc_options_h($op) {} + switch $type { + folders {incr i; lappend _($self:$name) [lindex $contents $i]} + files {incr i; lappend _($self:$name) [lindex $contents $i]} + void {set _($self:$name) 1} + default {incr i; set _($self:$name) [lindex $contents $i]} + } + incr i + } + } + + proc pdrc_write {self} { + + } + proc pdrc_editor_new {} { global _ pdrc_options set self pdrc + pdrc_read $self toplevel .$self frame .$self.1 *************** *** 2316,2320 **** set section 0 foreach {type name desc} $pdrc_options { - puts [list $type $name $desc] switch $type { void { set type toggle }} switch $type { --- 2354,2357 ---- *************** *** 2328,2337 **** alias {} radio { ! puts "(skipping radio)" ! properties_dialog $self.1.main.$section pdrc_editor_ok \ [list [lindex $name 0] "$desc" choice {}] } default { ! properties_dialog $self.1.main.$section pdrc_editor_ok \ [list $name "$name: $desc" $type {}] } --- 2365,2373 ---- alias {} radio { ! properties_dialog $self .$self.1.main.$section pdrc_editor_ok \ [list [lindex $name 0] "$desc" choice {}] } default { ! properties_dialog $self .$self.1.main.$section pdrc_editor_ok \ [list $name "$name: $desc" $type {}] }

1 0

pd/src s_main.c,1.1.1.4.2.8.4.7,1.1.1.4.2.8.4.8 s_path.c,1.1.1.2.2.2.2.7,1.1.1.2.2.2.2.8
by Mathieu Bouchard 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31131 Modified Files: Tag: impd_0_37 s_main.c s_path.c Log Message: telling Tcl which pdrc got loaded Index: s_main.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_main.c,v retrieving revision 1.1.1.4.2.8.4.7 retrieving revision 1.1.1.4.2.8.4.8 diff -C2 -d -r1.1.1.4.2.8.4.7 -r1.1.1.4.2.8.4.8 *** s_main.c 30 Mar 2004 00:23:43 -0000 1.1.1.4.2.8.4.7 --- s_main.c 3 Apr 2004 13:16:38 -0000 1.1.1.4.2.8.4.8 *************** *** 52,55 **** --- 52,56 ---- static int sys_version; int sys_oldtclversion; /* hack to warn g_rtext.c about old text sel */ + char *rcfilename; int sys_nmidiout = 1; *************** *** 257,262 **** sys_vgui("global cmdline; set cmdline(console) {%d}; " ! "set cmdline(look) {%s}; set cmdline(statusbar) {%d}; make_console\n", ! console_scrollback,option_look,option_statusbar); /* open audio and MIDI */ --- 258,265 ---- sys_vgui("global cmdline; set cmdline(console) {%d}; " ! "set cmdline(look) {%s}; set cmdline(statusbar) {%d}; " ! "set cmdline(rcfilename) {%s}; " ! "make_console\n", ! console_scrollback,option_look,option_statusbar,rcfilename?rcfilename:""); /* open audio and MIDI */ Index: s_path.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_path.c,v retrieving revision 1.1.1.2.2.2.2.7 retrieving revision 1.1.1.2.2.2.2.8 diff -C2 -d -r1.1.1.2.2.2.2.7 -r1.1.1.2.2.2.2.8 *** s_path.c 30 Mar 2004 05:07:40 -0000 1.1.1.2.2.2.2.7 --- s_path.c 3 Apr 2004 13:16:38 -0000 1.1.1.2.2.2.2.8 *************** *** 350,353 **** --- 350,355 ---- } + EXTERN char *rcfilename; + int sys_rcfile(void) { *************** *** 376,379 **** --- 378,382 ---- if (file) { post("reading startup file: %s", fname); + rcfilename = strdup(fname); return sys_this_rcfile(file); }

1 0

abstractions/audionerd/GYRE gyre.html,NONE,1.1 gyre.pd,NONE,1.1 gyre.stereoloop~.pd,NONE,1.1
by eric skogen 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/abstractions/audionerd/GYRE In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4119/audionerd/GYRE Added Files: gyre.html gyre.pd gyre.stereoloop~.pd Log Message: gyre initial import --- NEW FILE: gyre.pd --- #N canvas 0 0 1012 702 10; #N canvas 0 0 218 83 gyre.CLOCK 0; #N canvas 0 0 739 445 bpm2phasor.util 0; #X obj 82 191 *~ 64; #X obj 83 170 phasor~; #X obj 83 296 snapshot~; #X obj 83 318 int; #X obj 83 340 change; #X text 128 366 control rate ticks; #X text 350 366 audiorate ramp; #X obj 83 114 expr ($f1/($f2/4))/60; #X obj 230 59 loadbang; #X obj 204 87 f 64; #X text 267 21 steps (default: 64); #X text 57 21 BPM (no default); #X msg 120 148 0; #X obj 22 46 route reset; #X obj 22 96 b; #X obj 46 74 route 0; #X msg 46 139 0; #X text 248 195 inlet #1 : bpm inlet #2 : steps (default 64) outlet #1: control rate outlet #2: audiorate; #X obj 83 95 f; #X obj 179 56 t b f; #X text 36 391 this should be more solid .. delta~?; #X obj 32 270 edge~; #X obj 32 231 delta~; #X obj 31 251 <~ 0; #X obj 31 212 wrap~; #X obj 93 268 metro 1; #X obj 83 366 s clock; #X obj 22 20 r BPM; #X obj 179 21 r clock-steps; #X text 241 167 [bpm2phasor util / e.skogen]; #X obj 293 366 s~ clock~; #X connect 0 0 24 0; #X connect 0 0 2 0; #X connect 0 0 30 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 26 0; #X connect 7 0 1 0; #X connect 8 0 9 0; #X connect 9 0 7 1; #X connect 9 0 0 1; #X connect 12 0 1 1; #X connect 13 0 14 0; #X connect 13 1 15 0; #X connect 14 0 12 0; #X connect 15 0 16 0; #X connect 15 1 18 0; #X connect 16 0 1 0; #X connect 18 0 7 0; #X connect 19 0 18 0; #X connect 19 1 9 0; #X connect 21 0 2 0; #X connect 22 0 23 0; #X connect 23 0 21 0; #X connect 24 0 22 0; #X connect 27 0 13 0; #X connect 28 0 19 0; #X restore 51 6 pd bpm2phasor.util; #X obj 2 2 cnv 15 198 58 empty empty empty 20 12 0 12 -233017 -66577 0; #X obj 153 52 nbx 5 14 -1e+037 1e+037 0 1 BPM empty BPM -32 8 1 10 -262144 -33289 -99865 121 256; #X obj 5 6 cnv 15 10 6 empty empty gyre 6 12 1 22 -233017 -66577 0 ; #X msg 35 33 reset; #X obj 35 53 s BPM; #X obj 89 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 95 6 cnv 15 10 6 empty empty eskogen/audionerd 6 12 1 7 -233017 -128992 0; #X connect 4 0 5 0; #X connect 6 0 4 0; #X coords 0 0 1 1 200 60 1; #X restore 13 12 pd gyre.CLOCK; #X obj 16 96 gyre.stereoloop~ loop1; #X text 567 291 FX SECTION; #X obj 16 186 gyre.stereoloop~ loop2; #X obj 16 276 gyre.stereoloop~ loop3; #X obj 16 366 gyre.stereoloop~ loop4; #X obj 16 456 gyre.stereoloop~ loop5; #X obj 16 546 gyre.stereoloop~ loop6; #N canvas 0 0 620 671 gyre.mixer~ 0; #X obj 352 39 catch~ loop1-outl; #X obj 370 56 catch~ loop1-outr; #X obj 352 118 catch~ loop2-outl; #X obj 370 136 catch~ loop2-outr; #X obj 352 190 catch~ loop3-outl; #X obj 370 208 catch~ loop3-outr; #X obj 352 260 catch~ loop4-outl; #X obj 370 278 catch~ loop4-outr; #X obj 352 330 catch~ loop5-outl; #X obj 370 348 catch~ loop5-outr; #X obj 352 400 catch~ loop6-outl; #X obj 370 418 catch~ loop6-outr; #X obj 352 450 catch~ loop7-outl; #X obj 370 468 catch~ loop7-outr; #X obj 352 510 catch~ loop8-outl; #X obj 370 528 catch~ loop8-outr; #X obj 41 368 dac~; #X obj 352 570 catch~ loop9-outl; #X obj 370 588 catch~ loop9-outr; #X connect 0 0 16 0; #X connect 1 0 16 1; #X connect 2 0 16 0; #X connect 3 0 16 1; #X connect 4 0 16 0; #X connect 5 0 16 1; #X connect 6 0 16 0; #X connect 7 0 16 1; #X connect 8 0 16 0; #X connect 9 0 16 1; #X connect 10 0 16 0; #X connect 11 0 16 1; #X connect 12 0 16 0; #X connect 13 0 16 1; #X connect 14 0 16 0; #X connect 15 0 16 1; #X connect 17 0 16 0; #X connect 18 0 16 1; #X restore 180 636 pd gyre.mixer~; --- NEW FILE: gyre.stereoloop~.pd --- #N canvas 0 0 260 91 10; #X obj 2 24 cnv 15 248 58 empty empty empty 20 12 0 14 -224826 -66577 0; #N canvas 0 0 523 576 GUTS 0; #X obj 26 18 r~ clock~; #X obj 50 41 r clock-steps; #X obj 26 279 *~; #X obj 126 279 *~; #X obj 161 51 table \$1-loop_l; #X obj 161 71 table \$1-loop_r; #X obj 39 214 r \$1-volume; #X obj 39 250 line~; #X obj 39 232 pack 0 5; #X obj 139 214 r \$1-volume; #X obj 139 250 line~; #X obj 139 232 pack 0 5; #X obj 27 481 +~; #X obj 127 481 +~; #X obj 328 43 openpanel; #X obj 24 145 wrap~; #X obj 25 66 /~ 64; #X obj 61 104 / 16; #X obj 62 83 r \$1-beats; #X obj 328 23 r \$1-load; #X obj 231 385 dbtorms; #X obj 180 414 s \$1-volume; #X obj 180 333 r \$1-volume_gui; #X obj 231 363 / 1.27; #X obj 214 283 s \$1-gui_now_playing; #X msg 214 265 label \$1; #X obj 265 198 loadbang; #X msg 265 217 symbol ...; #X obj 24 124 /~ 0.25; #X obj 180 370 / 127; #X obj 337 153 pack s s s; #X obj 328 66 trigger s b b; #X obj 401 95 symbol \$1-loop_r; #X obj 364 118 symbol \$1-loop_l; #X obj 337 198 soundfiler; #X obj 213 247 symbol; #X floatatom 337 251 5 0 0 0 - - -; #X obj 26 509 throw~ \$1-outl; #X obj 126 508 throw~ \$1-outr; #X msg 337 176 read -resize \$1 \$2 \$3; #X obj 416 216 print; #X obj 125 182 wave~ \$1-loop_r; #X obj 25 182 wave~ \$1-loop_l; #X connect 0 0 16 0; #X connect 1 0 16 1; #X connect 2 0 12 0; #X connect 3 0 13 0; #X connect 6 0 8 0; #X connect 7 0 2 1; #X connect 8 0 7 0; #X connect 9 0 11 0; #X connect 10 0 3 1; #X connect 11 0 10 0; #X connect 12 0 37 0; #X connect 13 0 38 0; #X connect 14 0 31 0; #X connect 14 0 35 0; #X connect 15 0 41 0; #X connect 15 0 42 0; #X connect 16 0 28 0; #X connect 17 0 28 1; #X connect 18 0 17 0; #X connect 19 0 14 0; #X connect 22 0 23 0; #X connect 22 0 29 0; #X connect 23 0 20 0; #X connect 25 0 24 0; #X connect 26 0 27 0; #X connect 27 0 35 0; #X connect 28 0 15 0; #X connect 29 0 21 0; #X connect 30 0 39 0; #X connect 31 0 30 0; #X connect 31 1 33 0; #X connect 31 2 32 0; #X connect 32 0 30 2; #X connect 33 0 30 1; #X connect 34 0 36 0; #X connect 35 0 25 0; #X connect 39 0 34 0; #X connect 39 0 40 0; #X connect 41 0 3 0; #X connect 42 0 2 0; #X restore 192 2 pd GUTS; #X obj 9 61 nbx 2 14 -1e+037 1e+037 0 1 \$1-beats empty beats 0 -6 1 7 -262144 -1 -1 4 256; #X obj 2 26 cnv 10 248 15 empty empty empty 3 8 1 8 -195568 -66577 0; #X obj 34 26 cnv 15 98 15 empty \$1-gui_now_playing ... 2 8 1 7 -195568 -33289 0; #X obj 8 26 bng 15 250 50 0 \$1-load empty empty 0 -6 1 8 -262131 -1 -1; #X obj 47 60 hsl 100 15 0 127 0 0 \$1-volume_gui empty volume 3 8 1 7 -262144 -1 -1 0 1; #X coords 0 0 1 1 250 80 1; --- NEW FILE: gyre.html --- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title> gyre / audionerd </title> <style type="text/css"> html { height: 100%; } body { font-family: verdana; font-size: 11px; font-size: 0.75em; height: 80%; } #content { height: 100%; margin-left: 10%; margin-top: 8%; padding-left: 2%; border-left: 1px #aaaaaa dashed; } </style> </head> <body> <div id="content"> <h1>GYRE</h1> <h2>audio loop framework</h2> <p>requires: cyclone</p> <p> <a href="http://www.audionerd.com">audionerd.com</a> </p> </div> </body> </html>

1 0

abstractions/audionerd/GYRE - New directory
by eric skogen 03 Apr '04

03 Apr '04

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

1 0

abstractions/audionerd - New directory
by eric skogen 03 Apr '04

03 Apr '04

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

1 0

externals/grill/flext/source flattr.cpp,1.21,1.22 flbase.cpp,1.15,1.16 flbase.h,1.23,1.24 fllib.cpp,1.22,1.23
by Thomas Grill 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/externals/grill/flext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2336/source Modified Files: flattr.cpp flbase.cpp flbase.h fllib.cpp Log Message: "" Index: flbase.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flbase.cpp,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** flbase.cpp 20 Mar 2004 03:23:11 -0000 1.15 --- flbase.cpp 3 Apr 2004 02:21:04 -0000 1.16 *************** *** 97,101 **** } ! const t_symbol *flext_obj::GetParamSym(const t_symbol *sym,t_canvas *c) { #if FLEXT_SYS == FLEXT_SYS_PD --- 97,101 ---- } ! bool flext_obj::GetParamSym(t_atom &dst,const t_symbol *sym,t_canvas *c) { #if FLEXT_SYS == FLEXT_SYS_PD *************** *** 104,107 **** --- 104,108 ---- const char *s = GetString(sym); if((s[0] == '$' || s[0] == '#') && isdigit(s[1])) { + const t_symbol *res; // patcher parameter detected... get value! if(s[0] != '$') { *************** *** 109,116 **** strcpy(tmp,s); tmp[0] = '$'; ! return canvas_realizedollar(c,const_cast<t_symbol *>(MakeSymbol(tmp))); } else ! return canvas_realizedollar(c,const_cast<t_symbol *>(sym)); } else --- 110,127 ---- strcpy(tmp,s); tmp[0] = '$'; ! res = canvas_realizedollar(c,const_cast<t_symbol *>(MakeSymbol(tmp))); } else ! res = canvas_realizedollar(c,const_cast<t_symbol *>(sym)); ! ! // check for number ! const char *c = GetString(res); ! while(*c && (isdigit(*c) || *c == '.')) ++c; ! ! if(!*c) ! SetFloat(dst,(float)atof(GetString(res))); ! else ! SetSymbol(dst,res); ! return true; } else *************** *** 118,122 **** #pragma message("Not implemented") #endif ! return sym; } --- 129,134 ---- #pragma message("Not implemented") #endif ! SetSymbol(dst,sym); ! return true; } Index: flattr.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flattr.cpp,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** flattr.cpp 6 Mar 2004 03:25:48 -0000 1.21 --- flattr.cpp 3 Apr 2004 02:21:04 -0000 1.22 *************** *** 239,243 **** case a_symbol: if(argc == 1 && IsSymbol(argv[0])) { ! any.st = const_cast<t_symbol *>(GetParamSym(GetSymbol(argv[0]),thisCanvas())); ((methfun_1)a->fun)(this,any); } --- 239,245 ---- case a_symbol: if(argc == 1 && IsSymbol(argv[0])) { ! // \todo shall we analyze the patcher args???? ! // any.st = const_cast<t_symbol *>(GetParamSym(GetSymbol(argv[0]),thisCanvas())); ! any.st = GetSymbol(argv[0]); ((methfun_1)a->fun)(this,any); } *************** *** 255,259 **** for(int i = 0; i < argc; ++i) if(IsSymbol(argv[i])) ! SetSymbol(la[i],GetParamSym(GetSymbol(argv[i]),thisCanvas())); else la[i] = argv[i]; --- 257,261 ---- for(int i = 0; i < argc; ++i) if(IsSymbol(argv[i])) ! GetParamSym(la[i],GetSymbol(argv[i]),thisCanvas()); else la[i] = argv[i]; Index: flbase.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flbase.h,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** flbase.h 20 Mar 2004 03:23:11 -0000 1.23 --- flbase.h 3 Apr 2004 02:21:04 -0000 1.24 *************** *** 259,263 **** //! Convert $0 or #0 symbol into appropriate value ! static const t_symbol *GetParamSym(const t_symbol *s,t_canvas *c); //! Get the canvas arguments --- 259,263 ---- //! Convert $0 or #0 symbol into appropriate value ! static bool GetParamSym(t_atom &dst,const t_symbol *s,t_canvas *c); //! Get the canvas arguments Index: fllib.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/fllib.cpp,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** fllib.cpp 6 Mar 2004 03:25:48 -0000 1.22 --- fllib.cpp 3 Apr 2004 02:21:04 -0000 1.23 *************** *** 293,296 **** --- 293,298 ---- + #define NEWARGS 256 // must be larger than FLEXT_NEWARGS = 5 + typedef flext_obj *(*libfun)(int,t_atom *); *************** *** 311,315 **** if(lo) { bool ok = true; ! t_atom args[FLEXT_MAXNEWARGS]; int argc = _argc_; --- 313,317 ---- if(lo) { bool ok = true; ! t_atom args[NEWARGS]; int argc = _argc_; *************** *** 339,343 **** break; case FLEXTTPN_SYM: ! if(IsSymbol(argv[i])) SetSymbol(args[i],GetParamSym(GetSymbol(argv[i]),NULL)); else ok = false; break; --- 341,348 ---- break; case FLEXTTPN_SYM: ! // \todo shall we analyze the patcher args????... should already be done! ! if(IsSymbol(argv[i])) ! // SetSymbol(args[i],GetParamSym(GetSymbol(argv[i]),NULL)); ! args[i] = argv[i]; else ok = false; break; *************** *** 368,374 **** #error #endif - // post("NEWINST CLID %p",clid); ! flext_obj::m_holder = obj; flext_obj::m_holdname = s; flext_obj::m_holdattr = lo->attr; --- 373,378 ---- #error #endif ! flext_obj::m_holder = obj; flext_obj::m_holdname = s; flext_obj::m_holdattr = lo->attr; *************** *** 376,391 **** // get actual flext object (newfun calls "new flext_obj()") if(lo->argc >= 0) - // for interpreted arguments (patcher parameters have already been converted) obj->data = lo->newfun(lo->argc,args); ! else { ! // convert eventual patcher parameters ! for(int i = 0; i < argc; ++i) ! if(IsSymbol(argv[i])) ! SetSymbol(args[i],GetParamSym(GetSymbol(argv[i]),NULL)); ! else ! args[i] = argv[i]; ! ! obj->data = lo->newfun(argc,args); ! } flext_obj::m_holder = NULL; --- 380,386 ---- // get actual flext object (newfun calls "new flext_obj()") if(lo->argc >= 0) obj->data = lo->newfun(lo->argc,args); ! else ! obj->data = lo->newfun(argc,argv); flext_obj::m_holder = NULL; *************** *** 398,404 **** if(ok) { ! // store creation args for attribute initialization (inside flext_base::Init()) ! flext_obj::m_holdaargc = _argc_-argc; ! flext_obj::m_holdaargv = argv+argc; // call virtual init function --- 393,408 ---- if(ok) { ! if(lo->attr) { ! // DON'T convert eventual patcher args here... this is done by the actual attribute stuff ! // so that the initial $- or #- be preserved! ! ! // store creation args for attribute initialization (inside flext_base::Init()) ! flext_obj::m_holdaargc = _argc_-argc; ! flext_obj::m_holdaargv = argv+argc; ! } ! else { ! flext_obj::m_holdaargc = 0; ! flext_obj::m_holdaargv = NULL; ! } // call virtual init function

1 0

externals/grill/flext changes.txt,1.41,1.42
by Thomas Grill 03 Apr '04

03 Apr '04

Update of /cvsroot/pure-data/externals/grill/flext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2336 Modified Files: changes.txt Log Message: "" Index: changes.txt =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/changes.txt,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 *** changes.txt 26 Mar 2004 03:22:10 -0000 1.41 --- changes.txt 3 Apr 2004 02:21:04 -0000 1.42 *************** *** 25,28 **** --- 25,29 ---- - fixed small problem with buffer->Valid() on startup - fixed buffer overrun problems with flext::post, flext::error... (but still to improve) + - improved handling of patcher arguments 0.4.5:

1 0

pd/src s_inter.c,1.1.1.3.2.9.2.3,1.1.1.3.2.9.2.4
by carmen rocco 02 Apr '04

02 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31777 Modified Files: Tag: impd_0_37 s_inter.c Log Message: stray cats Index: s_inter.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_inter.c,v retrieving revision 1.1.1.3.2.9.2.3 retrieving revision 1.1.1.3.2.9.2.4 diff -C2 -d -r1.1.1.3.2.9.2.3 -r1.1.1.3.2.9.2.4 *** s_inter.c 1 Apr 2004 23:42:44 -0000 1.1.1.3.2.9.2.3 --- s_inter.c 2 Apr 2004 05:03:27 -0000 1.1.1.3.2.9.2.4 *************** *** 778,783 **** exit(1); } - } #endif /* MSW */ #ifdef __linux__ --- 778,784 ---- exit(1); } #endif /* MSW */ + } + #ifdef __linux__

1 0

externals/grill/flext build-pd-msvc.bat,1.3,1.4
by Thomas Grill 02 Apr '04

02 Apr '04

Update of /cvsroot/pure-data/externals/grill/flext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5343 Modified Files: build-pd-msvc.bat Log Message: "" Index: build-pd-msvc.bat =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/build-pd-msvc.bat,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** build-pd-msvc.bat 30 Dec 2003 03:32:46 -0000 1.3 --- build-pd-msvc.bat 2 Apr 2004 02:21:19 -0000 1.4 *************** *** 1,3 **** ! @echo --- Building flext with MS Visual C++ --- nmake -f makefile.pd-msvc clean ! nmake -f makefile.pd-msvc --- 1,7 ---- ! @echo --- Building flext with MS Visual C++ --- ! ! nmake -f makefile.pd-msvc clean ! ! nmake -f makefile.pd-msvc !

1 0

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 April 2004