Removed unused audio utilities and audio-recording (e.g. for Chatter)

Data/Scripts/008_Audio/001_Audio.rb

@@ -1,17 +1,3 @@
-class Thread
-  def Thread.exclusive
-    old_critical = Thread.critical
-    begin
-      Thread.critical = true
-      return yield
-    ensure
-      Thread.critical = old_critical
-    end
-  end
-end
-
-
-
 def getPlayMusic
   return MiniRegistry.get(MiniRegistry::HKEY_CURRENT_USER,
      "SOFTWARE\\Enterbrain\\RGSS","PlayMusic",true)
@@ -29,7 +15,7 @@ class AudioContext
 
   def initialize
     init = Win32API.new("audio.dll", "AudioContextInitialize", '', 'l')
-    @context=init.call()
+    @context=init.call
   end
 
   def dispose
@@ -59,17 +45,6 @@ def at_exit(&block)
   $AtExitProcs.push(Proc.new(&block))
 end
 
-#####################################
-# Works around a problem with FileTest.exist
-# if directory contains accent marks
-if !defined?(safeExists?)
-  def safeExists?(f)
-    ret=false
-    File.open(f,"rb") { ret=true } rescue nil
-    return ret
-  end
-end
-
 
 
 module AudioState
@@ -147,7 +122,7 @@ module AudioState
   def self.volume; @volume; end
 
   def self.waitingBGM=(value);
-    Thread.exclusive { @waitingBGM=value; }
+    @waitingBGM = value
   end
 
   def self.volume=(value); @volume=value; end
@@ -171,7 +146,7 @@ def Audio_bgm_pitch
 end
 
 def Audio_bgm_play(name, volume, pitch, position = 0)
-  volume=0 if !getPlayMusic()
+  volume=0 if !getPlayMusic
   begin
     filename = canonicalize(RTP.getAudioPath(name))
     if AudioState.meActive?
@@ -196,7 +171,7 @@ def Audio_bgm_fade(ms)
   AudioState::AudioContextFadeOut.call(AudioState.context,ms.to_i)
 end
 
-def Audio_bgm_stop()
+def Audio_bgm_stop
   begin
     AudioState::AudioContextStop.call(AudioState.context)
     AudioState.waitingBGM=nil
@@ -222,7 +197,7 @@ def Audio_bgm_set_volume(volume)
 end
 
 def Audio_me_play(name, volume, pitch, position = 0)
-  volume=0 if !getPlayMusic()
+  volume=0 if !getPlayMusic
   begin
     filename = canonicalize(RTP.getAudioPath(name))
     if AudioState.bgmActive?
@@ -246,12 +221,12 @@ def Audio_me_fade(ms)
   AudioState::AudioContextFadeOut.call(AudioState.meContext,ms)
 end
 
-def Audio_me_stop()
+def Audio_me_stop
   AudioState::AudioContextStop.call(AudioState.meContext)
 end
 
 def Audio_bgs_play(name, volume, pitch, position = 0)
