gbtiles 0.1.1 → 0.2.0

data/lib/gbtiles/gbt/export/asm/channel.rb

@@ -0,0 +1,156 @@
+require "gbtiles/gbt/export/asm/effects/arpeggio"
+require "gbtiles/gbt/export/asm/effects/break_and_set_step"
+require "gbtiles/gbt/export/asm/effects/cut_note"
+require "gbtiles/gbt/export/asm/effects/jump"
+require "gbtiles/gbt/export/asm/effects/pan"
+require "gbtiles/gbt/export/asm/effects/speed"
+require "gbtiles/gbt/export/asm/effects/volume"
+
+module GBTiles
+  module GBT
+    module Export
+      module ASM
+        class Channel
+          include GBTiles::GBT::Export::ASM::Effects
+
+          NOTES = [
+            1712,1616,1524,1440,1356,1280,1208,1140,1076,1016, 960, 907,
+             856, 808, 762, 720, 678, 640, 604, 570, 538, 508, 480, 453,
+             428, 404, 381, 360, 339, 320, 302, 285, 269, 254, 240, 226,
+             214, 202, 190, 180, 170, 160, 151, 143, 135, 127, 120, 113,
+             107, 101,  95,  90,  85,  80,  75,  71,  67,  63,  60,  56,
+              53,  50,  47,  45,  42,  40,  37,  35,  33,  31,  30,  28
+          ];
+
+          attr_accessor :channel_number
+
+          @data = [ 0, 0, 0, 0 ]
+
+          def data
+            @data
+          end
+
+          def data=(value)
+            if value.kind_of?(Array) then
+              @data = value
+            else
+              @data = value.unpack('CCCC')
+            end
+          end
+
+          def initialize channel_number
+            @channel_number = channel_number
+          end
+
+          # Channel information
+
+          def is_pulse?
+            false
+          end
+
+          def is_wav?
+            false
+          end
+
+          def is_noise?
+            false
+          end
+
+          # Data
+
+          def sample_number
+            (@data[0] & 0xF0) | ((@data[2] & 0xF0) >> 4)
+          end
+
+          def sample_period
+            @data[1] | ((@data[0] & 0xF) << 8)
+          end
+
+          def is_empty_effect?
+            effect_number == 0 && effect_param == 0
+          end
+
+          def effect_number
+            @data[2] & 0xF
+          end
+
+          def effect_param
+            @data[3]
+          end
+
+          def effect_param_1
+            (@data[3] & 0xF0) >> 4
+          end
+
+          def effect_param_2
+            @data[3] & 0x0F
+          end
+
+          def effect_param_as_bcd
+            (((effect_param & 0xF0) >> 4) * 10) + (effect_param & 0xF)
+          end
+
+          def convert_volume
+            (effect_param == 64) ? 0xF : (effect_param >> 2);
+          end
+
+          # Amiga's 50 Hz to GB's 60 Hz
+          def convert_speed speed
+            speed * 60 / 50
+          end
+
+          def convert_effect
+            if effect_number == 0x0 then
+              return effect_arpeggio
+            end
+
+            if effect_number == 0xB then
+              return effect_jump
+            end
+
+            if effect_number == 0xC then
+              return effect_volume
+            end
+
+            if effect_number == 0xD then
+              return effect_break_and_set_step
+            end
+
+            if effect_number == 0xE && effect_param_1 == 0x8 then
+              return effect_pan
+            end
+
+            if effect_number == 0xE && effect_param_1 == 0xC then
+              return effect_cut_note
+            end
+
+            if effect_number == 0xF then
+              return effect_speed
+            end
+
+            throw "Unsupported effect"
+          end
+
+          def note_index
+            period = sample_period
+
+            if period <= 0 then
+              return -1
+            end
+
+            if !is_noise? then
+              if !period.between?(NOTES.last, NOTES.first) then
+                throw "Note `#{period}` out of bounds"
+              end
+            end
+
+            NOTES.index(
+              NOTES.min_by { |x| (period - x).abs }
+            )
+          end
+
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbt/export/asm/channels/noise.rb

@@ -0,0 +1,84 @@
+# CHANNEL 4
+
+require "gbtiles/gbt/export/asm/channel"
+
+module GBTiles
+  module GBT
+    module Export
+      module ASM
+        module Channels
+          class Noise < GBTiles::GBT::Export::ASM::Channel
+
+            def initialize
+              super(4)
+            end
+
+            def is_noise?
+              true
+            end
+
+            def convert
+              if sample_period == 0 then
+                convert_note_not_new
+              else
+                convert_note_new
+              end
+            end
+
+            def convert_note_not_new
+              if is_empty_effect? then
+                return [0]
+              end
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                    (1 << 5) | convert_volume
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                return [
+                    (1 << 6) | converted[:number],
+                    converted[:params]
+                ]
+              rescue Exception => e
+                # Silence
+              end
+
+              return [0]
+            end
+
+            def convert_note_new
+              instrument = (sample_number - 16) & 0x1F
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                    (1 << 7) | instrument,
+                    convert_volume
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                return [
+                    (1 << 7) | instrument,
+                    (1 << 7) | converted[:number],
+                    converted[:params]
+                ]
+              rescue Exception => e
+                throw "Noise - Invalid command: #{e}"
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbt/export/asm/channels/pulse.rb

