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.38,1.1.1.4.2.7.4.39
by Mathieu Bouchard 10 Apr '04

10 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7801 Modified Files: Tag: impd_0_37 u_main.tk Log Message: ... Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.38 retrieving revision 1.1.1.4.2.7.4.39 diff -C2 -d -r1.1.1.4.2.7.4.38 -r1.1.1.4.2.7.4.39 *** u_main.tk 10 Apr 2004 19:02:49 -0000 1.1.1.4.2.7.4.38 --- u_main.tk 10 Apr 2004 19:53:11 -0000 1.1.1.4.2.7.4.39 *************** *** 1428,1433 **** set self [string trimleft $id .] global iemgui_define_min_fontsize ! if {$_($self:gn_fs) < $iemgui_define_min_fontsize} { ! set _($self:gn_fs) $iemgui_define_min_fontsize } } --- 1428,1433 ---- set self [string trimleft $id .] global iemgui_define_min_fontsize ! if {$_($self:fs) < $iemgui_define_min_fontsize} { ! set _($self:fs) $iemgui_define_min_fontsize } } *************** *** 1442,1458 **** iemgui_sched_rng $id iemgui_clip_fontsize $id ! if {$_($self:snd) == ""} {set hhhsnd "empty"} {set hhhsnd $_($self:snd)} ! if {$_($self:rcv) == ""} {set hhhrcv "empty"} {set hhhrcv $_($self:rcv)} ! if {$_($self:gui_nam) == ""} {set hhhgui_nam "empty"} {set hhhgui_nam $_($self:gui_nam)} ! if {[string index $hhhsnd 0] == "$"} { set hhhsnd [string replace $hhhsnd 0 0 #] } ! if {[string index $hhhrcv 0] == "$"} { set hhhrcv [string replace $hhhrcv 0 0 #] } ! if {[string index $hhhgui_nam 0] == "$"} { set hhhgui_nam [string replace $hhhgui_nam 0 0 #] } pd "$id dialog \ $_($self:w) $_($self:h) \ $_($self:min_rng) $_($self:max_rng) \ $_($self:lin0_log1) $_($self:loadbang) \ ! $_($self:num) $hhhsnd $hhhrcv $hhhgui_nam \ ! $_($self:gn_dx) $_($self:gn_dy) \ ! $_($self:gn_f) $_($self:gn_fs) \ $_($self:bcol) $_($self:fcol) $_($self:lcol) \ $_($self:steady) ;" --- 1442,1458 ---- iemgui_sched_rng $id iemgui_clip_fontsize $id ! if {$_($self:snd) == ""} {set snd "empty"} {set snd $_($self:snd)} ! if {$_($self:rcv) == ""} {set rcv "empty"} {set rcv $_($self:rcv)} ! if {$_($self:lab) == ""} {set lab "empty"} {set lab $_($self:lab)} ! if {[string index $snd 0] == "$"} { set snd [string replace $snd 0 0 #] } ! if {[string index $rcv 0] == "$"} { set rcv [string replace $rcv 0 0 #] } ! if {[string index $lab 0] == "$"} { set lab [string replace $lab 0 0 #] } pd "$id dialog \ $_($self:w) $_($self:h) \ $_($self:min_rng) $_($self:max_rng) \ $_($self:lin0_log1) $_($self:loadbang) \ ! $_($self:num) $snd $rcv $lab \ ! $_($self:ldx) $_($self:ldy) \ ! $_($self:fstyle) $_($self:fs) \ $_($self:bcol) $_($self:fcol) $_($self:lcol) \ $_($self:steady) ;" *************** *** 1468,1472 **** rng_header min_rng min_rng_label max_rng max_rng_label rng_sched \ lin0_log1 lilo0_label lilo1_label loadbang steady num_label num \ ! snd rcv gui_name gn_dx gn_dy gn_f gn_fs bcol fcol lcol} { global _ set self [string trimleft $id .] --- 1468,1474 ---- rng_header min_rng min_rng_label max_rng max_rng_label rng_sched \ lin0_log1 lilo0_label lilo1_label loadbang steady num_label num \ ! snd rcv lab ldx ldy fstyle fs bcol fcol lcol} { ! ! # snd rcv lab ldx ldy fstyle fs bcol fcol lcol global _ set self [string trimleft $id .] *************** *** 1484,1495 **** switch -- $snd { empty {set snd ""}} switch -- $rcv { empty {set rcv ""}} ! switch -- $gui_name { empty {set gui_name ""}} set _($self:snd) $snd set _($self:rcv) $rcv ! set _($self:gui_nam) $gui_name ! set _($self:gn_dx) $gn_dx ! set _($self:gn_dy) $gn_dy ! set _($self:gn_f) $gn_f ! set _($self:gn_fs) $gn_fs set _($self:bcol) $bcol set _($self:fcol) $fcol --- 1486,1497 ---- switch -- $snd { empty {set snd ""}} switch -- $rcv { empty {set rcv ""}} ! switch -- $lab { empty {set lab ""}} set _($self:snd) $snd set _($self:rcv) $rcv ! set _($self:lab) $lab ! set _($self:ldx) $ldx ! set _($self:ldy) $ldy ! set _($self:fstyle) $fstyle ! set _($self:fs) $fs set _($self:bcol) $bcol set _($self:fcol) $fcol *************** *** 1530,1538 **** if {$snd != "nosndno"} {lappend props snd "send-symbol: " entry {-width 20}} if {$rcv != "norcvno"} {lappend props rcv "receive-symbol: " entry {-width 20}} ! lappend props gui_nam "label: " entry {-width 29} ! lappend props gn_dx "label x offset: " entry {-width 5} ! lappend props gn_dy "label y offset: " entry {-width 5} ! lappend props gn_f {"courier (typewriter)" "helvetica (sansserif)" "times (serif)"} choice {} ! lappend props gn_fs "font size: " entry {-width 5} lappend props bcol "background color" color {} lappend props fcol "foreground color" color {} --- 1532,1540 ---- if {$snd != "nosndno"} {lappend props snd "send-symbol: " entry {-width 20}} if {$rcv != "norcvno"} {lappend props rcv "receive-symbol: " entry {-width 20}} ! lappend props lab "label: " entry {-width 29} ! lappend props ldx "label x offset: " entry {-width 5} ! lappend props ldy "label y offset: " entry {-width 5} ! lappend props fstyle {"courier (typewriter)" "helvetica (sansserif)" "times (serif)"} choice {} ! lappend props fs "font size: " entry {-width 5} lappend props bcol "background color" color {} lappend props fcol "foreground color" color {} *************** *** 2093,2097 **** proc make_console {} { ! global cmdline set errMsg "" catch { --- 2095,2099 ---- proc make_console {} { ! global cmdline pd_nt set errMsg "" catch { *************** *** 2110,2122 **** pack .log -fill both -expand yes .log.2 set 0.0 1.0 } } errMsg if {[string compare "" $errMsg] != 0} {puts stderr "ERROR: $errMsg"} - global pd_nt - switch $pd_nt { 2 { - bind .log.1 <MouseWheel> { - .log.1 yview scroll [expr -2-abs(%D)/%D] units - } - }} } --- 2112,2123 ---- pack .log -fill both -expand yes .log.2 set 0.0 1.0 + switch $pd_nt { 2 { + bind .log.1 <MouseWheel> { + .log.1 yview scroll [expr -2-abs(%D)/%D] units + } + }} } } errMsg if {[string compare "" $errMsg] != 0} {puts stderr "ERROR: $errMsg"} }

1 0

pd/src u_main.tk,1.1.1.4.2.7.4.37,1.1.1.4.2.7.4.38
by Mathieu Bouchard 10 Apr '04

10 Apr '04

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30432 Modified Files: Tag: impd_0_37 u_main.tk Log Message: ... Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.1.1.4.2.7.4.37 retrieving revision 1.1.1.4.2.7.4.38 diff -C2 -d -r1.1.1.4.2.7.4.37 -r1.1.1.4.2.7.4.38 *** u_main.tk 8 Apr 2004 10:48:12 -0000 1.1.1.4.2.7.4.37 --- u_main.tk 10 Apr 2004 19:02:49 -0000 1.1.1.4.2.7.4.38 *************** *** 30,33 **** --- 30,41 ---- proc l+ {al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a+$b]}; return $r} + proc lreverse {list} { + set r {} + for {set i [expr [llength $list]-1]} {$i>=0} {incr i -1} { + lappend r [lindex $list $i] + } + return $r + } + # there are two palettes of 30 colours used in Pd # when placed in a 3*10 grid, the difference is that *************** *** 141,145 **** proc pdtk_pd_dio {red} { ! .controls.dio configure -background red -activebackground [if {$red==1} {list red} {list lightgrey}] } --- 149,154 ---- proc pdtk_pd_dio {red} { ! .controls.switches.dio configure -background red \ ! -activebackground [if {$red==1} {list red} {list lightgrey}] } *************** *** 529,548 **** } proc stat_pos_update {self x y} { set canvas $self.c ! set x [$canvas canvasx $x] ! set y [$canvas canvasy $y] ! $self.stat.pos configure -text "($x,$y)" ! set stack [$canvas find overlapping [expr $x-2] [expr $y-2] [expr $x+2] [expr $y+2]] ! set tags [$canvas gettags [lindex $stack end]] ! if {[regexp {^([a-f0-9]{7})} $tags tag]} { ! global _ ! if {[info exists _($tag:class)]} {set class $_($tag:class)} {set class unknown} ! $self.stat.what configure -text "$tag \[$class\] ($tags)" ! return ! } ! if {[regexp {^l([a-f0-9]{7})} $tags tag]} { ! $self.stat.what configure -text "$tag wire" ! return } $self.stat.what configure -text "... $tags" --- 538,562 ---- } + ######### + proc stat_pos_update {self x y} { + global _ set canvas $self.c ! set cx [$canvas canvasx $x] ! set cy [$canvas canvasy $y] ! $self.stat.pos configure -text "($cx,$cy)" ! set tags [$canvas gettags [lindex [$canvas find overlapping \ ! [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]] end]] ! foreach {type id} [identify_target $canvas $cx $cy -1 -1 "click"] {} ! switch $type { ! object { ! if {[info exists _($id:class)]} {set class $_($id:class)} {set class unknown} ! $self.stat.what configure -text "$id \[$class\] ($tags)" ! return ! } ! wire { ! $self.stat.what configure -text "$id wire" ! return ! } } $self.stat.what configure -text "... $tags" *************** *** 784,799 **** proc identify_target {canvas cx cy b f label} { ! set stack [$canvas find overlapping [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]] ! set tags [$canvas gettags [lindex $stack end]] #puts stderr "($label) $canvas $cx $cy $b $f : $tags " ! if {[regexp {^([a-f0-9]{7})} $tags tag]} { ! global _ ! if {[info exists _($tag:class)]} {set class $_($tag:class)} {set class unknown} ! #puts stderr "(.....) $tag is a \[$class\] object" ! return [list "object" $tag] } ! if {[regexp {^l([a-f0-9]{7})} $tags tag]} { ! #puts stderr "(.....) this is a wire" ! return [list "wire" $tag] } #puts stderr "(.....) nothing in particular" --- 798,817 ---- proc identify_target {canvas cx cy b f label} { ! set stack [lreverse [$canvas find overlapping \ ! [expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]]] #puts stderr "($label) $canvas $cx $cy $b $f : $tags " ! foreach tag $stack { ! if {[regexp {^([a-f0-9]{7})} [$canvas gettags $tag] id]} { ! global _ ! if {[info exists _($id:class)]} {set class $_($id:class)} {set class unknown} ! #puts stderr "(.....) $id is a \[$class\] object" ! return [list "object" $id] ! } } ! foreach tag $stack { ! if {[regexp {^l([a-f0-9]{7})} [$canvas gettags $tag] id]} { ! #puts stderr "(.....) this is a wire" ! return [list "wire" $id] ! } } #puts stderr "(.....) nothing in particular" *************** *** 806,819 **** set cx [$canvas canvasx $x] set cy [$canvas canvasy $y] pd [canvastosym $canvas] mouse $cx $cy $b $f \; ! foreach {type tag} [identify_target $canvas $x $y $b $f "click"] {} switch $type { object { ! pd "$self click-on-object $tag $cx $cy $b $f;" ! if {$_($self:mode)=="edit" && [llength [$canvas bbox ${tag}BASE]]} { ! foreach {x1 y1 x2 y2} [$canvas bbox ${tag}BASE] {} ! if {abs($y2-1-$cy)<=3} { ! set out [expr int(($cx-$x1)*$_($tag:outlets)/($x2-$x1))] ! foreach {ox1 oy1 ox2 oy2} [$canvas bbox ${tag}o${out}] {} wire_draw lnew $canvas 1 $cx $cy $cx $cy $canvas itemconfigure lnew -dash "4 4 4 4" --- 824,841 ---- set cx [$canvas canvasx $x] set cy [$canvas canvasy $y] + set edit 0; switch $_($self:mode) { edit { set edit 1 } } pd [canvastosym $canvas] mouse $cx $cy $b $f \; ! foreach {type id} [identify_target $canvas $x $y $b $f "click"] {} switch $type { object { ! pd "$self click-on-object $id $cx $cy $b $f;" ! if {$edit && [llength [$canvas bbox ${id}BASE]]} { ! foreach {x1 y1 x2 y2} [$canvas bbox ${id}BASE] {} ! if {abs($y2-3-$cy)<=3} { ! set outs 0 ! catch {set outs $_($id:outlets)} ! if {$outs==0} return ! set out [expr int(($cx-$x1)*$outs/($x2-$x1))] ! foreach {ox1 oy1 ox2 oy2} [$canvas bbox ${id}o${out}] {} wire_draw lnew $canvas 1 $cx $cy $cx $cy $canvas itemconfigure lnew -dash "4 4 4 4" *************** *** 822,826 **** } wire { ! pd "[canvastosym $canvas] click-on-wire $tag $cx $cy $b $f;" } } --- 844,848 ---- } wire { ! pd "[canvastosym $canvas] click-on-wire $id $cx $cy $b $f;" } } *************** *** 831,836 **** --- 853,860 ---- proc pdtk_canvas_motion {canvas x y mods} { global current_x current_y tooltip _ dehighlight look + set self [canvastosym $canvas] set cx [$canvas canvasx $x] set cy [$canvas canvasy $y] + set edit 0; switch $_($self:mode) { edit { set edit 1 } } if {$tooltip(visible)} { #puts "cx=$cx cy=$cy tooltip=($tooltip(mx),$tooltip(my),$tooltip(canvas),$tooltip(visible)" *************** *** 844,862 **** set current_y $cy pd [canvastosym $canvas] motion $x $y $mods \; ! foreach {type tag} [identify_target $canvas $x $y -1 -1 "move "] {} switch $type { object { ! if {[llength [$canvas bbox ${tag}BASE]]} { ! foreach {x1 y1 x2 y2} [$canvas bbox ${tag}BASE] {} ! post "cx=$cx cy=$cy x1=$x1 y1=$y1 x2=$x2 y2=$y2" ! if {abs($y2-1-$cy)<=3} { ! set out [expr int(($cx-$x1)*$_($tag:outlets)/($x2-$x1))] $canvas create rectangle \ ! [l+ [$canvas coords ${tag}o${out}] {-4 -4 +4 +4}] \ ! -outline $look(outletfg) -width 1 -tags ${tag}o${out}b ! set dehighlight "$canvas delete ${tag}o${out}b" } } { ! post "BASEless object?" } } --- 868,889 ---- set current_y $cy pd [canvastosym $canvas] motion $x $y $mods \; ! foreach {type id} [identify_target $canvas $x $y -1 -1 "move "] {} switch $type { object { ! if {$edit && [llength [$canvas bbox ${id}BASE]]} { ! foreach {x1 y1 x2 y2} [$canvas bbox ${id}BASE] {} ! #post "id=$id cx=$cx cy=$cy x1=$x1 y1=$y1 x2=$x2 y2=$y2" ! if {abs($y2-3-$cy)<=3} { ! set outs 0 ! catch {set outs $_($id:outlets)} ! if {$outs==0} return ! set out [expr int(($cx-$x1)*$outs/($x2-$x1))] $canvas create rectangle \ ! [l+ [$canvas coords ${id}o${out}] {-4 -4 +4 +4}] \ ! -outline $look(outletfg) -width 1 -tags ${id}o${out}b ! set dehighlight "$canvas delete ${id}o${out}b" } } { ! #post "BASEless object?" } } *************** *** 876,880 **** } ! proc pdtk_start_wire {canvas x y b f} { # if (ob && (noutlet = obj_noutlets(ob)) && ypos >= y2-4) {} {return} # width = x2-x1 --- 903,907 ---- } ! #proc pdtk_start_wire {canvas x y b f} { # if (ob && (noutlet = obj_noutlets(ob)) && ypos >= y2-4) {} {return} # width = x2-x1 *************** *** 891,895 **** # } {canvas_setcursor(x, CURSOR_EDITMODE_CONNECT)} # } {if (doit) goto nooutletafterall} ! } set pdtk_canvas_mouseup(name) 0 --- 918,922 ---- # } {canvas_setcursor(x, CURSOR_EDITMODE_CONNECT)} # } {if (doit) goto nooutletafterall} ! #} set pdtk_canvas_mouseup(name) 0 *************** *** 2097,2107 **** proc post_to_gui {x} { global cmdline console_scrollback_count ! set oldpos [lindex [.log.2 get] 1] ! .log.1 insert end $x ! incr console_scrollback_count ! if {$console_scrollback_count >= $cmdline(console)} { ! .log.1 delete 1.0 2.0 } - if {$oldpos > 0.9999} {.log.1 see end} } --- 2124,2138 ---- proc post_to_gui {x} { global cmdline console_scrollback_count ! if {[catch { ! set oldpos [lindex [.log.2 get] 1] ! .log.1 insert end $x ! incr console_scrollback_count ! if {$console_scrollback_count >= $cmdline(console)} { ! .log.1 delete 1.0 2.0 ! } ! if {$oldpos > 0.9999} {.log.1 see end} ! }]} { ! puts -nonewline stderr $x } } *************** *** 2517,2523 **** # woops, self is for future use proc show_canvas_tooltip {self canvas x y text} { set border 4 set x [expr $x+$border+4] - hide_canvas_tooltip $canvas $canvas create text $x $y -text $text -anchor w -tags tooltip_fg foreach {x1 y1 x2 y2} [$canvas bbox tooltip_fg] {} --- 2548,2556 ---- # woops, self is for future use proc show_canvas_tooltip {self canvas x y text} { + global current_x current_y tooltip + if {$tooltip(visible) && [string compare $text $tooltip(text)==0]} {return} + hide_canvas_tooltip $canvas set border 4 set x [expr $x+$border+4] $canvas create text $x $y -text $text -anchor w -tags tooltip_fg foreach {x1 y1 x2 y2} [$canvas bbox tooltip_fg] {} *************** *** 2529,2539 **** -fill "#ffffcc" -outline "#000000" -tags tooltip_bg $canvas lower tooltip_bg tooltip_fg - global current_x current_y - global tooltip set tooltip(mx) $current_x set tooltip(my) $current_y set tooltip(canvas) $canvas set tooltip(visible) 1 ! set tooltop(text) $text } --- 2562,2570 ---- -fill "#ffffcc" -outline "#000000" -tags tooltip_bg $canvas lower tooltip_bg tooltip_fg set tooltip(mx) $current_x set tooltip(my) $current_y set tooltip(canvas) $canvas set tooltip(visible) 1 ! set tooltip(text) $text }

