GUI: rate change and new window title

src/engine/dispatch.h

@@ -108,6 +108,7 @@ class DivDispatch {
 
     virtual bool isStereo();
     virtual bool keyOffAffectsArp(int ch);
+    virtual void setPAL(bool pal);
 
     /**
      * initialize this DivDispatch.

src/engine/engine.cpp

@@ -133,6 +133,38 @@ int DivEngine::getChannelCount(DivSystem sys) {
   return 0;
 }
 
+const char* DivEngine::getSystemName(DivSystem sys) {
+  switch (sys) {
+    case DIV_SYSTEM_NULL:
+      return "Unknown";
+    case DIV_SYSTEM_YMU759:
+      return "Yamaha YMU759";
+    case DIV_SYSTEM_GENESIS:
+      return "Sega Genesis/Mega Drive";
+    case DIV_SYSTEM_SMS:
+      return "Sega Master System";
+    case DIV_SYSTEM_GB:
+      return "Game Boy";
+    case DIV_SYSTEM_PCE:
+      return "PC Engine/TurboGrafx-16";
+    case DIV_SYSTEM_NES:
+      return "NES";
+    case DIV_SYSTEM_C64_6581:
+      return "Commodore 64 with 6581";
+    case DIV_SYSTEM_C64_8580:
+      return "Commodore 64 with 8580";
+    case DIV_SYSTEM_ARCADE:
+      return "Arcade";
+    case DIV_SYSTEM_GENESIS_EXT:
+      return "Sega Genesis Extended Channel 3";
+    case DIV_SYSTEM_YM2610:
+      return "Neo Geo";
+    case DIV_SYSTEM_YM2610_EXT:
+      return "Neo Geo Extended Channel 3";
+  }
+  return "Unknown";
+}
+
 bool DivEngine::isFMSystem(DivSystem sys) {
   return (sys==DIV_SYSTEM_GENESIS ||
           sys==DIV_SYSTEM_GENESIS_EXT ||
@@ -453,6 +485,7 @@ bool DivEngine::load(void* f, size_t slen) {
     if (ds.version>0x03) {
       ds.speed2=reader.readC();
       ds.pal=reader.readC();
+      ds.hz=(ds.pal)?60:50;
       ds.customTempo=reader.readC();
     } else {
       ds.speed2=ds.speed1;
@@ -1193,6 +1226,17 @@ void DivEngine::setOrder(unsigned char order) {
   isBusy.unlock();
 }
 
+void DivEngine::setSongRate(int hz, bool pal) {
+  isBusy.lock();
+  song.pal=!pal;
+  song.hz=hz;
+  song.customTempo=(song.hz!=50 && song.hz!=60);
+  dispatch->setPAL((!song.pal) || (song.customTempo!=0 && song.hz<53));
+  blip_set_rates(bb[0],dispatch->rate,got.rate);
+  blip_set_rates(bb[1],dispatch->rate,got.rate);
+  isBusy.unlock();
+}
+
 void DivEngine::setAudio(DivAudioEngines which) {
   audioEngine=which;
 }

src/engine/engine.h

@@ -119,6 +119,9 @@ class DivEngine {
     // get sys channel count
     int getChannelCount(DivSystem sys);
 
+    // get sys name
+    const char* getSystemName(DivSystem sys);
+
     // is FM system
     bool isFMSystem(DivSystem sys);
 
@@ -152,6 +155,9 @@ class DivEngine {
     // go to order
     void setOrder(unsigned char order);
 
+    // set Hz
+    void setSongRate(int hz, bool pal);
+
     // set remaining loops. -1 means loop forever.
     void setLoops(int loops);
 

src/engine/pattern.cpp

@@ -21,6 +21,15 @@ DivPattern* DivChannelData::getPattern(int index, bool create) {
   return data[index];
 }
 
+void DivChannelData::wipePatterns() {
+  for (int i=0; i<128; i++) {
+    if (data[i]!=NULL) {
+      delete data[i];
+      data[i]=NULL;
+    }
+  }
+}
+
 DivChannelData::DivChannelData():
   effectRows(1) {
   memset(data,0,128*sizeof(void*));

src/engine/pattern.h

@@ -14,5 +14,6 @@ struct DivChannelData {
   // 4-5+: effect/effect value
   DivPattern* data[128];
   DivPattern* getPattern(int index, bool create);
+  void wipePatterns();
   DivChannelData();
 };

src/engine/platform/abstract.cpp

@@ -21,6 +21,9 @@ bool DivDispatch::keyOffAffectsArp(int ch) {
   return false;
 }
 
+void DivDispatch::setPAL(bool pal) {
+}
+
 int DivDispatch::init(DivEngine* p, int channels, int sugRate, bool pal) {
   return 0;
 }

src/engine/platform/c64.cpp

@@ -302,13 +302,17 @@ void DivPlatformC64::setChipModel(bool is6581) {
   }
 }
 
-int DivPlatformC64::init(DivEngine* p, int channels, int sugRate, bool pal) {
-  parent=p;
+void DivPlatformC64::setPAL(bool pal) {
   if (pal) {
     rate=985248;
   } else {
     rate=1022727;
   }
+}
+
+int DivPlatformC64::init(DivEngine* p, int channels, int sugRate, bool pal) {
+  parent=p;
+  setPAL(pal);
 
   reset();
 

src/engine/platform/c64.h

@@ -57,6 +57,7 @@ class DivPlatformC64: public DivDispatch {
     int dispatch(DivCommand c);
     void reset();
     void tick();
+    void setPAL(bool pal);
     int init(DivEngine* parent, int channels, int sugRate, bool pal);
     void setChipModel(bool is6581);
     void quit();

src/engine/platform/genesis.cpp

@@ -400,13 +400,17 @@ bool DivPlatformGenesis::keyOffAffectsArp(int ch) {
   return (ch>5);
 }
 
-int DivPlatformGenesis::init(DivEngine* p, int channels, int sugRate, bool pal) {
-  parent=p;
+void DivPlatformGenesis::setPAL(bool pal) {
   if (pal) {
     rate=211125;
   } else {
     rate=213068;
   }
+}
+
+int DivPlatformGenesis::init(DivEngine* p, int channels, int sugRate, bool pal) {
+  parent=p;
+  setPAL(pal);
   // PSG
   psg.init(p,4,sugRate,pal);
 

src/engine/platform/genesis.h

@@ -55,6 +55,7 @@ class DivPlatformGenesis: public DivDispatch {
     void tick();
     bool isStereo();
     bool keyOffAffectsArp(int ch);
+    void setPAL(bool pal);
     int init(DivEngine* parent, int channels, int sugRate, bool pal);
     void quit();
     ~DivPlatformGenesis();

src/engine/platform/nes.cpp

@@ -296,8 +296,7 @@ bool DivPlatformNES::keyOffAffectsArp(int ch) {
   return true;
 }
 
-int DivPlatformNES::init(DivEngine* p, int channels, int sugRate, bool pal) {
-  parent=p;
+void DivPlatformNES::setPAL(bool pal) {
   if (pal) {
     rate=1662607;
     freqBase=FREQ_BASE_PAL;
@@ -305,6 +304,11 @@ int DivPlatformNES::init(DivEngine* p, int channels, int sugRate, bool pal) {
     rate=1789773;
     freqBase=FREQ_BASE;
   }
+}
+
+int DivPlatformNES::init(DivEngine* p, int channels, int sugRate, bool pal) {
+  parent=p;
+  setPAL(pal);
 
   init_nla_table(500,500);
   reset();

src/engine/platform/nes.h

@@ -47,6 +47,7 @@ class DivPlatformNES: public DivDispatch {
     void reset();
     void tick();
     bool keyOffAffectsArp(int ch);
+    void setPAL(bool pal);
     int init(DivEngine* parent, int channels, int sugRate, bool pal);
     void quit();
     ~DivPlatformNES();

src/engine/platform/pce.cpp

@@ -293,13 +293,17 @@ bool DivPlatformPCE::keyOffAffectsArp(int ch) {
   return true;
 }
 
-int DivPlatformPCE::init(DivEngine* p, int channels, int sugRate, bool pal) {
-  parent=p;
+void DivPlatformPCE::setPAL(bool pal) {
   if (pal) { // technically there is no PAL PC Engine but oh well...
     rate=1773448;
   } else {
     rate=1789773;
   }
+}
+
+int DivPlatformPCE::init(DivEngine* p, int channels, int sugRate, bool pal) {
+  parent=p;
+  setPAL(pal);
   pce=new PCE_PSG(&tempL,&tempR,PCE_PSG::REVISION_HUC6280);
   reset();
   return 6;

src/engine/platform/pce.h

@@ -59,6 +59,7 @@ class DivPlatformPCE: public DivDispatch {
     void tick();
     bool isStereo();
     bool keyOffAffectsArp(int ch);
+    void setPAL(bool pal);
     int init(DivEngine* parent, int channels, int sugRate, bool pal);
     void quit();
     ~DivPlatformPCE();

src/engine/platform/sms.cpp

@@ -172,13 +172,17 @@ bool DivPlatformSMS::keyOffAffectsArp(int ch) {
   return true;
 }
 
-int DivPlatformSMS::init(DivEngine* p, int channels, int sugRate, bool pal) {
-  parent=p;
+void DivPlatformSMS::setPAL(bool pal) {
   if (pal) {
     rate=221681;
   } else {
     rate=223722;
   }
+}
+
+int DivPlatformSMS::init(DivEngine* p, int channels, int sugRate, bool pal) {
+  parent=p;
+  setPAL(pal);
   sn=new sn76496_device(rate);
   reset();
   return 4;

src/engine/platform/sms.h

@@ -37,6 +37,7 @@ class DivPlatformSMS: public DivDispatch {
     void reset();
     void tick();
     bool keyOffAffectsArp(int ch);
+    void setPAL(bool pal);
     int init(DivEngine* parent, int channels, int sugRate, bool pal);
     void quit();
     ~DivPlatformSMS();

src/engine/song.cpp

@@ -14,5 +14,9 @@ void DivSong::unload() {
   for (DivSample* i: sample) {
     delete i;
   }
-  sample.clear();  
+  sample.clear();
+
+  for (int i=0; i<17; i++) {
+    pat[i].wipePatterns();
+  }
 }