burn 0.1.3 → 0.2.0

data/lib/burn/dsl/sound.rb

@@ -1,30 +0,0 @@
-module Burn
-  module Dsl
-    class Sound < DslBase
-      def initialize(resource_name, context)
-        super(resource_name, context)
-        
-        if resource_name.nil? then
-          raise Exception.new "Resource name for Sound class must be provided."
-        else
-          @resource_name = resource_name
-        end
-        
-        @context.instance_exec resource_name, &lambda{|resource_name|
-          @resources["#{resource_name}"] = Array.new
-        }
-        
-        @se = SoundEffect.new
-        
-      end
-      
-      def effect(&block)
-        @context.instance_exec(@resource_name,@se) do |resource_name,se|
-          se.load(&block)
-          @resources["#{resource_name}"] << se.generate
-        end
-      end
-      
-    end
-  end
-end

data/lib/burn/dsl/sound_effect.rb

@@ -1,91 +0,0 @@
-module Burn
-  module Dsl
-    class SoundEffect
-      # duty cycle: 00�F12.5%�@01�F25%�@10�F50%�@11�F75%
-      LOWEST = 0
-      LOWER = 1
-      HIGHER = 2
-      HIGHEST = 3
-      
-      def initialize
-        @output_buffer = Array.new
-      end
-      
-      def load(&block)
-        self.instance_eval &block
-      end
-      
-      # $4000 related
-      def duty_cycle(ratio)
-        @duty_cycle = SoundEffect.const_get(ratio.upcase)
-      end
-      
-      def velocity(level)
-        @velocity = level
-      end
-      
-      def envelope_decay(flag)
-        @envelope_decay = flag==:enable ? 0 : 1
-      end
-      
-      def envelope_decay_loop(flag)
-        @envelope_decay_loop = flag==:enable ? 1 : 0
-      end
-      
-      def length_counter_clock(flag)
-        @envelope_decay_loop = flag==:enable ? 0 : 1
-      end
-      
-      # $4001 related
-      def pitch(i)
-        @pitch = i
-      end
-      
-      def length(i)
-        @length = i + 15
-      end
-      
-      alias_method :envelope_decay_rate, :velocity
-      alias_method :volume, :velocity
-      alias_method :envelope, :envelope_decay
-      alias_method :envelope_loop, :envelope_decay_loop
-      alias_method :key_off_counter, :length_counter_clock
-      
-      def generate
-        if !@duty_cycle.nil? || !@velocity.nil? || @envelope_decay.nil? || @envelope_decay_loop.nil? then
-          @duty_cycle = HIGHER if !@duty_cycle.nil?
-          @velocity = 7 if @velocity.nil?
-          @envelope_decay = 0 if @envelope_decay.nil?
-          @envelope_decay_loop = 0 if @envelope_decay_loop.nil?
-          
-          reg = @duty_cycle*64 + @envelope_decay*32 + @envelope_decay_loop*16 + @velocity
-          if @reg4000 != reg then
-            @output_buffer << "	.byte $00,$%02x" % reg
-            @reg4000 = reg
-          end
-        end
-        
-        if !@pitch.nil? then
-          if @reg4001 != @pitch then
-            @output_buffer << "	.byte $01,$%02x" % @pitch
-            @reg4001 = @pitch
-          end
-        end
-        
-        @length = 16 if @length.nil?
-        @output_buffer << "	.byte $%02x" % @length
-        
-        # return result
-        @output_buffer.join("\n") + "\n"
-        
-        #"	.byte $00,$7f\n	.byte $01,$ab\n	.byte $02,$01\n	.byte $13\n	.byte $01,$3f\n	.byte $39\n	.byte $01,$1c\n	.byte $13\n	.byte $ff\n"
-      end
-      
-      private
-      def __translate
-        "	.byte " + @notes.map{|p| "$%02x" % p}.join(",")
-      end
-      
-    end
-  end
-end

data/lib/burn/generator/assembly_music.rb

