Pd-cvs May 2005

pd-cvs@lists.iem.at

14 participants
407 discussions

CVSROOT cvswrappers,1.4,1.5
by Hans-Christoph Steiner 25 May '05

25 May '05

Update of /cvsroot/pure-data/CVSROOT In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20826 Modified Files: cvswrappers Log Message: added rules to prevent keyword replacement on imported portaudio sources, hope it works... Index: cvswrappers =================================================================== RCS file: /cvsroot/pure-data/CVSROOT/cvswrappers,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** cvswrappers 21 Aug 2003 23:14:06 -0000 1.4 --- cvswrappers 25 May 2005 06:29:02 -0000 1.5 *************** *** 81,82 **** --- 81,88 ---- # MACOS X FILES *.pmsp -k 'b' + + # prevent keyword replacement on imported sources + # 2005-05-20 <hans(a)at.or.at> + portaudio/* -k 'b' + portaudio_osx/* -k 'b' + portaudio_v18/* -k 'b'

1 0

extensions/gui/ix kbd-demo.pd, 1.3, 1.4 kbd.wid, 1.3, 1.4 mat-demo.pd, 1.4, 1.5
by carmen rocco 25 May '05

25 May '05

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18155 Modified Files: kbd-demo.pd kbd.wid mat-demo.pd Log Message: . Index: kbd-demo.pd =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/kbd-demo.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** kbd-demo.pd 24 May 2005 22:28:08 -0000 1.3 --- kbd-demo.pd 24 May 2005 23:38:22 -0000 1.4 *************** *** 1,3 **** ! #N canvas 360 12 554 299 12; #X obj 56 57 widget kbd k1 #octaves 7 -width 444.094 -height 63.4421 ; --- 1,3 ---- ! #N canvas 360 12 574 324 12; #X obj 56 57 widget kbd k1 #octaves 7 -width 444.094 -height 63.4421 ; *************** *** 7,12 **** #X floatatom 98 135 5 0 0 0 - - -; #X obj 56 29 pack 0 1; ! #X floatatom 56 11 5 0 0 0 - - -; ! #X obj 98 12 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X floatatom 21 32 5 0 0 0 - - -; --- 7,12 ---- #X floatatom 98 135 5 0 0 0 - - -; #X obj 56 29 pack 0 1; ! #X floatatom 56 13 5 0 0 0 - - -; ! #X obj 99 14 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X floatatom 21 32 5 0 0 0 - - -; *************** *** 18,32 **** #X obj 81 242 *~; #X obj 92 173 * 0.4; - #X floatatom 115 14 5 0 1 0 - - -; #X floatatom 149 21 5 0 12 0 - - -; #X msg 148 38 #octaves \$1; ! #X obj 165 140 widget kbd k2 #octaves 3 #bg purple #fg pink -height 32; #X obj 56 174 + 36; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 1 1 3 0; ! #X connect 2 0 20 0; #X connect 3 0 15 0; #X connect 5 0 0 0; --- 18,39 ---- #X obj 81 242 *~; #X obj 92 173 * 0.4; #X floatatom 149 21 5 0 12 0 - - -; #X msg 148 38 #octaves \$1; ! #X obj 143 134 widget kbd k2 #octaves 3 #bg hotpink #fg orange -height 32; #X obj 56 174 + 36; + #X obj 345 134 widget kbd k2 #octaves 3 #bg blue #fg cyan -height 32 + ; + #X obj 207 232 * 127; + #X obj 171 230 + 36; + #X obj 171 265 noteout; + #X obj 170 203 unpack 0 0 0; + #X obj 160 172 Append 1; + #X obj 232 173 Append 2; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 1 1 3 0; ! #X connect 2 0 19 0; #X connect 3 0 15 0; #X connect 5 0 0 0; *************** *** 41,47 **** #X connect 14 0 13 1; #X connect 15 0 12 0; ! #X connect 16 0 5 1; ! #X connect 17 0 18 0; ! #X connect 18 0 0 0; ! #X connect 19 0 1 0; ! #X connect 20 0 10 0; --- 48,61 ---- #X connect 14 0 13 1; #X connect 15 0 12 0; ! #X connect 16 0 17 0; ! #X connect 17 0 0 0; ! #X connect 18 0 25 0; ! #X connect 19 0 10 0; ! #X connect 20 0 26 0; ! #X connect 21 0 23 1; ! #X connect 22 0 23 0; ! #X connect 24 0 22 0; ! #X connect 24 1 21 0; ! #X connect 24 2 23 2; ! #X connect 25 0 24 0; ! #X connect 26 0 24 0; Index: kbd.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/kbd.wid,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** kbd.wid 24 May 2005 22:42:42 -0000 1.3 --- kbd.wid 24 May 2005 23:38:22 -0000 1.4 *************** *** 1,3 **** --- 1,11 ---- namespace eval ::ix { + proc kbd_list {p t args} { + variable _ + set w $p.f[expr [lindex $args 0] / 12].[lindex $args 0] + if {[llength $args] == 1} {set v 1;if {$_($t:lp) != -1 && $_($t:lp) ne $w} {kbd_action $_($t:lp) $t 0}} {set v [lindex $args 1]} + kbd_action $w $t $v + set _($t:lp) $w + } + proc kbd_play {t m b x y} { variable _ *************** *** 16,21 **** for {set o 0} {$o < $octaves} {incr o} { for {set on 0} {$on < 12} {incr on} { ! set no [expr $o * 12 + $on] ! if {[$p.f$o.$no cget -relief] eq "sunken"} {kbd_action $p.f$o.$no $t 0}}}} proc kbd {path t octaves b f} { --- 24,29 ---- for {set o 0} {$o < $octaves} {incr o} { for {set on 0} {$on < 12} {incr on} { ! set w $p.f$o.[expr $o * 12 + $on] ! if {[$w cget -relief] eq "sunken"} {kbd_action $w $t 0}}}} proc kbd {path t octaves b f} { *************** *** 37,40 **** #. -height 100 -width 60 #. #octaves 6 #bg black #fg white ! ::ix::kbd .- .| .#octaves .#bg .#fg --- 45,49 ---- #. -height 100 -width 60 #. #octaves 6 #bg black #fg white ! #. @list ::ix::kbd_list .- .| .#args ! #. @float ::ix::kbd_list .- .| .#args ::ix::kbd .- .| .#octaves .#bg .#fg Index: mat-demo.pd =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/mat-demo.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mat-demo.pd 24 May 2005 22:28:08 -0000 1.4 --- mat-demo.pd 24 May 2005 23:38:22 -0000 1.5 *************** *** 20,24 **** #X obj 16 901 pack f f f; #X obj 18 958 print note; ! #X obj 73 927 makenote 99 250; #X obj 92 961 noteout; #X msg 317 2 #Ya 1 \, #Yb 128 \, #qYv 8; --- 20,24 ---- #X obj 16 901 pack f f f; #X obj 18 958 print note; ! #X obj 39 925 makenote 99 250; #X obj 92 961 noteout; #X msg 317 2 #Ya 1 \, #Yb 128 \, #qYv 8; *************** *** 27,39 **** #X obj 109 775 widget kbd k1 #bg blue #fg green -height 32; #X obj 207 823 widget kbd k2 #bg blue #fg green -height 32; - #X obj 97 854 unpack 0 0; - #X obj 98 897 pack 0 0 1; - #X obj 211 894 * 127; - #X obj 175 892 + 36; - #X obj 187 869 unpack 0 0; - #X obj 188 912 pack 0 0 2; #X msg 283 874 redefine; #X msg 414 885 #bg blue \, #fg green; ! #X obj 115 818 print a; #X connect 0 0 13 0; #X connect 2 0 0 0; --- 27,35 ---- #X obj 109 775 widget kbd k1 #bg blue #fg green -height 32; #X obj 207 823 widget kbd k2 #bg blue #fg green -height 32; #X msg 283 874 redefine; #X msg 414 885 #bg blue \, #fg green; ! #X obj 98 855 unpack 0 0 0; ! #X obj 106 819 Append 1; ! #X obj 201 864 Append 2; #X connect 0 0 13 0; #X connect 2 0 0 0; *************** *** 42,48 **** #X connect 5 0 3 0; #X connect 6 0 4 0; ! #X connect 7 0 27 1; #X connect 9 0 8 0; ! #X connect 10 0 27 0; #X connect 12 0 11 0; #X connect 13 0 15 0; --- 38,44 ---- #X connect 5 0 3 0; #X connect 6 0 4 0; ! #X connect 7 0 20 1; #X connect 9 0 8 0; ! #X connect 10 0 20 0; #X connect 12 0 11 0; #X connect 13 0 15 0; *************** *** 57,73 **** #X connect 19 1 20 1; #X connect 21 0 0 0; ! #X connect 24 0 26 0; ! #X connect 24 0 34 0; #X connect 25 0 30 0; ! #X connect 26 0 10 0; ! #X connect 26 1 7 0; ! #X connect 27 0 20 0; ! #X connect 28 0 31 1; ! #X connect 29 0 31 0; ! #X connect 30 0 29 0; ! #X connect 30 1 28 0; ! #X connect 31 0 20 0; ! #X connect 32 0 24 0; ! #X connect 32 0 25 0; ! #X connect 33 0 25 0; ! #X connect 33 0 24 0; --- 53,65 ---- #X connect 19 1 20 1; #X connect 21 0 0 0; ! #X connect 24 0 29 0; #X connect 25 0 30 0; ! #X connect 26 0 24 0; ! #X connect 26 0 25 0; ! #X connect 27 0 25 0; ! #X connect 27 0 24 0; ! #X connect 28 0 10 0; ! #X connect 28 1 7 0; ! #X connect 28 2 20 2; ! #X connect 29 0 28 0; ! #X connect 30 0 28 0;