1 0

externals/pmpd/src makefile,1.1.1.1,1.2
by cyrille 10 Apr '04

10 Apr '04

Update of /cvsroot/pure-data/externals/pmpd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20758/src Modified Files: makefile Log Message: change pd_nt makefile to adapt to the cvs structure Index: makefile =================================================================== RCS file: /cvsroot/pure-data/externals/pmpd/src/makefile,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** makefile 9 Apr 2004 16:55:40 -0000 1.1.1.1 --- makefile 10 Apr 2004 18:07:40 -0000 1.2 *************** *** 13,17 **** VC="C:\Program Files\Microsoft Visual Studio\Vc98" ! PDNTINCLUDE = /I. /I\tcl\include /I\pds\win32\pd36\src /I$(VC)\include PDNTLDIR = $(VC)\lib --- 13,17 ---- VC="C:\Program Files\Microsoft Visual Studio\Vc98" ! PDNTINCLUDE = /I. /I\tcl\include /I..\..\..\pd\src /I$(VC)\include PDNTLDIR = $(VC)\lib *************** *** 19,23 **** $(PDNTLDIR)\oldnames.lib \ $(PDNTLDIR)\kernel32.lib \ ! \pds\win32\pd37\bin\pd.lib .c.dll: --- 19,23 ---- $(PDNTLDIR)\oldnames.lib \ $(PDNTLDIR)\kernel32.lib \ ! ..\..\..\pd\bin\pd.lib .c.dll: *************** *** 27,31 **** # ----------------------- IRIX 5.x ----------------------- ! pd_irix5: foo1.pd_irix5 foo2.pd_irix5 dspobj~.pd_irix5 .SUFFIXES: .pd_irix5 --- 27,31 ---- # ----------------------- IRIX 5.x ----------------------- ! pd_irix5: pmpd.pd_irix5 .SUFFIXES: .pd_irix5 *************** *** 43,47 **** # ----------------------- IRIX 6.x ----------------------- ! pd_irix6: foo1.pd_irix6 foo2.pd_irix6 dspobj~.pd_irix6 .SUFFIXES: .pd_irix6 --- 43,47 ---- # ----------------------- IRIX 6.x ----------------------- ! pd_irix6: pmpd.pd_irix6 .SUFFIXES: .pd_irix6

