Midi WINSOUND für emulatoren und tongenerator

[sharpals]

Hallo, ich stelle mal meine midiunit für emulatoren zur verfügung.

Sie ist sozusagen ein 16kanal tongenerator.

InitMIDI setzt die variablen;

SetSound setzt das intrument für einen kanal.

NoteOn(Channel,Note,Level:integer) spielt einen note

NoteOff(Channel:integer) schaltet den ton aus


WinSound(Channel,Freq,Volume:integer) spielt einen TON mit der Frequenz Freq ab.

also z.B winsound(0,1000,200) 1Khz auf dem kanal 0.


-----------------------------------------------------------------

Noch eine Frage: wie kann ich in Midi einen Rechteckton erzeugen, oder aber mindestens den ab und anschlag auf null setzen.

Mommentan klingt der emu etwas unnatürlich.

Gruß