1 0

extensions/gui/ix kbd.wid,1.2,1.3
by carmen rocco 25 May '05

25 May '05

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7008 Modified Files: kbd.wid Log Message: .CVSUX ---------------------------------------------------------------------- Index: kbd.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/kbd.wid,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** kbd.wid 24 May 2005 22:28:08 -0000 1.2 --- kbd.wid 24 May 2005 22:42:42 -0000 1.3 *************** *** 2,20 **** proc kbd_play {t m b x y} { variable _ ! foreach a {{rs {0 sunken 1 raised}} {sr {0 raised 1 sunken}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]} ! set w [winfo containing $x $y]; set tp $t.rp ! if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} { ! $_($t:lp) config -relief raised;pd "$tp _cb [winfo name $_($t:lp)] 0 \;"} ! if {[$w cget -relief] eq $rs($b)} { ! eval $w config -relief $sr($b); pd "$tp _cb [winfo name $w] [eval expr $v($b)] \;"} set _($t:lp) $w} proc kbd_off {p t octaves} { for {set o 0} {$o < $octaves} {incr o} { for {set on 0} {$on < 12} {incr on} { set no [expr $o * 12 + $on] ! if {[$p.f$o.$no cget -relief] eq "sunken"} { ! $p.f$o.$no config -relief raised ! pd "$t.rp _cb $no 0 \;"}}}} proc kbd {path t octaves b f} { --- 2,21 ---- proc kbd_play {t m b x y} { variable _ ! foreach a {{rs {0 sunken 1 raised}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]} ! set w [winfo containing $x $y] ! if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} {kbd_action $_($t:lp) $t 0} ! if {[$w cget -relief] eq $rs($b)} {kbd_action $w $t [eval expr $v($b)]} set _($t:lp) $w} + proc kbd_action {w t v} { + if {$v == 0} {set relief raised} {set relief sunken} + $w config -relief $relief + pd [concat $t.rp _cb [winfo name $w] $v \;]} + proc kbd_off {p t octaves} { for {set o 0} {$o < $octaves} {incr o} { for {set on 0} {$on < 12} {incr on} { set no [expr $o * 12 + $on] ! if {[$p.f$o.$no cget -relief] eq "sunken"} {kbd_action $p.f$o.$no $t 0}}}} proc kbd {path t octaves b f} {

1 0

extensions/gui/ix kbd-demo.pd, 1.2, 1.3 kbd.wid, 1.1, 1.2 mat-demo.pd, 1.3, 1.4 mat.wid, 1.5, 1.6 kbd2.wid, 1.1, NONE
by carmen rocco 25 May '05

25 May '05

Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3593 Modified Files: kbd-demo.pd kbd.wid mat-demo.pd mat.wid Removed Files: kbd2.wid Log Message: adding chords to kbd --- kbd2.wid DELETED --- Index: kbd-demo.pd =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/kbd-demo.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** kbd-demo.pd 17 May 2005 17:53:41 -0000 1.2 --- kbd-demo.pd 24 May 2005 22:28:08 -0000 1.3 *************** *** 21,25 **** #X floatatom 149 21 5 0 12 0 - - -; #X msg 148 38 #octaves \$1; ! #X obj 165 140 widget kbd2 k2 #octaves 3 #bg purple #fg pink -height 32; #X obj 56 174 + 36; --- 21,25 ---- #X floatatom 149 21 5 0 12 0 - - -; #X msg 148 38 #octaves \$1; ! #X obj 165 140 widget kbd k2 #octaves 3 #bg purple #fg pink -height 32; #X obj 56 174 + 36; Index: mat.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/mat.wid,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** mat.wid 17 May 2005 07:46:57 -0000 1.5 --- mat.wid 24 May 2005 22:28:08 -0000 1.6 *************** *** 2,88 **** namespace eval ::ix { proc random_int {} {return [expr "int(floor(rand()*16))"]} ! proc random_clr {} { ! return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]] ! } ! variable _ proc mat_note {p t item} { set id [lindex [$p.m itemcget $item -tags] 1] set len [expr [lindex $_($t:items:$id) 2] - [lindex $_($t:items:$id) 0]] set vel [$p.m itemcget $item -fillopacity] ! pd [concat $t.rp _cb note [lindex $_($t:items:$id) 1] $vel $len \;] ! } ! proc mat_click {button action p t x y} { variable _ ! set clicked [$p.m find overlapping $x $y $x $y] ! switch $action { ! hover { ! foreach item $clicked { ! if {[lindex [$p.m itemcget $item -tags] 0] eq "item"} { ! mat_note $p $t $item ! } ! } ! } ! first { ! # if {$clicked ne ""} { ! set _($t:cl) $clicked ! # } ! foreach xy {x y} {set _($t:f$xy) [set $xy]} ! } ! motion { ! set mx [expr $x - $_($t:cx)] ! set my [expr $y - $_($t:cy)] ! foreach xy {x y} { ! set mvt [mat_tr $p $t $xy d [expr $$xy - $_($t:c$xy)]] ! switch $button { ! 1 { ! foreach ab {a b} { ! set _($t:${xy}$ab) [expr $_($t:${xy}$ab) - $mvt] } } - 2 { - set _($t:${xy}a) [expr $_($t:${xy}a) - $mvt] - set _($t:${xy}b) [expr $_($t:${xy}b) + $mvt] - } } ! } ! switch $button { ! 1 { ! if {$clicked ne ""} { ! set items $clicked ! } else { ! set items [$p.m find withtag item] ! mat_gridlines $p $t ! } ! foreach item $items { ! set m [$p.m itemcget $item -matrix] ! set m [list [lindex $m 0] [lindex $m 1] [list [expr [lindex [lindex $m 2] 0] + $mx] [expr [lindex [lindex $m 2] 1] + $my]]] ! $p.m itemconfigure $item -matrix $m ! } ! } ! 2 { ! foreach item [$p.m find withtag item] { ! set id [lindex [$p.m itemcget $item -tags] 1] ! set px [mat_tr $p $t x t [lindex $_($t:items:$id) 0]] ! set py [mat_tr $p $t y t [lindex $_($t:items:$id) 1]] ! set sx [mat_tr $p $t x id [expr [lindex $_($t:items:$id) 2] - [lindex $_($t:items:$id) 0]]] ! # set sy [mat_tr $p $t y id [expr [lindex $_($t:items:$id) 3] - [lindex $_($t:items:$id) 1]]] ! set sy [mat_tr $p $t y id 1] ! $p.m coords $item [::tkpath::coords rect $px $py $sx $sy -rx 3 -ry 3] ! } ! mat_gridlines $p $t } ! 3 { ! set velo [expr ($x - $_($t:cx)) / 100.0] ! foreach item $_($t:cl) { ! set vel [expr $velo + [$p.m itemcget $item -fillopacity]] ! if {$vel > 1} {set vel 1} ! if {$vel < 0} {set vel 0} ! $p.m itemconfigure $item -fillopacity $vel } } ! } } } - foreach xy {x y} {set _($t:c$xy) [set $xy]} } --- 2,92 ---- namespace eval ::ix { proc random_int {} {return [expr "int(floor(rand()*16))"]} ! proc random_clr {} {return [format "\#%1X%1X%1X%1X%1X%1X" [random_int] [random_int] [random_int] [random_int] [random_int] [random_int]]} ! proc mat_note {p t item} { + variable _ set id [lindex [$p.m itemcget $item -tags] 1] set len [expr [lindex $_($t:items:$id) 2] - [lindex $_($t:items:$id) 0]] set vel [$p.m itemcget $item -fillopacity] ! pd [concat $t.rp _cb note [lindex $_($t:items:$id) 1] $vel $len \;]} ! ! proc mat_click {m button action p t x y} { variable _ ! switch $m { ! control {mat_draw $action $p $t $x $y} ! "" { ! set clicked [$p.m find overlapping $x $y $x $y] ! switch $action { ! hover { ! foreach item $clicked { ! if {[lindex [$p.m itemcget $item -tags] 0] eq "item"} { ! mat_note $p $t $item } } } ! first { ! # if {$clicked ne ""} { ! set _($t:cl) $clicked ! # } ! foreach xy {x y} {set _($t:f$xy) [set $xy]} } ! motion { ! set mx [expr $x - $_($t:cx)] ! set my [expr $y - $_($t:cy)] ! foreach xy {x y} { ! set mvt [mat_tr $p $t $xy d [expr $$xy - $_($t:c$xy)]] ! switch $button { ! 1 { ! foreach ab {a b} { ! set _($t:${xy}$ab) [expr $_($t:${xy}$ab) - $mvt] ! } ! } ! 2 { ! set _($t:${xy}a) [expr $_($t:${xy}a) - $mvt] ! set _($t:${xy}b) [expr $_($t:${xy}b) + $mvt] ! } ! } } + switch $button { + 1 { + if {$clicked ne ""} { + set items $clicked + } else { + set items [$p.m find withtag item] + mat_gridlines $p $t + } + foreach item $items { + set m [$p.m itemcget $item -matrix] + set m [list [lindex $m 0] [lindex $m 1] [list [expr [lindex [lindex $m 2] 0] + $mx] [expr [lindex [lindex $m 2] 1] + $my]]] + $p.m itemconfigure $item -matrix $m + } + } + 2 { + foreach item [$p.m find withtag item] { + set id [lindex [$p.m itemcget $item -tags] 1] + set px [mat_tr $p $t x t [lindex $_($t:items:$id) 0]] + set py [mat_tr $p $t y t [lindex $_($t:items:$id) 1]] + set sx [mat_tr $p $t x id [expr [lindex $_($t:items:$id) 2] - [lindex $_($t:items:$id) 0]]] + # set sy [mat_tr $p $t y id [expr [lindex $_($t:items:$id) 3] - [lindex $_($t:items:$id) 1]]] + set sy [mat_tr $p $t y id 1] + $p.m coords $item [::tkpath::coords rect $px $py $sx $sy -rx 3 -ry 3] + } + mat_gridlines $p $t + } + 3 { + set velo [expr ($x - $_($t:cx)) / 100.0] + foreach item $_($t:cl) { + set vel [expr $velo + [$p.m itemcget $item -fillopacity]] + if {$vel > 1} {set vel 1} + if {$vel < 0} {set vel 0} + $p.m itemconfigure $item -fillopacity $vel + } + } + } } ! } ! foreach xy {x y} {set _($t:c$xy) [set $xy]} } } } *************** *** 91,117 **** switch $action { motion { ! if {$x >= $_($t:cx)} { ! set xa $_($t:cx) ! set xb $x ! } else { ! set xa $x ! set xb $_($t:cx) ! } $p.m coords drawing [::tkpath::coords rect $xa $y [expr $xb - $xa] [mat_tr $p $t y id 1] -rx 3 -ry 3] set yi [mat_tr $p $t y i $y] set _($t:items:$_($t:i)) [list [mat_tr $p $t x i $xa] $yi [mat_tr $p $t x i $xb] $yi] ! # pd [concat $t.rp _cb note $yi \;] ! } first { foreach xy {x y} {set _($t:c$xy) [set $xy]} ! $p.m create path [::tkpath::coords rect $_($t:cx) $_($t:cy) 0 0 -rx 3 -ry 3] -tags drawing -fill green -fillopacity 0.8 ! } release { $p.m itemconfigure drawing -tags [list item $_($t:i)] -matrix {{1.0 0.0} {0.0 1.0} {0.0 0.0}} ! incr _($t:i) 2 ! } ! } - } proc mat_tr {p t d inv v} { variable _ --- 95,110 ---- switch $action { motion { ! if {$x >= $_($t:cx)} {set xa $_($t:cx);set xb $x} else {set xa $x;set xb $_($t:cx)} $p.m coords drawing [::tkpath::coords rect $xa $y [expr $xb - $xa] [mat_tr $p $t y id 1] -rx 3 -ry 3] set yi [mat_tr $p $t y i $y] set _($t:items:$_($t:i)) [list [mat_tr $p $t x i $xa] $yi [mat_tr $p $t x i $xb] $yi] ! pd [concat $t.rp _cb note $yi 0.8 \;]} first { foreach xy {x y} {set _($t:c$xy) [set $xy]} ! $p.m create path [::tkpath::coords rect $_($t:cx) $_($t:cy) 0 0 -rx 3 -ry 3] -tags drawing -fill green -fillopacity 0.8} release { $p.m itemconfigure drawing -tags [list item $_($t:i)] -matrix {{1.0 0.0} {0.0 1.0} {0.0 0.0}} ! incr _($t:i) 2}}} proc mat_tr {p t d inv v} { variable _ *************** *** 121,173 **** i {return [expr ($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0) + $_($t:${d}a)]} d {return [expr ($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0)]} ! # id {return [expr $v / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m]]} ! id {return [expr abs($v / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m])]} ! } ! } proc mat_zoomReset {p t} { variable _ ! set _($t:ya) $_($t:yao) ! set _($t:yb) $_($t:ybo) ! set _($t:xa) $_($t:xao) ! set _($t:xb) $_($t:xbo) ! mat_gridlines $p $t ! } ! proc mat_new {path target w h bg ln Xa Xb Ya Yb qXv qYv} { variable _ ! set _($target:i) 0 ! set _($target:ln) $ln ! set _($target:qxv) $qXv ! set _($target:qyv) $qYv ! set _($target:ya) $Ya ! set _($target:xa) $Xa ! set _($target:yb) $Yb ! set _($target:xb) $Xb ! set _($target:yao) $Ya ! set _($target:xao) $Xa ! set _($target:ybo) $Yb ! set _($target:xbo) $Xb if {[winfo exists $path.m] != 1} { canvas $path.m -bg $bg -width $w -height $h pack $path.m -side left ! bind $path.m <Motion> "::ix::mat_click 0 hover $path $target %x %y" ! bind $path.m <1> "::ix::mat_click 1 first $path $target %x %y" ! bind $path.m <B1-Motion> "::ix::mat_click 1 motion $path $target %x %y" ! bind $path.m <ButtonRelease-1> "::ix::mat_click 1 release $path $target %x %y" ! bind $path.m <2> "::ix::mat_click 2 first $path $target %x %y" ! bind $path.m <Double-2> "::ix::mat_zoomReset $path $target" ! bind $path.m <B2-Motion> "::ix::mat_click 2 motion $path $target %x %y" ! bind $path.m <ButtonRelease-2> "::ix::mat_click 2 release $path $target %x %y" ! bind $path.m <3> "::ix::mat_click 3 first $path $target %x %y" ! bind $path.m <B3-Motion> "::ix::mat_click 3 motion $path $target %x %y" ! bind $path.m <ButtonRelease-3> "::ix::mat_click 3 release $path $target %x %y" ! bind $path.m <Control-1> "::ix::mat_draw first $path $target %x %y" ! bind $path.m <Control-B1-Motion> "::ix::mat_draw motion $path $target %x %y" ! bind $path.m <Control-ButtonRelease-1> "::ix::mat_draw release $path $target %x %y" set bd [expr {[$path cget -bd] * 2}] ! $path configure -bg gray -width [expr [winfo width $path.m] + $bd] \ ! -height [expr [winfo height $path.m] + $bd] ! update ! mat_gridlines $path $target ! }} proc mat_gridlines {path target} { --- 114,142 ---- i {return [expr ($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0) + $_($t:${d}a)]} d {return [expr ($_($t:${d}b) - $_($t:${d}a)) * $v /([winfo $dm($d) $p.m] + 0.0)]} ! # id {return [expr $v / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m]]} ! id {return [expr abs($v / ($_($t:${d}b) - $_($t:${d}a) + 0.0) * [winfo $dm($d) $p.m])]}}} ! proc mat_zoomReset {p t} { variable _ ! set _($t:ya) $_($t:yao);set _($t:yb) $_($t:ybo);set _($t:xa) $_($t:xao);set _($t:xb) $_($t:xbo) ! mat_gridlines $p $t} ! ! proc mat_new {path target w h bg ln xa xb ya yb qx qy} { variable _ ! set i 0 ! foreach xy {x y} {foreach ab {a b} {set ${xy}${ab}o [set ${xy}${ab}]}} ! foreach a {i ln xa xb ya yb xao xbo yao ybo qx qy} {set _($target:$a) [set $a]} if {[winfo exists $path.m] != 1} { canvas $path.m -bg $bg -width $w -height $h pack $path.m -side left ! bind $path.m <Motion> "::ix::mat_click {} 0 hover $path $target %x %y" ! foreach m {"Control-" "" "Shift-"} { ! foreach bn {1 2 3} { ! set b [list [concat $bn first] [concat B${bn}-Motion motion] [concat ButtonRelease-$bn release]] ! foreach ba {0 1 2} { ! bind $path.m <$m[lindex [lindex $b $ba] 0]> "::ix::mat_click [list [string tolower [string trimright $m -1]]] $bn [lindex [lindex $b $ba] 1] $path $target %x %y"}}} set bd [expr {[$path cget -bd] * 2}] ! $path configure -bg gray -width [expr [winfo width $path.m] + $bd] -height [expr [winfo height $path.m] + $bd] ! mat_gridlines $path $target}} proc mat_gridlines {path target} { *************** *** 178,182 **** set gh [winfo height $w] set gw [winfo width $w] ! foreach item [$path.m find withtag gridline] {$path.m delete $item} foreach xy {x y} { array set ta {x n y w} --- 147,151 ---- set gh [winfo height $w] set gw [winfo width $w] ! foreach item [$w find withtag gridline] {$w delete $item} foreach xy {x y} { array set ta {x n y w} *************** *** 184,202 **** array set igx {y width x height} if {$_($target:${xy}a) > $_($target:${xy}b)} {set oa ">=";set ob "-"} {set oa "<=";set ob "+"} ! for {set x [expr int($_($target:${xy}a) / ($_($target:q${xy}v) + 0.0) + 1)*($_($target:q${xy}v) + 0.0)]} {[expr $x $oa $_($target:${xy}b)]} {set x [expr $x $ob $_($target:q${xy}v)]} { set og [mat_tr $path $target $xy t $x] ! set invgeo [winfo $igx($xy) $path.m] switch $xy {y {set coords [concat M 0 $og L $invgeo $og]} x {set coords [concat M $og 0 L $og $invgeo]}} $w lower [$w create path $coords -stroke $_($target:ln) -strokedasharray 2 -tags gridline -strokewidth 1] $w lower [$w create text [lrange $coords 1 2] -font {{Bitstream Vera Sans} 8} \ ! -fill green -anchor $ta($xy) -text $x -justify $tj($xy) -tags gridline]}} ! } ! } #> mat frame #. -bd 3 #w 384 #h 144 #bg white #ln purple ! #. #Xa 123 #Xb 2000 #Ya 0 #Yb 127 #qXv 125 #qYv 1 #. @list ::ix::mat_add .- .| {.#1} .#2 .#3 .#4 #. @add ::ix::mat_add .- .| {.#1} .#2 .#3 .#4 puts "mat .- .|" ! ::ix::mat_new .- .| .#w .#h .#bg .#ln .#Xa .#Xb .#Ya .#Yb .#qXv .#qYv --- 153,170 ---- array set igx {y width x height} if {$_($target:${xy}a) > $_($target:${xy}b)} {set oa ">=";set ob "-"} {set oa "<=";set ob "+"} ! for {set x [expr int($_($target:${xy}a) / ($_($target:q${xy}) + 0.0) + 1)*($_($target:q${xy}) + 0.0)]} {[expr $x $oa $_($target:${xy}b)]} {set x [expr $x $ob $_($target:q${xy})]} { set og [mat_tr $path $target $xy t $x] ! set invgeo [winfo $igx($xy) $w] switch $xy {y {set coords [concat M 0 $og L $invgeo $og]} x {set coords [concat M $og 0 L $og $invgeo]}} $w lower [$w create path $coords -stroke $_($target:ln) -strokedasharray 2 -tags gridline -strokewidth 1] $w lower [$w create text [lrange $coords 1 2] -font {{Bitstream Vera Sans} 8} \ ! -fill green -anchor $ta($xy) -text $x -justify $tj($xy) -tags gridline]}}}} ! #> mat frame #. -bd 3 #w 384 #h 144 #bg white #ln purple ! #. #Xa 123 #Xb 2000 #Ya 0 #Yb 127 #qx 125 #qy 1 #. @list ::ix::mat_add .- .| {.#1} .#2 .#3 .#4 #. @add ::ix::mat_add .- .| {.#1} .#2 .#3 .#4 puts "mat .- .|" ! ::ix::mat_new .- .| .#w .#h .#bg .#ln .#Xa .#Xb .#Ya .#Yb .#qx .#qy Index: kbd.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/kbd.wid,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** kbd.wid 5 Apr 2005 13:32:37 -0000 1.1 --- kbd.wid 24 May 2005 22:28:08 -0000 1.2 *************** *** 1,95 **** namespace eval ::ix { ! variable kbd_lastplayed ! proc kbd_click {target w h} { ! set height [winfo height $w] ! set vel [expr $h.0 / $height.0] ! variable kbd_lastplayed ! set kbd_lastplayed $w ! kbd_down $target $w $vel ! } ! proc kbd_down {target w vel} { ! pd "$target.rp _cb [winfo name $w] $vel;" ! $w conf -relief sunken ! } ! proc kbd_up {target w} { ! pd "$target.rp _cb [winfo name $w] 0;" ! $w conf -relief raised ! } ! proc kbd_release {target} { ! variable kbd_lastplayed ! if {$kbd_lastplayed != {}} {kbd_up $target $kbd_lastplayed} ! } ! proc kbd_key {path target count vel key} { ! set w $path.f[expr $key / 12].$key ! if {$vel > 0} {kbd_down $target $w $vel} ! if {$vel == 0} {kbd_up $target $w} ! } ! proc kbd_fkey {path target count key} { ! set w $path.f[expr $key / 12].$key ! kbd_down $target $w 1 ! kbd_up $target $w ! } ! proc kbd_drag {target x y} { ! variable kbd_lastplayed ! set w [winfo containing $x $y] ! if { $w == "" } { kbd_release $target; set kbd_lastplayed {}; return } ! if { $w == $kbd_lastplayed } return ! if {[lsearch -exact [bindtags $w] key ] == -1 } { ! kbd_release $target ! set kbd_lastplayed {}; return ! } ! kbd_release $target ! set h [expr $y - [winfo rooty $w]] ! kbd_click $target $w $h ! } ! proc kbd_white {w t p} { set t {} ! label $w -text $t -background white -foreground black \ ! -borderwidth 1 -relief raised ! place $w -relx $p -y 0 -relwidth 0.142857 -relheight 1 ! bindtags $w {key} ! lower $w ! } ! proc kbd_black {w t p} { set t {} ! label $w -text $t -background black -foreground white \ ! -borderwidth 1 -relief raised ! place $w -relx $p -y 0 -relwidth 0.1 -relheight 0.6 -anchor n ! bindtags $w {key} ! } ! proc kbd {path target octaves} { ! if {[winfo exists $path.f0] != 1} { ! # foreach oct [winfo children $path] {destroy $oct} ! $path config -width [expr $octaves * 66] ! for {set o 0} {$o < $octaves} {incr o} { ! set w $path.f$o ! frame $w -bd 0 -height 66 -width 66 ! kbd_white $w.[expr $o * 12] C 0.0 ! kbd_black $w.[expr $o * 12 + 1] C# 0.142857 ! kbd_white $w.[expr $o * 12 + 2] D 0.142857 ! kbd_black $w.[expr $o * 12 + 3] D# 0.285714 ! kbd_white $w.[expr $o * 12 + 4] E 0.285714 ! kbd_white $w.[expr $o * 12 + 5] F 0.428571 ! kbd_black $w.[expr $o * 12 + 6] F# 0.571428 ! kbd_white $w.[expr $o * 12 + 7] G 0.571428 ! kbd_black $w.[expr $o * 12 + 8] G# 0.714285 ! kbd_white $w.[expr $o * 12 + 9] A 0.714285 ! kbd_black $w.[expr $o * 12 + 10] A# 0.857142 ! kbd_white $w.[expr $o * 12 + 11] H 0.857142 ! place $w -y 0 -relheight 1.0 -relx [expr $o / $octaves.0] -relwidth [expr 1 / $octaves.0] ! } ! } ! } - } #> kbd frame #. -height 100 -width 60 ! #. #octaves 6 ! #. @list ::ix::kbd_key .- .| .#n .#2 .#1 ! #. @float ::ix::kbd_fkey .- .| .#n .#1 ! puts "kbd .- .|" ! ::ix::kbd .- .| .#octaves ! bind key <1> {::ix::kbd_click .| %W %y} ! bind key <B1-Motion> {::ix::kbd_drag .| %X %Y} ! bind key <ButtonRelease-1> {::ix::kbd_release .|} --- 1,39 ---- namespace eval ::ix { ! proc kbd_play {t m b x y} { ! variable _ ! foreach a {{rs {0 sunken 1 raised}} {sr {0 raised 1 sunken}} {v {0 0 1 {($y - [winfo rooty $w]) / ([winfo height $w] + 0.0)}}}} {array set [lindex $a 0] [lindex $a 1]} ! set w [winfo containing $x $y]; set tp $t.rp ! if {$m != 1 && $_($t:lp) != -1 && $_($t:lp) ne $w} { ! $_($t:lp) config -relief raised;pd "$tp _cb [winfo name $_($t:lp)] 0 \;"} ! if {[$w cget -relief] eq $rs($b)} { ! eval $w config -relief $sr($b); pd "$tp _cb [winfo name $w] [eval expr $v($b)] \;"} ! set _($t:lp) $w} ! proc kbd_off {p t octaves} { ! for {set o 0} {$o < $octaves} {incr o} { ! for {set on 0} {$on < 12} {incr on} { ! set no [expr $o * 12 + $on] ! if {[$p.f$o.$no cget -relief] eq "sunken"} { ! $p.f$o.$no config -relief raised ! pd "$t.rp _cb $no 0 \;"}}}} ! proc kbd {path t octaves b f} { ! if {![winfo exists $path.f0]} { ! variable _ ! set _($t:lp) -1 ! $path config -width [expr $octaves * 66] ! set bw {0 1 0 1 0 0 1 0 1 0 1 0} ; set npl {0 1 1 2 2 3 4 4 5 5 6 6} ! foreach a {{bg "0 $b 1 $f"} {fg "1 $b 0 $f"} {an {0 ";lower $wk" 1 "-anchor n"}} {rw {0 {[expr 1 / 7.]} 1 {[expr 1 / 10.]}}} {rh {0 {[expr 1.]} 1 {[expr 6 / 10.]}}}} {array set [lindex $a 0] [lindex $a 1]} ! for {set o 0} {$o < $octaves} {incr o} { ! set w $path.f$o ; frame $w -bd 0 -height 66 -width 66 ! for {set on 0} {$on < 12} {incr on} { ! set wk $w.[expr $o * 12 + $on] ; set n [lindex $bw $on] ! eval "label $wk -bg $bg($n) -fg $fg($n) -bd 1 -relief raised;place $wk -relx [expr [lindex $npl $on] / 7.] -y 0 -relwidth $rw($n) -relheight $rh($n) $an($n)" ! bind $wk <1> "::ix::kbd_play $t 0 1 %X %Y"; bind $wk <B1-Motion> [bind $wk <1>];bind $wk <ButtonRelease-1> "::ix::kbd_play $t 0 0 %X %Y"; bind $wk <Enter> "::ix::kbd_play $t 1 0 %X %Y"; bind $wk <3> "::ix::kbd_play $t 1 1 %X %Y"; bind $wk <B3-Motion> [bind $wk <3>]; bind $wk <2> "::ix::kbd_off $path $t $octaves"} ! place $w -y 0 -relheight 1.0 -relx [expr $o / $octaves.0] -relwidth [expr 1 / $octaves.0]}}}} #> kbd frame #. -height 100 -width 60 ! #. #octaves 6 #bg black #fg white ! ::ix::kbd .- .| .#octaves .#bg .#fg Index: mat-demo.pd =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/mat-demo.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** mat-demo.pd 17 May 2005 07:47:15 -0000 1.3 --- mat-demo.pd 24 May 2005 22:28:08 -0000 1.4 *************** *** 1,31 **** ! #N canvas 25 146 920 1008 12; ! #X obj 17 12 widget mat n1 #w 881 #bg white #divX 8 #divY 5 #h 740 #Yb 1 #Ya 88 #qYv 2 #qYa 8; ! #X msg 1080 -23 -height 26 -width 26 -bg gray95; ! #X msg 19 -10 redefine; ! #X msg 229 -9 #w \$1; ! #X msg 193 -10 #h \$1; ! #X floatatom 159 -11 5 0 0 0 - - -; ! #X floatatom 127 -9 5 0 0 0 - - -; ! #X obj 84 767 widget kbd k1 #octaves 7 -width 483 -height 76; ! #X obj 85 846 unpack 0 0; ! #X obj 134 868 * 127; ! #X obj 85 892 pack 0 0; ! #X msg 447 679 #w \$1 \, #h \$1; ! #X floatatom 453 662 5 0 0 0 - - -; ! #X obj 85 867 + 36; ! #X obj 574 858 rp ss s1; ! #X obj 632 787 rr ss; ! #X obj 632 768 rg; ! #X obj 17 761 route note; ! #X msg 317 -8 #Ya 1 \, #Yb 128 \, #qYv 8; ! #X msg 460 -9 #Ya 88 \, Yb 24 \, #qYv 2; ! #X obj 9 826 unpack f f f; ! #X obj 37 861 * 127; ! #X obj 16 891 pack f f f; ! #X obj 18 948 print note; ! #X obj 73 917 makenote 99 250; ! #X obj 88 948 noteout; ! #X connect 0 0 17 0; #X connect 2 0 0 0; #X connect 3 0 0 0; --- 1,40 ---- ! #N canvas 25 0 920 1029 12; ! #X obj 17 22 widget mat n1 #w 881 #bg white #divX 8 #divY 5 #h 740 #Yb 1 #Ya 88 #qYv 2 #qYa 8; ! #X msg 1080 -13 -height 26 -width 26 -bg gray95; ! #X msg 19 0 redefine; ! #X msg 229 1 #w \$1; ! #X msg 193 0 #h \$1; ! #X floatatom 159 -1 5 0 0 0 - - -; ! #X floatatom 127 1 5 0 0 0 - - -; ! #X obj 121 879 * 127; ! #X msg 447 689 #w \$1 \, #h \$1; ! #X floatatom 453 672 5 0 0 0 - - -; ! #X obj 85 877 + 36; ! #X obj 577 798 rr ss; ! #X obj 577 779 rg; ! #X obj 17 771 route note; ! #X msg 460 1 #Ya 88 \, Yb 24 \, #qYv 2; ! #X obj 9 836 unpack f f f; ! #X obj 37 871 * 127; ! #X obj 16 901 pack f f f; ! #X obj 18 958 print note; ! #X obj 73 927 makenote 99 250; ! #X obj 92 961 noteout; ! #X msg 317 2 #Ya 1 \, #Yb 128 \, #qYv 8; ! #X obj 535 833 rp ss kbd; ! #X obj 591 833 rp ss kb2; ! #X obj 109 775 widget kbd k1 #bg blue #fg green -height 32; ! #X obj 207 823 widget kbd k2 #bg blue #fg green -height 32; ! #X obj 97 854 unpack 0 0; ! #X obj 98 897 pack 0 0 1; ! #X obj 211 894 * 127; ! #X obj 175 892 + 36; ! #X obj 187 869 unpack 0 0; ! #X obj 188 912 pack 0 0 2; ! #X msg 283 874 redefine; ! #X msg 414 885 #bg blue \, #fg green; ! #X obj 115 818 print a; ! #X connect 0 0 13 0; #X connect 2 0 0 0; #X connect 3 0 0 0; *************** *** 33,55 **** #X connect 5 0 3 0; #X connect 6 0 4 0; ! #X connect 7 0 8 0; ! #X connect 7 0 14 0; ! #X connect 8 0 13 0; ! #X connect 8 1 9 0; ! #X connect 9 0 10 1; ! #X connect 10 0 25 0; #X connect 12 0 11 0; ! #X connect 13 0 10 0; ! #X connect 14 0 7 0; ! #X connect 16 0 15 0; ! #X connect 17 0 20 0; ! #X connect 18 0 0 0; ! #X connect 19 0 0 0; ! #X connect 20 0 22 0; ! #X connect 20 1 21 0; ! #X connect 20 2 22 2; ! #X connect 21 0 22 1; ! #X connect 22 0 23 0; ! #X connect 22 0 24 0; ! #X connect 24 0 25 0; ! #X connect 24 1 25 1; --- 42,73 ---- #X connect 5 0 3 0; #X connect 6 0 4 0; ! #X connect 7 0 27 1; ! #X connect 9 0 8 0; ! #X connect 10 0 27 0; #X connect 12 0 11 0; ! #X connect 13 0 15 0; ! #X connect 14 0 0 0; ! #X connect 15 0 17 0; ! #X connect 15 1 16 0; ! #X connect 15 2 17 2; ! #X connect 16 0 17 1; ! #X connect 17 0 18 0; ! #X connect 17 0 19 0; ! #X connect 19 0 20 0; ! #X connect 19 1 20 1; ! #X connect 21 0 0 0; ! #X connect 24 0 26 0; ! #X connect 24 0 34 0; ! #X connect 25 0 30 0; ! #X connect 26 0 10 0; ! #X connect 26 1 7 0; ! #X connect 27 0 20 0; ! #X connect 28 0 31 1; ! #X connect 29 0 31 0; ! #X connect 30 0 29 0; ! #X connect 30 1 28 0; ! #X connect 31 0 20 0; ! #X connect 32 0 24 0; ! #X connect 32 0 25 0; ! #X connect 33 0 25 0; ! #X connect 33 0 24 0;

1 0

pd/extra Makefile.am,1.1.4.4,1.1.4.5
by Tim Blechmann 24 May '05

24 May '05

Update of /cvsroot/pure-data/pd/extra In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18066/extra Modified Files: Tag: devel_0_38 Makefile.am Log Message: updating for next release Index: Makefile.am =================================================================== RCS file: /cvsroot/pure-data/pd/extra/Attic/Makefile.am,v retrieving revision 1.1.4.4 retrieving revision 1.1.4.5 diff -C2 -d -r1.1.4.4 -r1.1.4.5 *** Makefile.am 6 May 2005 10:33:24 -0000 1.1.4.4 --- Makefile.am 24 May 2005 20:58:24 -0000 1.1.4.5 *************** *** 20,23 **** --- 20,26 ---- cd ./pique && make @EXT@ + clean: + rm -rf */*.pd_linux *.pd_linux */*o + install: install -m 644 $(EXTERNS) $(prefix)/lib/pd/extra

1 0

pd configure.ac,1.1.4.11,1.1.4.12
by Tim Blechmann 24 May '05

24 May '05

Update of /cvsroot/pure-data/pd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18066 Modified Files: Tag: devel_0_38 configure.ac Log Message: updating for next release Index: configure.ac =================================================================== RCS file: /cvsroot/pure-data/pd/Attic/configure.ac,v retrieving revision 1.1.4.11 retrieving revision 1.1.4.12 diff -C2 -d -r1.1.4.11 -r1.1.4.12 *** configure.ac 7 May 2005 12:04:47 -0000 1.1.4.11 --- configure.ac 24 May 2005 20:58:22 -0000 1.1.4.12 *************** *** 5,12 **** dnl init ! AC_INIT([PureData], [0.38-4-devel-1], [pd-list(a)iem.at], [pd]) ! AM_INIT_AUTOMAKE(pd,[0.38-4-devel-1]) --- 5,12 ---- dnl init ! AC_INIT([PureData], [0.38-4-devel-2], [pd-list(a)iem.at], [pd]) ! AM_INIT_AUTOMAKE(pd,[0.38-4-devel-2])

1 0

externals/grill/vasp/source ops_arith.cpp, 1.5, 1.6 ops_assign.cpp, 1.5, 1.6 ops_feature.cpp, 1.4, 1.5 ops_search.cpp, 1.8, 1.9
by Thomas Grill 24 May '05

24 May '05

Update of /cvsroot/pure-data/externals/grill/vasp/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4247/source Modified Files: ops_arith.cpp ops_assign.cpp ops_feature.cpp ops_search.cpp Log Message: adapt to new flext version Index: ops_feature.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/vasp/source/ops_feature.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ops_feature.cpp 22 Dec 2002 01:28:34 -0000 1.4 --- ops_feature.cpp 24 May 2005 09:49:10 -0000 1.5 *************** *** 144,148 **** vasp_peaks(I argc,const t_atom *argv): ! vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet::tp_float,0)) {} --- 144,148 ---- vasp_peaks(I argc,const t_atom *argv): ! vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet_float,0)) {} Index: ops_arith.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/vasp/source/ops_arith.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ops_arith.cpp 21 Mar 2003 04:36:07 -0000 1.5 --- ops_arith.cpp 24 May 2005 09:49:10 -0000 1.6 *************** *** 55,59 **** public: ! vasp_qsum(): vasp_unop(true,XletCode(xlet::tp_float,0)) {} virtual Vasp *do_opt(OpParam &p) --- 55,59 ---- public: ! vasp_qsum(): vasp_unop(true,XletCode(xlet_float,0)) {} virtual Vasp *do_opt(OpParam &p) Index: ops_search.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/vasp/source/ops_search.cpp,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ops_search.cpp 31 Aug 2004 04:05:15 -0000 1.8 --- ops_search.cpp 24 May 2005 09:49:10 -0000 1.9 *************** *** 142,146 **** vasp_search(I argc,t_atom *argv): ! vasp_anyop(argc,argv,VASP_ARG_R(0),false,XletCode(xlet::tp_float,0)), slope(0),dir(0),incl(false) {} --- 142,146 ---- vasp_search(I argc,t_atom *argv): ! vasp_anyop(argc,argv,VASP_ARG_R(0),false,XletCode(xlet_float,0)), slope(0),dir(0),incl(false) {} Index: ops_assign.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/grill/vasp/source/ops_assign.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ops_assign.cpp 14 Mar 2003 04:36:28 -0000 1.5 --- ops_assign.cpp 24 May 2005 09:49:10 -0000 1.6 *************** *** 52,56 **** public: ! vasp_copy(I argc,const t_atom *argv): vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet::tp_any,0)) {} virtual V m_to(I,const t_atom *) { post("s - destination vasp is ignored!",thisName()); } --- 52,56 ---- public: ! vasp_copy(I argc,const t_atom *argv): vasp_anyop(argc,argv,VASP_ARG(),true,XletCode(xlet_any,0)) {} virtual V m_to(I,const t_atom *) { post("s - destination vasp is ignored!",thisName()); }