1 0

externals/tbext him.pd,1.1,1.2
by Tim Blechmann 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/tbext In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24696 Modified Files: him.pd Log Message: some updates Index: him.pd =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/him.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** him.pd 30 Mar 2004 18:44:27 -0000 1.1 --- him.pd 9 Apr 2004 13:42:58 -0000 1.2 *************** *** 1,42 **** #N canvas 0 0 680 378 10; #X obj 48 338 dac~; ! #X msg 117 142 output \$1; ! #X obj 117 120 hradio 15 1 0 6 empty empty empty 0 -6 0 8 -262144 -1 ! -1 0; ! #X msg 125 191 regtime \$1; ! #X obj 125 169 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 51 15 hsl 128 15 1e-04 1 1 0 empty empty dt -2 -6 0 8 -262144 ! -1 -1 0 0; #X msg 48 37 dt \$1; #X msg 80 84 e \$1; #X obj 83 65 hsl 128 15 -1 0 0 0 empty empty etilde -2 -6 0 8 -262144 ! -1 -1 0 0; #X floatatom 122 85 5 0 0 0 - - -; #X floatatom 106 40 5 0 0 0 - - -; ! #X msg 158 224 reset; ! #X msg 179 258 state; #X obj 48 309 him~ -0.3; - #X text 216 123 switch beween mu \, muv \, nu \, nuv \, x and y; - #X text 224 66 set the etilde of the system if it's positive \, the - electron will leave the atom; #X text 194 13 set the timesteps for the 4th order runge-kutta approximation ; ! #X text 215 190 use the real or the regulated time; ! #X text 218 223 randomize new values (warning! this may click!!!); ! #X text 231 257 returns the state of the system; ! #X text 128 308 the optional argument is the etilde of the system; ! #X connect 1 0 13 0; #X connect 2 0 1 0; ! #X connect 3 0 13 0; ! #X connect 4 0 3 0; ! #X connect 5 0 6 0; ! #X connect 5 0 10 0; ! #X connect 6 0 13 0; ! #X connect 7 0 13 0; ! #X connect 8 0 7 0; ! #X connect 8 0 9 0; ! #X connect 11 0 13 0; ! #X connect 12 0 13 0; ! #X connect 13 0 0 0; ! #X connect 13 0 0 1; --- 1,57 ---- #N canvas 0 0 680 378 10; #X obj 48 338 dac~; ! #X msg 125 144 regtime \$1; ! #X obj 125 122 tgl 15 1 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 51 15 hsl 128 15 1e-04 1 1 0 empty empty dt -2 -6 0 8 -262144 ! -1 -1 10400 0; #X msg 48 37 dt \$1; #X msg 80 84 e \$1; #X obj 83 65 hsl 128 15 -1 0 0 0 empty empty etilde -2 -6 0 8 -262144 ! -1 -1 6000 0; #X floatatom 122 85 5 0 0 0 - - -; #X floatatom 106 40 5 0 0 0 - - -; ! #X msg 158 177 reset; ! #X msg 179 211 state; #X obj 48 309 him~ -0.3; #X text 194 13 set the timesteps for the 4th order runge-kutta approximation ; ! #X text 215 143 use the real or the regulated time; ! #X text 218 176 randomize new values (warning! this may click!!!); ! #X text 231 210 returns the state of the system; ! #X text 224 66 set the etilde of the system if it's positive \, the ! electron will leave the atom (if you change it during dsp computation ! \, it will click); ! #X text 128 308 the optional argument is the etilde of the system returns ! mu \, mu velocity \, nu \, nu velocity \, x and y. Based on physical ! models of an atom in a magnetic field...; ! #X obj 608 207 loadbang; ! #X msg 608 271 muv 1.22293; ! #X msg 608 292 nu -0.065661 \;; ! #X msg 607 252 mu -1.43572 \;; ! #X obj 608 228 t b b; ! #X msg 608 318 \; pd dsp 1; ! #X connect 1 0 11 0; #X connect 2 0 1 0; ! #X connect 3 0 4 0; ! #X connect 3 0 8 0; ! #X connect 4 0 11 0; ! #X connect 5 0 11 0; ! #X connect 6 0 5 0; ! #X connect 6 0 7 0; ! #X connect 9 0 11 0; ! #X connect 10 0 11 0; ! #X connect 11 0 0 0; ! #X connect 11 1 0 1; ! #X connect 11 2 0 0; ! #X connect 11 3 0 1; ! #X connect 11 4 0 0; ! #X connect 11 5 0 1; ! #X connect 18 0 22 0; ! #X connect 19 0 11 0; ! #X connect 20 0 11 0; ! #X connect 21 0 11 0; ! #X connect 22 0 23 0; ! #X connect 22 1 21 0; ! #X connect 22 1 19 0; ! #X connect 22 1 20 0;