@@ -0,0 +1,88 @@
+# CHANNEL 1
+# CHANNEL 2
+
+require "gbtiles/gbt/export/asm/channel"
+
+module GBTiles
+  module GBT
+    module Export
+      module ASM
+        module Channels
+          class Pulse < GBTiles::GBT::Export::ASM::Channel
+
+            def initialize(channel_number)
+              super(channel_number)
+            end
+
+            def is_pulse?
+              true
+            end
+
+            def convert
+              if sample_period == 0 then
+                convert_note_not_new
+              else
+                convert_note_new
+              end
+            end
+
+            def convert_note_not_new
+              instrument = sample_number & 3
+
+              if is_empty_effect? then
+                return [0]
+              end
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                  (1 << 5) | convert_volume
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                return [
+                    (1 << 6) | (instrument << 4) | converted[:number],
+                    converted[:params]
+                ]
+              rescue Exception => e
+                # Silence
+              end
+
+              return [0]
+            end
+
+            def convert_note_new
+              instrument = sample_number & 3
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                    (1 << 7) | note_index,
+                    (instrument << 4) | convert_volume
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                return [
+                    (1 << 7) | note_index,
+                    (1 << 7) | (instrument << 4) | converted[:number],
+                    converted[:params]
+                ]
+              rescue Exception => e
+                throw "Pulse - Invalid command: #{e}"
+              end
+
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbt/export/asm/channels/wav.rb

@@ -0,0 +1,105 @@
+# CHANNEL 3
+
+require "gbtiles/gbt/export/asm/channel"
+
+module GBTiles
+  module GBT
+    module Export
+      module ASM
+        module Channels
+          class Wav < GBTiles::GBT::Export::ASM::Channel
+
+            def initialize
+              super(3)
+            end
+
+            def is_wav?
+              true
+            end
+
+            def convert_volume
+              case super
+              when 0..3
+                return 0
+              when 4..7
+                return 3
+              when 8..11
+                return 2
+              when 12..15
+                return 1
+              else
+                return 1
+              end
+            end
+
+            def convert
+              if sample_period == 0 then
+                convert_note_not_new
+              else
+                convert_note_new
+              end
+            end
+
+            def convert_note_not_new
+              if is_empty_effect? then
+                return [0]
+              end
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                  (1 << 5) | convert_volume
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                return [
+                  (1 << 6) | converted[:number],
+                  converted[:params]
+                ]
+
+              rescue Exception => e
+                # Silence
+              end
+
+              return [0]
+            end
+
+            def convert_note_new
+              instrument = (sample_number - 8) & 15
+
+              # Volume effect
+              if effect_number == 0xC then
+                return [
+                    (1 << 7) | note_index,
+                    (convert_volume << 4) | instrument
+                ]
+              end
+
+              # Other effects
+              begin
+                converted = convert_effect
+
+                if (converted[:number] > 7) then
+                  throw "Invalid command: only 0-7 allowed in this mode"
+                end
+
+                return [
+                    (1 << 7) | note_index,
+                    (1 << 7) | (converted_num << 4) | instrument,
+                    converted_params
+                ]
+              rescue Exception => e
+                throw "Wav - Invalid command: #{e}"
+              end
+            end
+
+          end
+        end
+      end
+    end
+  end
+end

data/lib/gbtiles/gbt/export/asm/converter.rb

@@ -0,0 +1,37 @@
+require "gbtiles/gbt/export/asm/channels/pulse"
+require "gbtiles/gbt/export/asm/channels/wav"
+require "gbtiles/gbt/export/asm/channels/noise"
+
+require "erb"
+
+module GBTiles
+  module GBT
+    module Export
+      module ASM
+        class Converter
+
+          CHANNELS = {
+            1 => GBTiles::GBT::Export::ASM::Channels::Pulse.new(1),
+            2 => GBTiles::GBT::Export::ASM::Channels::Pulse.new(2),
+            3 => GBTiles::GBT::Export::ASM::Channels::Wav.new,
+            4 => GBTiles::GBT::Export::ASM::Channels::Noise.new
+          }
+
+          def convert data
+            CHANNELS[1].data = data[0..3]
+            CHANNELS[2].data = data[4..7]
+            CHANNELS[3].data = data[8..11]
+            CHANNELS[4].data = data[12..15]
+
+            [
+              CHANNELS[1].convert.map { |x| sprintf('0x%02X', x) }.join(', '),
+              CHANNELS[2].convert.map { |x| sprintf('0x%02X', x) }.join(', '),
+              CHANNELS[3].convert.map { |x| sprintf('0x%02X', x) }.join(', '),
+              CHANNELS[4].convert.map { |x| sprintf('0x%02X', x) }.join(', ')
+            ].join(', ')
+          end
+        end
+      end
+    end
+  end
+end