1 0

externals/grill/flext/source flclass.h,1.58,1.59
by Thomas Grill 24 May '05

24 May '05

Update of /cvsroot/pure-data/externals/grill/flext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4096/source Modified Files: flclass.h Log Message: small fix changed initialization functions accordingly slimmed object data structures Index: flclass.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flclass.h,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** flclass.h 23 May 2005 16:52:44 -0000 1.58 --- flclass.h 24 May 2005 09:48:20 -0000 1.59 *************** *** 597,601 **** //! \brief get a code for a list of inlets or outlets ! unsigned long XletCode(xlettype tp = xlettype::xlet_none,...); // end list with 0 (= tp_none) !! /*! \brief Add some inlets by a special code representing the types --- 597,601 ---- //! \brief get a code for a list of inlets or outlets ! unsigned long XletCode(xlettype tp = xlet_none,...); // end list with 0 (= tp_none) !! /*! \brief Add some inlets by a special code representing the types

1 0

doc/pddp all_about_hid_mapping.pd,1.7,1.8
by Hans-Christoph Steiner 24 May '05

24 May '05

Update of /cvsroot/pure-data/doc/pddp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5176 Modified Files: all_about_hid_mapping.pd Log Message: got [hid_graph] fully functional; added helpfiles for all curve objects Index: all_about_hid_mapping.pd =================================================================== RCS file: /cvsroot/pure-data/doc/pddp/all_about_hid_mapping.pd,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** all_about_hid_mapping.pd 27 Apr 2005 20:22:20 -0000 1.7 --- all_about_hid_mapping.pd 24 May 2005 00:39:57 -0000 1.8 *************** *** 1,30 **** ! #N canvas 304 56 900 582 10; #N canvas 0 22 450 300 graph1 0; #X array cuberoot 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 516 61 graph; ! #N canvas 0 22 450 300 graph5 0; ! #X array exponential 100 float 0; ! #X coords 0 1 99 0 100 100 1; ! #X restore 731 269 graph; #N canvas 0 22 450 300 graph1 0; #X array cube 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 731 61 graph; #N canvas 0 22 450 300 graph5 0; #X array square 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 731 165 graph; ! #N canvas 0 22 450 300 graph1 0; ! #X array logarithmic 100 float 0; ! #X coords 0 1 99 0 100 100 1; ! #X restore 516 269 graph; #N canvas 0 22 450 300 graph1 0; #X array squareroot 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 516 165 graph; #X obj 179 124 hid_rel2abs; #X obj 9 167 hid_smooth; ! #N canvas 27 65 573 553 draw_arrays 0; #X msg 77 62 bang; #X obj 77 83 until; --- 1,22 ---- ! #N canvas 49 175 871 588 10; #N canvas 0 22 450 300 graph1 0; #X array cuberoot 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 486 165 graph; #N canvas 0 22 450 300 graph1 0; #X array cube 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 731 165 graph; #N canvas 0 22 450 300 graph5 0; #X array square 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 731 269 graph; #N canvas 0 22 450 300 graph1 0; #X array squareroot 100 float 0; #X coords 0 1 99 0 100 100 1; ! #X restore 486 269 graph; #X obj 179 124 hid_rel2abs; #X obj 9 167 hid_smooth; ! #N canvas 27 65 637 617 draw_arrays 0; #X msg 77 62 bang; #X obj 77 83 until; *************** *** 41,55 **** #X obj 183 439 tabwrite square; #X obj 183 300 tabwrite squareroot; - #X obj 183 326 hid_log; #X obj 183 391 tabwrite cube; #X obj 183 255 tabwrite cuberoot; - #X obj 183 467 hid_exp; #X obj 77 23 loadbang; #X obj 77 217 / 100; #X text 119 217 [hid] output range: 0 to 1; ! #X obj 183 236 pow 0.333333; ! #X obj 183 372 pow 3; ! #X obj 183 420 pow 2; ! #X obj 183 281 pow 0.5; #X connect 0 0 1 0; #X connect 1 0 3 0; --- 33,47 ---- #X obj 183 439 tabwrite square; #X obj 183 300 tabwrite squareroot; #X obj 183 391 tabwrite cube; #X obj 183 255 tabwrite cuberoot; #X obj 77 23 loadbang; #X obj 77 217 / 100; #X text 119 217 [hid] output range: 0 to 1; ! #X obj 183 236 hid_cuberoot; ! #X obj 183 281 hid_squareroot; ! #X obj 183 372 hid_cube; ! #X obj 183 420 hid_square; ! #X obj 183 326 hid_log; ! #X obj 183 467 hid_exp; #X connect 0 0 1 0; #X connect 1 0 3 0; *************** *** 60,112 **** #X connect 6 0 3 1; #X connect 6 0 5 0; ! #X connect 8 0 19 0; #X connect 8 1 10 0; #X connect 11 0 7 1; #X connect 11 0 12 1; #X connect 11 0 13 1; #X connect 11 0 15 1; - #X connect 11 0 16 1; #X connect 11 0 9 1; ! #X connect 14 0 7 0; ! #X connect 17 0 9 0; ! #X connect 18 0 0 0; ! #X connect 19 0 14 0; ! #X connect 19 0 17 0; ! #X connect 19 0 21 0; ! #X connect 19 0 22 0; ! #X connect 19 0 23 0; ! #X connect 19 0 24 0; ! #X connect 21 0 16 0; ! #X connect 22 0 15 0; ! #X connect 23 0 12 0; ! #X connect 24 0 13 0; #X restore 563 30 pd draw_arrays; - #X obj 650 316 hid_exp; - #X obj 411 317 hid_log; #X obj 5 2 cnv 15 850 20 empty empty all_about_hid_mapping 20 10 1 18 -233017 -66577 0; #X obj 821 3 pddp; ! #X obj 209 398 hid_graph; #X obj 9 102 notescale; - #X obj 653 104 pow 3; - #X obj 406 100 pow 0.333333; - #X text 643 173 square; - #X text 646 82 cube; - #X text 401 175 square root; - #X text 397 78 cube root; - #X text 402 299 logarithmic; - #X obj 651 203 pow 2; - #X obj 410 194 pow 0.5; - #X obj 410 214 sqrt; #X obj 87 124 hid_centered; ! #X obj 406 123 hid_cuberoot; ! #X obj 653 130 hid_cube; ! #X obj 651 224 hid_square; ! #X obj 411 235 hid_squareroot; ! #X text 641 297 exponential; #X obj 9 213 buttongate; #X obj 88 213 keygate; ! #X text 341 423 - CURVE TEXT IDEAS; ! #X text 370 449 - amplitude is generally perceived on a logarithmic scale; #X obj 9 124 hid_invert; --- 52,91 ---- #X connect 6 0 3 1; #X connect 6 0 5 0; ! #X connect 8 0 17 0; #X connect 8 1 10 0; #X connect 11 0 7 1; #X connect 11 0 12 1; #X connect 11 0 13 1; + #X connect 11 0 14 1; #X connect 11 0 15 1; #X connect 11 0 9 1; ! #X connect 16 0 0 0; ! #X connect 17 0 19 0; ! #X connect 17 0 20 0; ! #X connect 17 0 21 0; ! #X connect 17 0 22 0; ! #X connect 17 0 23 0; ! #X connect 17 0 24 0; ! #X connect 19 0 15 0; ! #X connect 20 0 13 0; ! #X connect 21 0 14 0; ! #X connect 22 0 12 0; ! #X connect 23 0 7 0; ! #X connect 24 0 9 0; #X restore 563 30 pd draw_arrays; #X obj 5 2 cnv 15 850 20 empty empty all_about_hid_mapping 20 10 1 18 -233017 -66577 0; #X obj 821 3 pddp; ! #X obj 731 386 hid_graph; #X obj 9 102 notescale; #X obj 87 124 hid_centered; ! #X obj 379 208 hid_cuberoot; ! #X obj 631 200 hid_cube; ! #X obj 633 308 hid_square; ! #X obj 381 308 hid_squareroot; #X obj 9 213 buttongate; #X obj 88 213 keygate; ! #X text 16 448 - CURVE TEXT IDEAS; ! #X text 46 464 - amplitude is generally perceived on a logarithmic scale; #X obj 9 124 hid_invert; *************** *** 119,123 **** #X text 1 83 SCALING AND RANGING; #X text 1 150 SMOOTHING; - #X obj 173 167 hid_lowpass; #X obj 85 102 autoscale; #X text 1 196 BASIC CONTROLS; --- 98,101 ---- *************** *** 126,134 **** #X obj 94 262 hid_one2three; #X text 379 30 CURVES; ! #X text 371 473 - pitch is perceived on logarithmic scale; ! #X text 371 496 - many sensors work best on other curves; #X text 1 286 POLAR COORDINATES; #X obj 9 303 hid_polar; ! #X obj 80 303 hid_spiral; #X obj 10 350 hid2rad; #X obj 130 350 hid2deg; --- 104,113 ---- #X obj 94 262 hid_one2three; #X text 379 30 CURVES; ! #X text 47 481 - pitch is perceived on logarithmic scale; ! #X text 47 496 - many sensors work best on other curves; #X text 1 286 POLAR COORDINATES; + #X obj 84 303 hid_degrees; #X obj 9 303 hid_polar; ! #X obj 174 303 hid_spiral; #X obj 10 350 hid2rad; #X obj 130 350 hid2deg; *************** *** 136,141 **** #X obj 190 350 deg2hid; #X text 1 330 ANGLE CONVERSIONS; ! #X text 474 386 Objects that start with "hid_" accept input data in the range of 0-1 and output data in the same range \, allowing you to chain as many of these objects together without thinking about scaling the resulting data with each step.; --- 115,134 ---- #X obj 190 350 deg2hid; #X text 1 330 ANGLE CONVERSIONS; ! #X text 40 385 Objects that start with "hid_" accept input data in the range of 0-1 and output data in the same range \, allowing you to chain as many of these objects together without thinking about scaling the resulting data with each step.; + #N canvas 0 22 450 300 graph1 0; + #X array logarithmic 100 float 0; + #X coords 0 1 99 0 100 100 1; + #X restore 486 61 graph; + #X obj 378 101 hid_log; + #N canvas 0 22 450 300 graph5 0; + #X array exponential 100 float 0; + #X coords 0 1 99 0 100 100 1; + #X restore 731 61 graph; + #X obj 631 99 hid_exp; + #X text 37 51 [THIS IS A WORK-IN-PROGRESS]; + #X obj 173 167 hid_lowpass; + #X obj 193 262 hid_one2four; + #X text 556 437 Or draw your own curve:;

