/usr/share/din/midimap.patch.tcl is in din 5.2.1-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | if {0} {
/*
* This file is part of din.
*
* din is copyright (c) 2006 - 2012 S Jagannathan <jag@dinisnoise.org>
* For more information, please visit http://dinisnoise.org
*
* din is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 2 of the License, or
* (at your option) any later version.
*
* din is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* for more details.
*
* You should have received a copy of the GNU General Public License along
* with din. If not, see <http://www.gnu.org/licenses/>.
*
*/
displays midi controller slider/knob/buttons/keys & misc others status
}
proc make-tracer {name outcmd} {
proc $name [list status id val [list outcmd $outcmd] [list msg $name]] {
$outcmd "$msg: [format {mesg = %x id = %d value = %d} $status $id $val]"
}
}
proc midimap {{outcmd echo}} {
make-tracer midi-note-on $outcmd
make-tracer midi-note-off $outcmd
make-tracer midi-cc $outcmd
}
proc midi-clock {} {
global midibpm
set-bpm [list-bpms] $midibpm
}
proc midi-start {} {
foreach i [list-bpms] {
set-beat $i [get-beat $i first]
}
}
proc midi-program-change {status value {outcmd echo}} {
$outcmd "midi-program-change; status = $status, value = $value"
}
proc midi-pitch-bend {status ivalue fvalue {outcmd echo}} {
$outcmd "midi-pitch-bend, status = $status, ivalue = $ivalue, fvalue = $fvalue"
}
proc get-val {min max amount} { ;# get interpolated value from min to max
set amount [/ $amount 127.0]
return [expr { (1 - $amount) * $min + $amount * $max }]
}
midimap
|