-  volume=0 if !getPlaySound()
+  volume=0 if !getPlaySound
   begin
     filename = canonicalize(RTP.getAudioPath(name))
     AudioState::AudioContextPlay.call(AudioState.bgsContext,filename,
@@ -265,12 +240,12 @@ def Audio_bgs_fade(ms)
   AudioState::AudioContextFadeOut.call(AudioState.bgsContext,ms)
 end
 
-def Audio_bgs_stop()
+def Audio_bgs_stop
   AudioState::AudioContextStop.call(AudioState.bgsContext)
 end
 
 def Audio_se_play(name, volume, pitch, position = 0)
-  volume=0 if !getPlaySound()
+  volume=0 if !getPlaySound
   begin
     filename = canonicalize(RTP.getAudioPath(name))
     AudioState::AudioContextSEPlay.call(AudioState.seContext,filename,
@@ -280,7 +255,7 @@ def Audio_se_play(name, volume, pitch, position = 0)
   end
 end
 
-def Audio_se_stop()
+def Audio_se_stop
   AudioState::AudioContextStop.call(AudioState.seContext)
 end
 
@@ -334,7 +309,7 @@ if safeExists?("audio.dll")
     end
 
     def self.bgm_stop
-      Audio_bgm_stop()
+      Audio_bgm_stop
     end
 
     def self.bgm_position
@@ -350,7 +325,7 @@ if safeExists?("audio.dll")
     end
 
     def self.me_stop
-      Audio_me_stop()
+      Audio_me_stop
     end
 
     def self.bgs_play(name,volume=80,pitch=100)
@@ -362,7 +337,7 @@ if safeExists?("audio.dll")
     end
 
     def self.bgs_stop
-      Audio_bgs_stop()
+      Audio_bgs_stop
     end
 
 =begin
@@ -371,8 +346,169 @@ if safeExists?("audio.dll")
     end
 
     def self.se_stop
-      Audio_se_stop()
+      Audio_se_stop
     end
 =end
   end
 end   # safeExists?("audio.dll")
+
+
+
+#===============================================================================
+# Methods that determine the duration of an audio file.
+#===============================================================================
+def getOggPage(file)
+  fgetdw = proc { |file|
+    (file.eof? ? 0 : (file.read(4).unpack("V")[0] || 0))
+  }
+  dw = fgetdw.call(file)
+  return nil if dw != 0x5367674F
+  header = file.read(22)
+  bodysize = 0
+  hdrbodysize = (file.read(1)[0] rescue 0)
+  hdrbodysize.times do
+    bodysize += (file.read(1)[0] rescue 0)
+  end
+  ret = [header, file.pos, bodysize, file.pos + bodysize]
+  return ret
+end
+
+# internal function
+def oggfiletime(file)
+  fgetdw = proc { |file|
+    (file.eof? ? 0 : (file.read(4).unpack("V")[0] || 0))
+  }
+  fgetw = proc { |file|
+    (file.eof? ? 0 : (file.read(2).unpack("v")[0] || 0))
+  }
+  pages = []
+  page = nil
+  loop do
+    page = getOggPage(file)
+    break if !page
+    pages.push(page)
+    file.pos = page[3]
+  end
+  return -1 if pages.length == 0
+  curserial = nil
+  i = -1
+  pcmlengths = []
+  rates = []
+  for page in pages
+    header = page[0]
+    serial = header[10, 4].unpack("V")
+    frame = header[2, 8].unpack("C*")
+    frameno = frame[7]
+    frameno = (frameno << 8) | frame[6]
+    frameno = (frameno << 8) | frame[5]
+    frameno = (frameno << 8) | frame[4]
+    frameno = (frameno << 8) | frame[3]
+    frameno = (frameno << 8) | frame[2]
+    frameno = (frameno << 8) | frame[1]
+    frameno = (frameno << 8) | frame[0]
+    if serial != curserial
+      curserial = serial
+      file.pos = page[1]
+      packtype = (file.read(1)[0] rescue 0)
+      string = file.read(6)
+      return -1 if string != "vorbis"
+      return -1 if packtype != 1
+      i += 1
+      version = fgetdw.call(file)
+      return -1 if version != 0
+      rates[i] = fgetdw.call(file)
+    end
+    pcmlengths[i] = frameno
+  end
+  ret = 0.0
+  for i in 0...pcmlengths.length
+    ret += pcmlengths[i].to_f / rates[i]
+  end
+  return ret
+end
+
+# Gets the length of an audio file in seconds. Supports WAV, MP3, and OGG files.
+def getPlayTime(filename)
+  if safeExists?(filename)
+    return [getPlayTime2(filename), 0].max
+  elsif safeExists?(filename + ".wav")
+    return [getPlayTime2(filename + ".wav"), 0].max
+  elsif safeExists?(filename + ".mp3")
+    return [getPlayTime2(filename + ".mp3"), 0].max
+  elsif safeExists?(filename + ".ogg")
+    return [getPlayTime2(filename + ".ogg"), 0].max
+  end
+  return 0
+end
+
+def getPlayTime2(filename)
+  return -1 if !safeExists?(filename)
+  time = -1
+  fgetdw = proc { |file|
+    (file.eof? ? 0 : (file.read(4).unpack("V")[0] || 0))
+  }
+  fgetw = proc { |file|
+    (file.eof? ? 0 : (file.read(2).unpack("v")[0] || 0))
+  }
+  File.open(filename, "rb") { |file|
+    file.pos = 0
+    fdw = fgetdw.call(file)
+    if fdw == 0x46464952   # "RIFF"
+      filesize = fgetdw.call(file)
+      wave = fgetdw.call(file)
+      return -1 if wave != 0x45564157   # "WAVE"
+      fmt = fgetdw.call(file)
+      return -1 if fmt != 0x20746d66   # "fmt "
+      fmtsize = fgetdw.call(file)
+      format = fgetw.call(file)
+      channels = fgetw.call(file)
+      rate = fgetdw.call(file)
+      bytessec = fgetdw.call(file)
+      return -1 if bytessec == 0
+      bytessample = fgetw.call(file)
+      bitssample = fgetw.call(file)
+      data = fgetdw.call(file)
+      return -1 if data != 0x61746164   # "data"
+      datasize = fgetdw.call(file)
+      time = (datasize*1.0)/bytessec
+      return time
+    elsif fdw == 0x5367674F   # "OggS"
+      file.pos = 0
+      time = oggfiletime(file)
+      return time
+    end
+    file.pos = 0
+    # Find the length of an MP3 file
+    while true
+      rstr = ""
+      ateof = false
+      while !file.eof?
+        if (file.read(1)[0] rescue 0) == 0xFF
+          begin
+            rstr = file.read(3)
+          rescue
+            ateof = true
+          end
+          break
+        end
+      end
+      break if ateof || !rstr || rstr.length != 3
+      if rstr[0] == 0xFB
+        t = rstr[1] >> 4
+        next if t == 0 || t == 15
+        freqs = [44100, 22050, 11025, 48000]
+        bitrates = [32, 40, 48, 56, 64, 80, 96, 112, 128, 160, 192, 224, 256, 320]
+        bitrate = bitrates[t]
+        t = (rstr[1] >> 2) & 3
+        freq = freqs[t]
+        t = (rstr[1] >> 1) & 1
+        filesize = FileTest.size(filename)
+        frameLength = ((144000 * bitrate) / freq) + t
+        numFrames = filesize / (frameLength + 4)
+        time = (numFrames * 1152.0 / freq)
+        break
+      end
+    end
+  }
+  return time
+end