Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

require 'ioctl.ph';
...
ioctl(MIXR, &MIXER_READ(0), $data) || die "Can't ioctl!\n";
close MIXR;
print "data: $data\n";

Select or download this

eval 'sub SEQ_PITCHBEND {
    local($dev, $voice, $value) = @_;
        eval q( &SEQ_V2_X_CONTROL($dev, $voice,  &CTRL_PITCH_BENDER, $
+value) );
}' unless defined(&SEQ_PITCHBEND);