[BACK]Return to opngeng.c CVS log [TXT] [DIR] Up to [RetroPC.NET] / np2 / sound

Diff for /np2/sound/opngeng.c between versions 1.1.1.1 and 1.9

version 1.1.1.1, 2003/10/16 17:58:04 version 1.9, 2005/02/04 05:32:24
Line 1 Line 1
 #include        "compiler.h"  #include        "compiler.h"
   #include        "pccore.h"
   #include        "iocore.h"
 #include        "sound.h"  #include        "sound.h"
 #include        "opngen.h"  #include        "fmboard.h"
   
   
 extern  SINT32  env_curve[];                            // ver0.27  #if defined(OPNGENX86)
 extern  SINT32  envtable[];  #error use opngen.x86
 extern  SINT32  sintable[];                                     // ver0.27  #endif
   
 // opn work  
 extern  UINT    playchannels;  extern  OPNCFG  opncfg;
 extern  SINT32  feedback2;  
 extern  SINT32  feedback3;  
 extern  SINT32  feedback4;  #define CALCENV(e, c, s)                                                                                                        \
 extern  SINT32  outdl;          (c)->slot[(s)].freq_cnt += (c)->slot[(s)].freq_inc;                                             \
 extern  SINT32  outdc;          (c)->slot[(s)].env_cnt += (c)->slot[(s)].env_inc;                                               \
 extern  SINT32  outdr;          if ((c)->slot[(s)].env_cnt >= (c)->slot[(s)].env_end) {                                 \
 extern  SINT32  calc1024;                  switch((c)->slot[(s)].env_mode) {                                                                       \
 extern  SINT32  calcremain;                          case EM_ATTACK:                                                                                                 \
 extern  SINT32  fmvolforasm;                                  (c)->slot[(s)].env_mode = EM_DECAY1;                                            \
 extern  SINT32  fmvolforc;                                  (c)->slot[(s)].env_cnt = EC_DECAY;                                                      \
                                   (c)->slot[(s)].env_end = (c)->slot[(s)].decaylevel;                     \
                                   (c)->slot[(s)].env_inc = (c)->slot[(s)].env_inc_decay1;         \
                                   break;                                                                                                          \
                           case EM_DECAY1:                                                                                                 \
                                   (c)->slot[(s)].env_mode = EM_DECAY2;                                            \
                                   (c)->slot[(s)].env_cnt = (c)->slot[(s)].decaylevel;                     \
                                   (c)->slot[(s)].env_end = EC_OFF;                                                        \
                                   (c)->slot[(s)].env_inc = (c)->slot[(s)].env_inc_decay2;         \
                                   break;                                                                                                          \
                           case EM_RELEASE:                                                                                                \
                                   (c)->slot[(s)].env_mode = EM_OFF;                                                       \
                           case EM_DECAY2:                                                                                                 \
                                   (c)->slot[(s)].env_cnt = EC_OFF;                                                        \
                                   (c)->slot[(s)].env_end = EC_OFF + 1;                                            \
                                   (c)->slot[(s)].env_inc = 0;                                                                     \
                                   (c)->playing &= ~(1 << (s));                                                            \
                                   break;                                                                                                          \
                   }                                                                                                                                       \
           }                                                                                                                                               \
           (e) = (c)->slot[(s)].totallevel -                                                                               \
                                           opncfg.envcurve[(c)->slot[(s)].env_cnt >> ENV_BITS];
   
 #define SLOTOUT(s, e, c)                                                                                                        \  #define SLOTOUT(s, e, c)                                                                                                        \
                 ((sintable[(((s).freq_cnt + (c)) >> (FREQ_BITS - SIN_BITS)) &           \                  ((opncfg.sintable[(((s).freq_cnt + (c)) >>                                                      \
                         (SIN_ENT-1)] * envtable[(e)]) >> (ENVTBL_BIT+SINTBL_BIT-TL_BITS))                                                          (FREQ_BITS - SIN_BITS)) & (SIN_ENT - 1)] *              \
                                   opncfg.envtable[(e)]) >> (ENVTBL_BIT+SINTBL_BIT-TL_BITS))
 static SINT32 calcrateenvlope(OPNSLOT *slot) {  
   
         /* calcrate phage generator */  
         slot->freq_cnt += slot->freq_inc;  
         /* calcrate envelope generator */  
         slot->env_cnt += slot->env_inc;  
         if (slot->env_cnt >= slot->env_end) {  
                 switch(slot->env_mode) {  
                         case EM_ATTACK:                                         // DECAY1 start  
                                 slot->env_mode = EM_DECAY1;  
                                 slot->env_cnt = EC_DECAY;  
                                 slot->env_end = slot->decaylevel;  
                                 slot->env_inc = slot->env_inc_decay1;  
                                 break;  
   
                         case EM_DECAY1:                                         // DECAY2 start  
                                 slot->env_mode = EM_DECAY2;  
                                 slot->env_cnt = slot->decaylevel;  
                                 slot->env_end = EC_OFF;  
                                 slot->env_inc = slot->env_inc_decay2;  
                                 break;  
   
                         case EM_RELEASE:                                        // OFF timing  
                                 slot->env_mode = EM_OFF;  
   
                         case EM_DECAY2:                                         // DECAY end  
                                 slot->env_cnt = EC_OFF;  
                                 slot->env_end = EC_OFF + 1;  
                                 slot->env_inc = 0;  
                                 break;  
                 }  
         }  
         return(slot->totallevel - env_curve[slot->env_cnt >> ENV_BITS]);  
 }  
   
 static void calcratechannel(OPNCH *ch) {  static void calcratechannel(OPNCH *ch) {
   
         SINT32  envout;          SINT32  envout;
         SINT32  opout;          SINT32  opout;
   
         feedback2 = 0;          opngen.feedback2 = 0;
         feedback3 = 0;          opngen.feedback3 = 0;
         feedback4 = 0;          opngen.feedback4 = 0;
   
         /* SLOT 1 */          /* SLOT 1 */
         envout = calcrateenvlope(ch->slot + 0);          CALCENV(envout, ch, 0);
         if (envout > 0) {          if (envout > 0) {
                 if (ch->feedback) {                  if (ch->feedback) {
                         /* with self feed back */                          /* with self feed back */
Line 85  static void calcratechannel(OPNCH *ch) { Line 74  static void calcratechannel(OPNCH *ch) {
                 }                  }
                 /* output slot1 */                  /* output slot1 */
                 if (!ch->connect1) {                  if (!ch->connect1) {
                         feedback2 = feedback3 = feedback4 = opout;                          opngen.feedback2 = opngen.feedback3 = opngen.feedback4 = opout;
                 }                  }
                 else {                  else {
                         *ch->connect1 += opout;                          *ch->connect1 += opout;
                 }                  }
         }          }
         /* SLOT 2 */          /* SLOT 2 */
         envout = calcrateenvlope(ch->slot + 1);          CALCENV(envout, ch, 1);
         if (envout > 0) {          if (envout > 0) {
                 *ch->connect2 += SLOTOUT(ch->slot[1], envout, feedback2);                  *ch->connect2 += SLOTOUT(ch->slot[1], envout, opngen.feedback2);
         }          }
         /* SLOT 3 */          /* SLOT 3 */
         envout = calcrateenvlope(ch->slot + 2);          CALCENV(envout, ch, 2);
         if (envout > 0) {          if (envout > 0) {
                 *ch->connect3 += SLOTOUT(ch->slot[2], envout, feedback3);                  *ch->connect3 += SLOTOUT(ch->slot[2], envout, opngen.feedback3);
         }          }
         /* SLOT 4 */          /* SLOT 4 */
         envout = calcrateenvlope(ch->slot + 3);          CALCENV(envout, ch, 3);
         if (envout > 0) {          if (envout > 0) {
                 *ch->connect4 += SLOTOUT(ch->slot[3], envout, feedback4);                  *ch->connect4 += SLOTOUT(ch->slot[3], envout, opngen.feedback4);
         }          }
 }  }
   
 void SOUNDCALL opngen_getpcm(void *hdl, SINT32 *pcm, UINT count) {  void SOUNDCALL opngen_getpcm(void *hdl, SINT32 *pcm, UINT count) {
   
         OPNCH   *opn;          OPNCH   *fm;
         UINT    i;          UINT    i;
           UINT    playing;
         SINT32  samp_l;          SINT32  samp_l;
         SINT32  samp_r;          SINT32  samp_r;
   
         opn = opnch;          if ((!opngen.playing) || (!count)) {
                   return;
           }
           fm = opnch;
           do {
                   samp_l = opngen.outdl * (opngen.calcremain * -1);
                   samp_r = opngen.outdr * (opngen.calcremain * -1);
                   opngen.calcremain += FMDIV_ENT;
                   while(1) {
                           opngen.outdc = 0;
                           opngen.outdl = 0;
                           opngen.outdr = 0;
                           playing = 0;
                           for (i=0; i<opngen.playchannels; i++) {
                                   if (fm[i].playing & fm[i].outslot) {
                                           calcratechannel(fm + i);
                                           playing++;
                                   }
                           }
                           opngen.outdl += opngen.outdc;
                           opngen.outdr += opngen.outdc;
                           opngen.outdl >>= FMVOL_SFTBIT;
                           opngen.outdr >>= FMVOL_SFTBIT;
                           if (opngen.calcremain > opncfg.calc1024) {
                                   samp_l += opngen.outdl * opncfg.calc1024;
                                   samp_r += opngen.outdr * opncfg.calc1024;
                                   opngen.calcremain -= opncfg.calc1024;
                           }
                           else {
                                   break;
                           }
                   }
                   samp_l += opngen.outdl * opngen.calcremain;
                   samp_l >>= 8;
                   samp_l *= opncfg.fmvol;
                   samp_l >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);
                   pcm[0] += samp_l;
                   samp_r += opngen.outdr * opngen.calcremain;
                   samp_r >>= 8;
                   samp_r *= opncfg.fmvol;
                   samp_r >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);
                   pcm[1] += samp_r;
                   opngen.calcremain -= opncfg.calc1024;
                   pcm += 2;
           } while(--count);
           opngen.playing = playing;
           (void)hdl;
   }
   
   void SOUNDCALL opngen_getpcmvr(void *hdl, SINT32 *pcm, UINT count) {
   
           OPNCH   *fm;
           UINT    i;
           SINT32  samp_l;
           SINT32  samp_r;
   
           fm = opnch;
         while(count--) {          while(count--) {
                 samp_l = outdl * (calcremain * -1);                  samp_l = opngen.outdl * (opngen.calcremain * -1);
                 samp_r = outdr * (calcremain * -1);                  samp_r = opngen.outdr * (opngen.calcremain * -1);
                 calcremain += FMDIV_ENT;                  opngen.calcremain += FMDIV_ENT;
                 while(1) {                  while(1) {
                         outdc = 0;                          opngen.outdc = 0;
                         outdl = 0;                          opngen.outdl = 0;
                         outdr = 0;                          opngen.outdr = 0;
                         for (i=0; i<playchannels; i++) {                          for (i=0; i<opngen.playchannels; i++) {
                                 calcratechannel(opn + i);                                  calcratechannel(fm + i);
                         }                          }
                         outdl += outdc;                          if (opncfg.vr_en) {
                         outdr += outdc;                                  SINT32 tmpl;
                         outdl >>= FMVOL_SFTBIT;                                  SINT32 tmpr;
                         outdr >>= FMVOL_SFTBIT;                                  tmpl = (opngen.outdl >> 5) * opncfg.vr_l;
                         if (calcremain > calc1024) {                                  tmpr = (opngen.outdr >> 5) * opncfg.vr_r;
                                 samp_l += outdl * calc1024;                                  opngen.outdl += tmpr;
                                 samp_r += outdr * calc1024;                                  opngen.outdr += tmpl;
                                 calcremain -= calc1024;                          }
                           opngen.outdl += opngen.outdc;
                           opngen.outdr += opngen.outdc;
                           opngen.outdl >>= FMVOL_SFTBIT;
                           opngen.outdr >>= FMVOL_SFTBIT;
                           if (opngen.calcremain > opncfg.calc1024) {
                                   samp_l += opngen.outdl * opncfg.calc1024;
                                   samp_r += opngen.outdr * opncfg.calc1024;
                                   opngen.calcremain -= opncfg.calc1024;
                         }                          }
                         else {                          else {
                                 break;                                  break;
                         }                          }
                 }                  }
                 samp_l += outdl * calcremain;                  samp_l += opngen.outdl * opngen.calcremain;
                 samp_l >>= 8;                  samp_l >>= 8;
                 samp_l *= fmvolforc;                  samp_l *= opncfg.fmvol;
                 samp_l >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);                  samp_l >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);
                 pcm[0] += samp_l;                  pcm[0] += samp_l;
                 samp_r += outdr * calcremain;                  samp_r += opngen.outdr * opngen.calcremain;
                 samp_r >>= FMDIV_BITS;                  samp_r >>= 8;
                 samp_r *= fmvolforc;                  samp_r *= opncfg.fmvol;
                 samp_r >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);                  samp_r >>= (OPM_OUTSB + FMDIV_BITS + 1 + 6 - FMVOL_SFTBIT - 8);
                 pcm[1] += samp_r;                  pcm[1] += samp_r;
                 calcremain -= calc1024;                  opngen.calcremain -= opncfg.calc1024;
                 pcm += 2;                  pcm += 2;
         }          }
         (void)hdl;          (void)hdl;
Removed from v.1.1.1.1  
changed lines
  Added in v.1.9

RetroPC.NET-CVS <cvs@retropc.net>