Lines Matching refs:left
9 set left(generator) [snack::filter generator 440 20000 0.0 sine -1]
10 set leftFilter [snack::filter compose $left(generator) $leftMap]
18 pack [button .fb.a -bitmap snackPlay -command Play] -side left
19 pack [button .fb.b -bitmap snackStop -command "snack::audio stop"] -side left
21 set left(freq) 1000.0
22 set left(ampl) 20000
26 pack [frame .left] -expand yes -fill both -side top
27 pack [label .left.l -text "Left channel "] -side left
28 pack [scale .left.s1 -label Frequency -from 4000 -to 50 -length 200\
29 -variable left(freq) -command [list Config left]] -side left -expand yes -fill both
30 pack [scale .left.s2 -label Amplitude -from 32767 -to 0 -length 200\
31 -variable left(ampl) -command [list Config left]] -side left -expand yes -fill both
32 tk_optionMenu .left.m1 left(type) sine rectangle triangle sawtooth noise
34 .left.m1.menu entryconfigure $i -command [list Config left]
36 pack .left.m1 -side left
39 pack [label .right.l -text "Right channel"] -side left
41 -variable right(freq) -command [list Config right]] -side left -expand yes -fill both
43 -variable right(ampl) -command [list Config right]] -side left -expand yes -fill both
48 pack .right.m2 -side left