e1lama/stk
1
0
Fork 0
mirror of https://github.com/thestk/stk synced 2026-02-05 08:56:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version 4.2.0

Browse Source
This commit is contained in:
Gary Scavone
2009-03-24 23:02:14 -04:00
committed by Stephen Sinclair
parent cf06b7598b
commit a6381b9d38
281 changed files with 17152 additions and 12000 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
projects/effects/tcl/Effects.tcl
View File

@@ -26,7 +26,7 @@ label .title -text "STK Effects Controller" \
-font {Times 14 bold} -background white \
-foreground darkred -relief raised
label .title2 -text "by Gary P. Scavone\n Center for Computer Research in Music & Acoustics (CCRMA) \n Stanford University" \
label .title2 -text "by Gary P. Scavone\n Music Technology, McGill University" \
-font {Times 12 bold} -background white \
-foreground darkred -relief raised
@@ -50,7 +50,7 @@ frame .left -bg black
scale .left.effectsmix -from 0 -to 127 -length 400 \
-command {printWhatz "ControlChange 0.0 1 " 44} \
-orient horizontal -label "Effects Mix" \
-orient horizontal -label "Effects Mix (0% effect - 100% effect)" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable mixlevel
@@ -132,7 +132,7 @@ proc changeEffect {tag value1 value2 } {
.left.effect2 config -state disabled -label "Disabled"
}
if ($value2==1) {
.left.effect1 config -state normal -label "Pitch Shift Amount"
.left.effect1 config -state normal -label "Pitch Shift Amount (center = no shift)"
.left.effect2 config -state disabled -label "Disabled"
}
if ($value2==2) {
@@ -140,7 +140,7 @@ proc changeEffect {tag value1 value2 } {
.left.effect2 config -state normal -label "Chorus Modulation Depth"
}
if {$value2>=3 && $value2<=5} {
.left.effect1 config -state disabled -label "Disabled"
.left.effect1 config -state normal -label "T60 Decay Time ( 0 - 10 seconds)"
.left.effect2 config -state disabled -label "Disabled"
}
puts $outID [format "%s %i %f" $tag $value1 $value2]