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

Version 4.0

Browse Source
This commit is contained in:
Gary Scavone
2013-09-25 14:50:19 +02:00
committed by Stephen Sinclair
parent 3f126af4e5
commit 81475b04c5
473 changed files with 36355 additions and 28396 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
projects/ragamatic/tcl/TCLRaga.tcl → projects/ragamatic/tcl/Raga.tcl
View File

@@ -51,7 +51,7 @@ bind . <Destroy> +myExit
proc myExit {} {
global outID
puts $outID [format "NoteOff -1.0 1 60 127"]
puts $outID [format "NoteOff 0.0 1 60 127"]
flush $outID
puts $outID [format "ExitProgram"]
flush $outID
@@ -66,11 +66,11 @@ proc mellow {} {
set cont4 0.0
set cont11 10.0
set cont7 3.0
printWhatz "ControlChange -1.0 1 " 1 $cont1
printWhatz "ControlChange -1.0 1 " 2 $cont2
printWhatz "ControlChange -1.0 1 " 4 $cont4
printWhatz "ControlChange -1.0 1 " 7 $cont7
printWhatz "ControlChange -1.0 1 " 11 $cont11
printWhatz "ControlChange 0.0 1 " 1 $cont1
printWhatz "ControlChange 0.0 1 " 2 $cont2
printWhatz "ControlChange 0.0 1 " 4 $cont4
printWhatz "ControlChange 0.0 1 " 7 $cont7
printWhatz "ControlChange 0.0 1 " 11 $cont11
}
proc nicevibe {} {
@@ -80,11 +80,11 @@ proc nicevibe {} {
set cont4 21.0
set cont11 50.0
set cont7 60.0
printWhatz "ControlChange -1.0 1 " 1 $cont1
printWhatz "ControlChange -1.0 1 " 2 $cont2
printWhatz "ControlChange -1.0 1 " 4 $cont4
printWhatz "ControlChange -1.0 1 " 7 $cont7
printWhatz "ControlChange -1.0 1 " 11 $cont11
printWhatz "ControlChange 0.0 1 " 1 $cont1
printWhatz "ControlChange 0.0 1 " 2 $cont2
printWhatz "ControlChange 0.0 1 " 4 $cont4
printWhatz "ControlChange 0.0 1 " 7 $cont7
printWhatz "ControlChange 0.0 1 " 11 $cont11
}
proc voicSolo {} {
@@ -94,11 +94,11 @@ proc voicSolo {} {
set cont4 90.0
set cont11 10.0
set cont7 120.0
printWhatz "ControlChange -1.0 1 " 1 $cont1
printWhatz "ControlChange -1.0 1 " 2 $cont2
printWhatz "ControlChange -1.0 1 " 4 $cont4
printWhatz "ControlChange -1.0 1 " 7 $cont7
printWhatz "ControlChange -1.0 1 " 11 $cont11
printWhatz "ControlChange 0.0 1 " 1 $cont1
printWhatz "ControlChange 0.0 1 " 2 $cont2
printWhatz "ControlChange 0.0 1 " 4 $cont4
printWhatz "ControlChange 0.0 1 " 7 $cont7
printWhatz "ControlChange 0.0 1 " 11 $cont11
}
proc drumSolo {} {
@@ -108,11 +108,11 @@ proc drumSolo {} {
set cont4 0.0
set cont11 100.0
set cont7 120.0
printWhatz "ControlChange -1.0 1 " 1 $cont1
printWhatz "ControlChange -1.0 1 " 2 $cont2
printWhatz "ControlChange -1.0 1 " 4 $cont4
printWhatz "ControlChange -1.0 1 " 7 $cont7
printWhatz "ControlChange -1.0 1 " 11 $cont11
printWhatz "ControlChange 0.0 1 " 1 $cont1
printWhatz "ControlChange 0.0 1 " 2 $cont2
printWhatz "ControlChange 0.0 1 " 4 $cont4
printWhatz "ControlChange 0.0 1 " 7 $cont7
printWhatz "ControlChange 0.0 1 " 11 $cont11
}
proc rockOut {} {
@@ -122,28 +122,28 @@ proc rockOut {} {
set cont4 52.0
set cont11 120.0
set cont7 123.0
printWhatz "ControlChange -1.0 1 " 1 $cont1
printWhatz "ControlChange -1.0 1 " 2 $cont2
printWhatz "ControlChange -1.0 1 " 4 $cont4
printWhatz "ControlChange -1.0 1 " 7 $cont7
printWhatz "ControlChange -1.0 1 " 11 $cont11
printWhatz "ControlChange 0.0 1 " 1 $cont1
printWhatz "ControlChange 0.0 1 " 2 $cont2
printWhatz "ControlChange 0.0 1 " 4 $cont4
printWhatz "ControlChange 0.0 1 " 7 $cont7
printWhatz "ControlChange 0.0 1 " 11 $cont11
}
proc raga {scale} {
global outID
puts $outID [format "ControlChange -1.0 1 64 %f" $scale]
puts $outID [format "ControlChange 0.0 1 64 %f" $scale]
flush $outID
}
proc noteOn {pitchVal pressVal} {
global outID
puts $outID [format "NoteOn -1.0 1 %f %f" $pitchVal $pressVal]
puts $outID [format "NoteOn 0.0 1 %f %f" $pitchVal $pressVal]
flush $outID
}
proc noteOff {pitchVal pressVal} {
global outID
puts $outID [format "NoteOff -1.0 1 %f %f" $pitchVal $pressVal]
puts $outID [format "NoteOff 0.0 1 %f %f" $pitchVal $pressVal]
flush $outID
}
@@ -182,31 +182,31 @@ button .banner.butts.noteOn -text "Cease Meditations and Exit" \
frame .controls -bg black
scale .controls.cont1 -from 0 -to 128 -length 300 \
-command {printWhatz "ControlChange -1.0 1 " 1} \
-command {printWhatz "ControlChange 0.0 1 " 1} \
-orient horizontal -label "Drone Probability" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable cont1
scale .controls.cont2 -from 0 -to 128 -length 300 \
-command {printWhatz "ControlChange -1.0 1 " 2} \
-command {printWhatz "ControlChange 0.0 1 " 2} \
-orient horizontal -label "Sitar Probability" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable cont2
scale .controls.cont4 -from 0 -to 128 -length 300 \
-command {printWhatz "ControlChange -1.0 1 " 4} \
-command {printWhatz "ControlChange 0.0 1 " 4} \
-orient horizontal -label "Voice Drum Probability" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable cont4
scale .controls.cont11 -from 0 -to 128 -length 300 \
-command {printWhatz "ControlChange -1.0 1 " 11} \
-command {printWhatz "ControlChange 0.0 1 " 11} \
-orient horizontal -label "Tabla Probability" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable cont11
scale .controls.cont7 -from 0 -to 128 -length 300 \
-command {printWhatz "ControlChange -1.0 1 " 7} \
-command {printWhatz "ControlChange 0.0 1 " 7} \
-orient horizontal -label "Tempo" \
-tickinterval 32 -showvalue true -bg grey66 \
-variable cont7