seriously i want sound!!! bakapee!

[16.git] / src / lib / 16_snd.c

diff --git a/src/lib/16_snd.c b/src/lib/16_snd.c
index 828237f5884b432cc7052b94fa84480a751d6ddc..47cab348332462fb8a4a85e326c22b1888540818 100644 (file)
--- a/src/lib/16_snd.c
+++ b/src/lib/16_snd.c
@@ -107,3 +107,89 @@ void FMReset(void/*int percusiveMode*/)
 \r
        //FMSetPercusiveMode(percusiveMode);\r
 } /* End of FMReset */
+
+/* Function: FMKeyOff *******************************************************\r
+*\r
+*     Parameters:        voice - which voice to turn off.\r
+*\r
+*     Description:        turns off the specified voice.\r
+*\r
+*/\r
+void FMKeyOff(int voice)
+{\r
+       int regNum;\r
+\r
+       /* turn voice off */\r
+       regNum = 0xB0 + voice % 11;//NUMVOICE;\r
+       opl2out(regNum, 0x0E);\r
+} /* End of FMKeyOff */\r
+\r
+/* Function: FMKeyOn *******************************************************\r
+*\r
+*     Parameters:        voice - which voice to turn on.\r
+*                         freq - its frequency (note).\r
+*                         octave - its octave.\r
+*\r
+*     Description:        turns on a voice of specfied frequency and\r
+*                         octave.\r
+*\r
+*/\r
+void FMKeyOn(int voice, int freq, int octave)
+{\r
+       int regNum, tmp;\r
+\r
+       regNum = 0xA0 + voice % 11;//NUMVOICE;\r
+       opl2out(regNum, freq & 0xff);\r
+       regNum = 0xB0 + voice % 11;//NUMVOICE;\r
+       tmp = (freq >> 8) | (octave << 2) | 0x20;
+       opl2out(regNum, tmp);\r
+} /* End of FMKeyOn */
+
+/* Function: FMSetVoice *****************************************************\r
+*\r
+*     Parameters:        voiceNum - which voice to set.\r
+*                         ins - instrument to set voice.\r
+*\r
+*     Description:        sets the instrument of a voice.\r
+*\r
+*/\r
+void FMSetVoice(int voiceNum, FMInstrument *ins){\r
+       int opCellNum, cellOffset;\r
+\r
+       voiceNum %= 11;//NUMVOICE;\r
+       cellOffset = voiceNum % 3 + ((voiceNum / 3) << 3);\r
+\r
+       /* set sound characteristic */\r
+       opCellNum = 0x20 + (char)cellOffset;\r
+       opl2out(opCellNum, ins->SoundCharacteristic[0]);\r
+       opCellNum += 3;\r
+       opl2out(opCellNum, ins->SoundCharacteristic[1]);\r
+\r
+       /* set level/output */\r
+       opCellNum = 0x40 + (char)cellOffset;\r
+       opl2out(opCellNum, ins->Level[0]);\r
+       opCellNum += 3;\r
+       opl2out(opCellNum, ins->Level[1]);\r
+\r
+       /* set Attack/Decay */\r
+       opCellNum = 0x60 + (char)cellOffset;\r
+       opl2out(opCellNum, ins->AttackDecay[0]);\r
+       opCellNum += 3;\r
+       opl2out(opCellNum, ins->AttackDecay[1]);\r
+\r
+       /* set Sustain/Release */\r
+       opCellNum = 0x80 + (char)cellOffset;\r
+       opl2out(opCellNum, ins->SustainRelease[0]);\r
+       opCellNum += 3;\r
+       opl2out(opCellNum, ins->SustainRelease[1]);\r
+\r
+       /* set Wave Select */\r
+       opCellNum = 0xE0 + (char)cellOffset;\r
+       opl2out(opCellNum, ins->WaveSelect[0]);\r
+       opCellNum += 3;\r
+       opl2out(opCellNum, ins->WaveSelect[1]);\r
+\r
+       /* set Feedback/Selectivity */\r
+       opCellNum = (byte)0xC0 + (byte)voiceNum;\r
+       opl2out(opCellNum, ins->Feedback);\r
+} /* End of FMSetVoice */