1 0

externals/hcs/hid hid_cube-help.pd, NONE, 1.1 hid_cuberoot-help.pd, NONE, 1.1 hid_exp-help.pd, NONE, 1.1 hid_graph-help.pd, NONE, 1.1 hid_log-help.pd, NONE, 1.1 hid_square-help.pd, NONE, 1.1 hid_squareroot-help.pd, NONE, 1.1 hid_graph.pd, 1.6, 1.7
by Hans-Christoph Steiner 24 May '05

24 May '05

Update of /cvsroot/pure-data/externals/hcs/hid In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4973 Modified Files: hid_graph.pd Added Files: hid_cube-help.pd hid_cuberoot-help.pd hid_exp-help.pd hid_graph-help.pd hid_log-help.pd hid_square-help.pd hid_squareroot-help.pd Log Message: got [hid_graph] fully functional; added helpfiles for all curve objects Index: hid_graph.pd =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/hid/hid_graph.pd,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** hid_graph.pd 21 May 2005 02:41:51 -0000 1.6 --- hid_graph.pd 24 May 2005 00:39:31 -0000 1.7 *************** *** 1,43 **** ! #N canvas 606 208 515 544 10; ! #X obj 20 178 inlet; #N canvas 0 22 466 316 graph5 0; ! #X array \$0-hid 100 float 2; #X coords 0 1 100 0 100 100 1; ! #X restore -1 20 graph; ! #X obj 115 368 outlet; ! #X text 155 301 gives a range of 0-100; ! #X text 162 369 output range 0 to 1; ! #X obj 115 323 tabread \$0-hid_graph_array; ! #X text -4 157 [hid_graph]; ! #X obj 115 300 * 100; ! #X text 60 180 input range: 0 to 1; ! #X obj 20 227 route reset; ! #X obj -8 370 f; ! #X obj -38 370 +; ! #X msg 6 338 0; ! #X msg -38 338 1; ! #X obj -38 454 / 100; ! #X obj -38 431 trigger f f; ! #X obj -38 486 tabwrite \$0-hid_graph_array; ! #X floatatom 34 460 5 0 0 0 - - -; ! #X obj -62 312 until 100; ! #X obj -62 288 trigger bang bang; ! #X connect 0 0 9 0; ! #X connect 5 0 2 0; ! #X connect 7 0 5 0; ! #X connect 9 0 19 0; ! #X connect 9 1 7 0; ! #X connect 10 0 11 1; ! #X connect 11 0 15 0; ! #X connect 11 0 10 0; ! #X connect 12 0 10 1; ! #X connect 12 0 11 1; ! #X connect 13 0 11 0; ! #X connect 14 0 16 0; ! #X connect 15 0 14 0; ! #X connect 15 1 16 1; ! #X connect 15 1 17 0; ! #X connect 18 0 13 0; ! #X connect 19 0 18 0; ! #X connect 19 1 12 0; ! #X coords 0 0 1 1 120 120 1; --- 1,45 ---- ! #N canvas 606 208 100 116 10; ! #X obj 103 188 inlet; #N canvas 0 22 466 316 graph5 0; ! #X array \$0_ 100 float 2; #X coords 0 1 100 0 100 100 1; ! #X restore 0 16 graph; ! #X obj 198 378 outlet; ! #X text 238 311 gives a range of 0-100; ! #X text 245 379 output range 0 to 1; ! #X text 79 167 [hid_graph]; ! #X obj 198 310 * 100; ! #X text 143 190 input range: 0 to 1; ! #X obj 103 237 route reset; ! #X obj 75 380 f; ! #X obj 45 380 +; ! #X msg 89 348 0; ! #X msg 45 348 1; ! #X obj 45 464 / 100; ! #X obj 45 441 trigger f f; ! #X obj 21 278 trigger bang bang; ! #X msg 21 303 100; ! #X obj 21 322 until; ! #X obj 198 333 tabread \$0_; ! #X obj 45 496 tabwrite \$0_; ! #X obj -7 229 loadbang; ! #X connect 0 0 8 0; ! #X connect 6 0 18 0; ! #X connect 8 0 15 0; ! #X connect 8 1 6 0; ! #X connect 9 0 10 1; ! #X connect 10 0 14 0; ! #X connect 10 0 9 0; ! #X connect 11 0 9 1; ! #X connect 11 0 10 1; ! #X connect 12 0 10 0; ! #X connect 13 0 19 0; ! #X connect 14 0 13 0; ! #X connect 14 1 19 1; ! #X connect 15 0 16 0; ! #X connect 15 1 11 0; ! #X connect 16 0 17 0; ! #X connect 17 0 12 0; ! #X connect 18 0 2 0; ! #X connect 20 0 15 0; ! #X coords 0 0 1 1 100 116 1; --- NEW FILE: hid_square-help.pd --- #N canvas 556 145 476 357 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_square] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 300 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 314 released under the GNU GPL; #X text 98 271 For more info:; #X obj 202 269 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_square; #N canvas 0 22 450 300 graph1 0; #X array hid_square 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_square; #X obj 56 283 tabwrite hid_square; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X text 15 34 This object maps the input range to a square curve \, i.e. [pow 2] \, "X squared" \, or X^2.; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_squareroot-help.pd --- #N canvas 416 140 476 357 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_squareroot] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 300 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 314 released under the GNU GPL; #X text 98 271 For more info:; #X obj 202 269 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_squareroot; #N canvas 0 22 450 300 graph1 0; #X array hid_squareroot 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_squareroot; #X obj 56 283 tabwrite hid_squareroot; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X text 15 34 This object maps the input range to a square root curve \, i.e. [pow 0.5] \, "square root of X" \, or X^0.5.; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_cube-help.pd --- #N canvas 556 145 472 353 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_graph] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 300 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 314 released under the GNU GPL; #X text 98 271 For more info:; #X obj 202 269 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_cube; #X text 15 34 This object maps the input range to a cube curve \, i.e. [pow 3] or "X to power of 3".; #N canvas 0 22 450 300 graph1 0; #X array hid_cube 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_cube; #X obj 56 283 tabwrite hid_cube; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_exp-help.pd --- #N canvas 567 104 472 353 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_exp] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 300 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 314 released under the GNU GPL; #X text 98 271 For more info:; #X obj 202 269 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_exp; #N canvas 0 22 450 300 graph1 0; #X array hid_exp 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_exp; #X obj 56 283 tabwrite hid_exp; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X text 17 39 This object maps the input range to a exponential curve \, the inverse of a logarithmic curve.; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_cuberoot-help.pd --- #N canvas 416 140 464 319 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_cuberoot] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 280 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 294 released under the GNU GPL; #X text 98 251 For more info:; #X obj 202 249 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_cuberoot; #N canvas 0 22 450 300 graph1 0; #X array hid_cuberoot 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_cuberoot; #X obj 56 283 tabwrite hid_cuberoot; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X text 15 34 This object maps the input range to a cube root curve \, i.e. [pow 0.333333] \, "cube root of X" \, or X^0.333333.; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_log-help.pd --- #N canvas 567 104 472 353 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_log] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 300 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 314 released under the GNU GPL; #X text 98 271 For more info:; #X obj 202 269 pddp_open all_about_hid_mapping; #X floatatom 25 123 8 0 0 0 - - -; #X floatatom 25 184 8 0 0 0 - - -; #X obj 28 201 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 28 103 hsl 200 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 25 153 hid_log; #N canvas 0 22 450 300 graph1 0; #X array hid_log 100 float 0; #X coords 0 1 99 0 100 100 1; #X restore 321 111 graph; #N canvas 266 69 327 317 draw_array 0; #X msg 57 52 bang; #X obj 57 73 until; #X text 88 52 start; #X obj 57 95 f; #X obj 86 95 + 1; #X obj 132 97 sel 0; #X obj 86 117 mod 100; #X obj 57 150 t f f; #X obj 94 177 s array_index; #X obj 170 262 r array_index; #X obj 57 13 loadbang; #X obj 57 207 / 100; #X text 99 207 [hid] output range: 0 to 1; #X obj 56 233 hid_log; #X obj 56 283 tabwrite hid_log; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 4 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 1 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 11 0; #X connect 7 1 8 0; #X connect 9 0 14 1; #X connect 10 0 0 0; #X connect 11 0 13 0; #X connect 13 0 14 0; #X restore 321 78 pd draw_array; #X text 17 40 This object maps the input range to a logarithmic curve. Humans perceive pitch and amplitude on a logarithmic scale.; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 9 0 6 0; #X connect 10 0 7 0; --- NEW FILE: hid_graph-help.pd --- #N canvas 61 248 495 470 10; #X obj 5 2 cnv 15 450 20 empty empty [hid_graph] 2 11 1 18 -233017 -66577 0; #X obj 422 3 pddp; #X text 27 410 (C) Copyright 2004 Hans-Christoph Steiner <hans(a)at.or.at> ; #X text 244 424 released under the GNU GPL; #X text 98 381 For more info:; #X obj 202 379 pddp_open all_about_hid_mapping; #X msg 19 150 reset; #X floatatom 95 163 5 0 0 0 - - -; #X floatatom 94 314 5 0 0 0 - - -; #X obj 97 331 hsl 250 15 0 1 0 0 empty empty empty 22 8 1 12 -262144 -1 -1 0 1; #X obj 98 143 hsl 250 15 0 1 0 0 empty empty empty 22 8 1 12 -261681 -1 -1 0 1; #X obj 94 187 hid_graph; #X text 18 33 This object allows you to draw an arbitrary curve \, which is then applied to the input range. To change the curve \, click anywhere on the black diagonal line and start dragging.; #X text 19 86 There are 100 points in [hid_graph] \, each one pixel in size.; #X connect 6 0 11 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 10 0 7 0; #X connect 11 0 8 0;

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
41
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 May 2005