Modules
ADT Database GTK2 GUI IP PiJAX Public Sql Stdio Subversion System Tools Xosd lua v4l2 wx
Recent Changes
Public.Parser.XML2 1.50
Public.ZeroMQ 1.1
Public.Template.Mustache 1.0
Public.Protocols.XMPP 1.4
Sql.Provider.jdbc 1.0
Popular Downloads
Public.Parser.JSON2 1.0
Public.Parser.JSON 0.2
GTK2 2.23
Public.Web.FCGI 1.8
Public.Parser.XML2 1.48
|
Module Information
Public.Sound.Midi
Viewing contents of Public_Sound_Midi-1.0/miditest.pike
import .Midi;
int main() {
object midi = Control();
object device = Device(0);
for(int i = 0; i < midi->count_devices() ; i++) {
device->set_ID(i);
write("interface " + i + ": " + device->get_interface() + "\n");
write("name: " + device->get_name() + "\n");
if (device->is_input()) {
write("-> is input\n");
}
if (device->is_output()) {
write("-> is output\n");
}
write("------------------------------------------------\n");
}
/*device->set_ID(12);
int err = device->open();
write("open: " + midi->get_error_text(err) + "\n");
for (int i = 0; i < 10; i++) {
err = device->message(0x90, 60, 127);
write("write: " + midi->get_error_text(err) + "\n");
sleep(1);
err = device->message(0x90, 60, 0);
write("write: " + midi->get_error_text(err) + "\n");
sleep(1);
}
err = device->close();
write("close: " + midi->get_error_text(err) + "\n");*/
return(0);
}
|
|
|