SUB Cqt_init 'init CQT CQT.naam = "cqt" SetPitch2MidiPorts CQT, "c:\b\pb\gmt\kristof\machinewall\mw.cfg", hMidiO(),hMidiI() 'zet niet alleen poorten maar ook controllers voor cqt modemess cqt.outchannel,33,cqt.ctrl(33) ' 75 '64 modemess cqt.outchannel,34,cqt.ctrl(34) '85 '64 modemess cqt.outchannel,35,cqt.ctrl(35) '64 modemess cqt.outchannel,36,cqt.ctrl(36) '64 modemess cqt.outchannel,37,cqt.ctrl(37) '64 modemess cqt.outchannel,38,cqt.ctrl(38) '64 modemess cqt.outchannel,39,cqt.ctrl(39) '64 modemess cqt.outchannel,40,cqt.ctrl(40) '64 ' U/D 0 modemess cqt.outchannel,41,cqt.hightes '93 '127 = @pcqt.ctrl(41) modemess cqt.outchannel,42,cqt.lowtes '32 '0 = @pcqt.ctrl(42) cqt.ctrl(41) = cqt.hightes cqt.ctrl(42) = cqt.lowtes END SUB '[EOF]