1 0

externals/tbext/source him.cpp,1.2,1.3
by Tim Blechmann 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/tbext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24408/source Modified Files: him.cpp Log Message: some updates Index: him.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/tbext/source/him.cpp,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** him.cpp 31 Mar 2004 11:44:38 -0000 1.2 --- him.cpp 9 Apr 2004 13:42:01 -0000 1.3 *************** *** 72,76 **** void set_dt(t_float); void set_regtime(bool); - void set_output(t_int); void state(); void reset(); --- 72,75 ---- *************** *** 93,97 **** //and these our settings t_float dt; - t_int output; //mu, muv, nu, nuv, x, y bool regtime; //if true "regularisierte zeit" --- 92,95 ---- *************** *** 104,108 **** FLEXT_CALLBACK_1(set_dt,t_float); FLEXT_CALLBACK_1(set_regtime,bool); - FLEXT_CALLBACK_1(set_output,t_int); FLEXT_CALLBACK(state); FLEXT_CALLBACK(reset); --- 102,105 ---- *************** *** 136,139 **** --- 133,141 ---- AddInAnything(); AddOutSignal(); + AddOutSignal(); + AddOutSignal(); + AddOutSignal(); + AddOutSignal(); + AddOutSignal(); FLEXT_ADDMETHOD_F(0,"mu",set_mu); FLEXT_ADDMETHOD_F(0,"muv",set_muv); *************** *** 143,147 **** FLEXT_ADDMETHOD_F(0,"dt",set_dt); FLEXT_ADDMETHOD_B(0,"regtime",set_regtime); - FLEXT_ADDMETHOD_I(0,"output",set_output); FLEXT_ADDMETHOD_(0,"state",state); FLEXT_ADDMETHOD_(0,"reset",reset); --- 145,148 ---- *************** *** 160,164 **** //default mode regtime=true; - output=0; dt=0.01; } --- 161,164 ---- *************** *** 200,205 **** data[i] = data[i] + (k1[i] + (2.*(k2[i]+k3[i])) + k4[i])/6.; } ! ! reset_muv(); } --- 200,215 ---- data[i] = data[i] + (k1[i] + (2.*(k2[i]+k3[i])) + k4[i])/6.; } ! ! ! /* ! the system might become unstable ... in this case, we'll reset the system ! */ ! ! for(i=0;i<=NUMB_EQ-1;i++) ! if(data[i]>2) ! reset(); ! else ! if(PD_BADFLOAT(data[i])) //not that we get some troubles with denormals ! data[i]=0; } *************** *** 209,324 **** void him::m_signal(int n, t_float *const *in, t_float *const *out) { - outs = out[0]; - if (regtime) { ! switch (output) { ! case 0: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=data[0]; ! } ! break; ! ! case 1: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=data[1]; ! } ! break; ! ! case 2: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=data[2]; ! } ! break; ! ! case 3: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=data[3]; ! } ! break; ! ! case 4: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=data[0]*data[2]; ! } ! break; ! ! case 5: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt); ! *(outs+j)=(data[0]*data[0]-data[2]*data[2])*0.5; ! } ! break; } } else { ! switch (output) ! { ! case 0: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=data[0]; ! } ! break; ! ! case 1: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=data[1]; ! } ! break; ! ! case 2: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=data[2]; ! } ! break; ! ! case 3: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=data[3]; ! } ! break; ! ! case 4: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=data[0]*data[2]; ! } ! break; ! ! case 5: ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(outs+j)=(data[0]*data[0]-data[2]*data[2])*0.5; ! } ! break; } } --- 219,247 ---- void him::m_signal(int n, t_float *const *in, t_float *const *out) { if (regtime) { ! for (int j=0;j!=n;++j) { ! runge_kutta_4(dt); ! *(out[0]+j)=data[0]; ! *(out[1]+j)=data[1]; ! *(out[2]+j)=data[2]; ! *(out[3]+j)=data[3]; ! *(out[4]+j)=data[0]*data[2]; ! *(out[5]+j)=(data[0]*data[0]-data[2]*data[2])*0.5; } } else { ! for (int j=0;j!=n;++j) ! { ! runge_kutta_4(dt/ ! (2*sqrt(data[0]*data[0]+data[2]*data[2]))); ! *(out[0]+j)=data[0]; ! *(out[1]+j)=data[1]; ! *(out[2]+j)=data[2]; ! *(out[3]+j)=data[3]; ! *(out[4]+j)=data[0]*data[2]; ! *(out[5]+j)=(data[0]*data[0]-data[2]*data[2])*0.5; } } *************** *** 366,373 **** } - void him::set_output(t_int i) - { - output=i; - } void him::state() --- 289,292 ---- *************** *** 385,389 **** data[1]=float(rand())/float(RAND_MAX); data[2]=float(rand())/float(RAND_MAX); ! reset_muv(); post("randomizing values"); } --- 304,308 ---- data[1]=float(rand())/float(RAND_MAX); data[2]=float(rand())/float(RAND_MAX); ! reset_nuv(); post("randomizing values"); }