@@ -1,47 +0,0 @@
-module Burn
-  module Generator
-    class AssemblyMusic
-      include Debug
-      
-      def initialize(workspace_root)
-        # Generic
-        @workspace_root = workspace_root
-        
-        # Music related
-        @resources = {}
-        
-        #@channels = Array.new
-        
-      end
-      
-      def get_context
-        self
-      end
-      
-      def generate
-        # prepare music.s - music assembler file
-        File.write(
-          "#{@workspace_root}/tmp/burn/asset/music.s", 
-          File.read("#{@workspace_root}/tmp/burn/asset/music.s")
-            .gsub(/__@__EXPORT__@__/, @resources.keys.map{|p| "	.export _music_#{p}"}.join("\n"))
-            .gsub(/__@__INCLUDE__@__/, @resources.keys.map{|p| "_music_#{p}: 		.include \"mus_#{p}.s\""}.join("\n"))
-        )
-        
-        # preparing each song file
-        @resources.each {|resource_name, channels|
-          # prepare other music resources
-          File.write( "#{@workspace_root}/tmp/burn/asset/mus_#{resource_name}.s",
-            File.read(File.dirname(__FILE__)+"/template/mus_template.s")
-              .gsub(/__@__NAME__@__/, resource_name)
-              .gsub(/__@__CHANNEL1__@__/, channels.shift || "")
-              .gsub(/__@__CHANNEL2__@__/, channels.shift || "")
-              .gsub(/__@__CHANNEL3__@__/, channels.shift || "")
-              .gsub(/__@__CHANNEL4__@__/, channels.shift || "")
-              .gsub(/__@__CHANNEL5__@__/, channels.shift || "")
-          )
-        }
-      
-      end
-    end
-  end
-end

data/lib/burn/generator/assembly_sound_effect.rb

@@ -1,33 +0,0 @@
-module Burn
-  module Generator
-    class AssemblySoundEffect
-      include Debug
-      attr_reader :resources
-      
-      def initialize(workspace_root)
-        # Generic
-        @workspace_root = workspace_root
-        
-        # Music related
-        @resources = {}
-        
-      end
-      
-      def get_context
-        self
-      end
-      
-      def generate
-        # prepare sound.s - sound effect assembler file
-        File.write(
-          "#{@workspace_root}/tmp/burn/asset/sounds.s", 
-          "sounds:\n" \
-            + @resources.keys.map{|p| "	.word @#{p}"}.join("\n") \
-            + "\n" \
-            + @resources.map{|key,value| "@#{key}:\n#{value.join}	.byte $ff\n" }.join
-        )
-        
-      end
-    end
-  end
-end

data/lib/burn/generator/c_source.rb

@@ -1,54 +0,0 @@
-module Burn
-  module Generator
-    class CSource
-      include Debug
-      attr_reader :global, :code_blocks
-      
-      def initialize(workspace_root)
-        # Generic
-        @workspace_root = workspace_root
-        @global = Array.new
-        @code_blocks = Array.new
-        
-        # Scene related
-        @pattern_tables = Array.new
-        @pattern_table_pointer = 80 #0x50 equivalent
-        @pattern_table_index = Hash.new
-      end
-      
-      def get_context
-        self
-      end
-      
-      def generate
-        # Initialization for codeblocks
-        @code_blocks.unshift "init();"
-        
-        # generate source code
-        File.write(
-          "#{@workspace_root}/tmp/burn/main.c", 
-          File.read(File.dirname(__FILE__) + "/template/template.c")
-            .gsub(/__@__MAIN__@__/, @code_blocks.join("\n"))
-            .gsub(/__@__GLOBAL__@__/, @global.join("\n"))
-        )
-        
-        # save pattern tables associated with source code
-        pattern_header = []
-        File.open("#{@workspace_root}/tmp/burn/asset/tileset.chr", "rb") do |f|
-          pattern_header << f.read(16*80)
-        end
-        File.open("#{@workspace_root}/tmp/burn/asset/tileset.chr", "wb") do |f|
-          f << pattern_header[0]
-          @pattern_tables.each do |p|
-            f << p
-          end
-          (8192-16*80-@pattern_tables.count*16).times do |i|
-            f << ["0x00"].pack("B*")
-          end
-        end
-        
-      end
-      
-    end
-  end
-end

data/lib/burn/util/server.rb

@@ -1,21 +0,0 @@
-module Burn
-  module Util
-    class Server
-      require 'webrick'
-      
-      def initialize(document_root)
-        @server = WEBrick::HTTPServer.new({:DocumentRoot => document_root, :BindAddress => '127.0.0.1', :Port => 17890})
-        trap 'INT' do 
-          @server.shutdown
-        end
-        @server.mount_proc('/shutdown'){ |req, resp|
-          @server.stop
-        }
-      end
-      
-      def start
-        @server.start
-      end
-    end
-  end
-end