1 0

abstractions/audionerd nbx~.pd,NONE,1.1
by eric skogen 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/abstractions/audionerd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29740/audionerd Added Files: nbx~.pd Log Message: first import of nbx~, a GOP abstraction that shows the signal input (-1 ... 1) it receives in a number box on the parent patch. --- NEW FILE: nbx~.pd --- #N canvas 0 0 466 316 12; #X obj 148 130 cnv 10 38 16 empty empty empty 20 12 0 14 -262144 -66577 0; #X obj 192 132 nbx 5 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 1 7 -262144 -1 -1 0 256; #X obj 193 28 inlet~; #X obj 192 111 snapshot~; #X obj 213 60 loadbang; #X obj 192 165 outlet; #X obj 213 78 metro 20; #X connect 1 0 5 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 6 0; #X connect 6 0 3 0; #X coords 0 0 1 1 1 1 1;

1 0

externals/debian rules,1.17,1.18
by Hans-Christoph Steiner 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/debian In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20527 Modified Files: rules Log Message: added cyclone docs Index: rules =================================================================== RCS file: /cvsroot/pure-data/externals/debian/rules,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** rules 18 Mar 2004 17:22:02 -0000 1.17 --- rules 9 Apr 2004 03:55:04 -0000 1.18 *************** *** 154,159 **** mkdirhier $(CURDIR)/debian/tmp/usr/lib/pd/externs/cyclone install $(CURDIR)/miXed/bin/*.pd_linux $(CURDIR)/debian/tmp/usr/lib/pd/externs/cyclone/ ! mkdirhier $(CURDIR)/debian/tmp/usr/lib/pd/doc/cyclone ! install -m 644 $(CURDIR)/miXed/test/cyclone/*.pd $(CURDIR)/debian/tmp/usr/lib/pd/doc/cyclone --- 154,159 ---- mkdirhier $(CURDIR)/debian/tmp/usr/lib/pd/externs/cyclone install $(CURDIR)/miXed/bin/*.pd_linux $(CURDIR)/debian/tmp/usr/lib/pd/externs/cyclone/ ! install -m 644 $(CURDIR)/miXed/test/cyclone/*.pd $(CURDIR)/miXed/doc/*/cyclone/*.* \ ! $(CURDIR)/debian/tmp/usr/lib/pd/doc/5.reference

1 0

externals/build/doc makefile,1.1,1.2
by Hans-Christoph Steiner 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/build/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19247 Modified Files: makefile Log Message: removed objects that are already in cyclone Index: makefile =================================================================== RCS file: /cvsroot/pure-data/externals/build/doc/makefile,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** makefile 8 Apr 2004 03:55:29 -0000 1.1 --- makefile 9 Apr 2004 03:48:00 -0000 1.2 *************** *** 40,43 **** --- 40,47 ---- ../../zhzxh~/*.pd \ $(DOC_DIR) + # remove help files for objects that are not included due to conflicts, etc. + # mjlib [prob] conflicts with cyclone's [prob] + rm prob.pd + # make files read-only so people don't mistaken change their help files chmod a-wx *.*

1 0

externals/build/src prob.c,1.1,NONE
by Hans-Christoph Steiner 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/build/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11918 Removed Files: prob.c Log Message: removed objects that are already in cyclone --- prob.c DELETED ---

1 0

externals/miXed/doc/help/toxy tot-help.pd,NONE,1.1
by Hans-Christoph Steiner 09 Apr '04

09 Apr '04

Update of /cvsroot/pure-data/externals/miXed/doc/help/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10704/toxy Added Files: tot-help.pd Log Message: added beginnings of tot-help.pd --- NEW FILE: tot-help.pd --- #N canvas 176 71 848 625 10; #X text 13 15 creation arguments; #X obj 41 63 tot window_name scriptlet; #X obj 453 500 tot other_window; #X msg 500 118 read; #X msg 507 139 write; #X msg 455 55 tot; #X msg 543 176 push; #X msg 550 197 qpush; #X msg 467 76 query; #X msg 588 265 add; #X msg 582 246 reset; #X msg 595 284 addnext; #X msg 596 334 prealloc; #X text 589 318 preset scriptlet buffer size; #X text 565 228 build a scriptlet dynamically; #X msg 597 371 capture; #X text 595 354 capture gui messages from a window; #X text 491 103 read and write scriplets from files; #X msg 591 408 attach; #X msg 591 432 detach; #X msg 576 472 lastmotion; #N canvas 553 323 458 308 examples 0; #X obj 34 137 tot-qlist; #X obj 34 91 tot-monkey; #X text 121 90 an example of capturing gui messages; #X obj 35 20 tot-cover; #X obj 35 67 tot-head; #X obj 35 43 tot-files; #X obj 34 113 tot-nomenu; #X obj 34 159 tot-query; #X obj 34 182 tot-rstring; #X text 120 112 remove the menu from a window; #X restore 700 579 pd examples; #X text 16 254 scriptlets; #X text 28 273 A scriptlet is a sequence of Pd atoms (symbols and floats) which is to be transferred to the pd-gui process for execution.; #X text 547 16 all [tot] messages; #X text 40 87 window_name - which window to receive message from; #X text 39 101 scriptlet - a Tcl scriptlet to be read on [tot] load ; #X text 16 320 dot-sequences; #X text 30 333 Symbols in a scriptlet may contain special dot-sequences: dot-parameters \, dot-names \, callback brackets \, and dot-separators. All of these start with a dot followed by a hash \, dash \, hat \, tilde \, grave \, colon \, or angle or square bracket.; #N canvas 35 135 503 486 capture 0; #X obj 74 113 tot; #X obj 271 111 tot .; #X text 102 47 These reference this window:; #X msg 74 95 capture \$1; #X obj 74 69 tgl 25 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 271 93 capture \$1; #X obj 271 67 tgl 25 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 301 130 bng 18 750 50 0 empty empty banged_on_window_creation 20 8 1 9 -262144 -1 -1; #X msg 180 298 capture \$1; #X obj 180 241 tgl 25 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 180 317 tot other_window; #X msg 192 267 \; pd-other_window vis \$1; #X obj 287 337 bng 18 750 50 0 empty empty banged_on_window_creation 20 8 1 9 -262144 -1 -1; #X obj 90 132 bng 18 750 50 0 empty empty banged_on_window_creation 20 8 1 9 -262144 -1 -1; #X text 72 34 [capture( message; #N canvas 470 50 510 360 other_window 0; #X restore 326 218 pd other_window; #X obj 291 150 prepend set; #X msg 291 169 motion 279 76 0; #X obj 84 152 prepend set; #X msg 84 171 motion 279 76 0; #X obj 251 357 prepend set; #X msg 251 376 motion 279 76 0; #X text 38 217 you can capture from other windows too:; #X text 38 401 - To capture from subpatches \, just add "pd-" to the front of name of the subpatch: pd-my_subpatch; #X text 37 436 - To capture from abstractions \, add "pd-" to the front of the file name of the abtraction: pd-my_abstraction.pd; #X text 17 9 capturing canvas/glist messages with [tot]; #X connect 0 2 18 0; #X connect 0 3 13 0; #X connect 1 2 16 0; #X connect 1 3 7 0; #X connect 3 0 0 0; #X connect 4 0 3 0; #X connect 5 0 1 0; #X connect 6 0 5 0; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 9 0 11 0; #X connect 10 2 20 0; #X connect 10 3 12 0; #X connect 16 0 17 0; #X connect 18 0 19 0; #X connect 20 0 21 0; #X restore 700 379 pd capture; #X text 27 405 .- a Tk pathname of a destination item; #X text 28 431 .^ a Tk pathname of a destination window; #X text 28 455 .^.c a Tk pathname of a destination canvas; #X text 19 481 dot-separators; #X text 37 506 .` is a backslash; #X text 37 519 .: is a semicolon; #X text 37 533 .( and .) are curly braces; #X text 27 38 Both creation arguments are optional.; #X text 29 121 If [tot] has no creation arguments \, it will grab its parent window.; #X text 32 570 help page by Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 29 586 [tot] and example patches by Krzysztof Czaja; #X text 19 162 outlets; #X text 440 579 for examples of ways to use tot \, see:; #X text 23 221 4 - outlet #4 is banged when the window; #X text 24 205 3 - outlet #4 outputs the msgs set to the specified window; #X connect 3 0 2 0; #X connect 4 0 2 0; #X connect 5 0 2 0; #X connect 6 0 2 0; #X connect 7 0 2 0; #X connect 8 0 2 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 2 0; #X connect 12 0 2 0; #X connect 15 0 2 0; #X connect 18 0 2 0; #X connect 19 0 2 0; #X connect 20 0 2 0;

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs April 2004