dxopal 1.0.0

data/opal/dxopal/input/key_codes.rb

@@ -0,0 +1,168 @@
+module DXOpal
+  module Input
+    module KeyCodes
+      K_SPACE = " "
+      K_X = "x"
+
+      K_ESCAPE = 27
+      # K_1 1
+      # K_2 2
+      # K_3 3
+      # K_4 4
+      # K_5 5
+      # K_6 6
+      # K_7 7
+      # K_8 8
+      # K_9 9
+      # K_0 0
+      K_MINUS = 189
+      #K_EQUALS = "="
+      K_BACK = 8  # Backspace
+      K_TAB = 9
+      K_Q = 81
+      K_W = 87
+      K_E = 69
+      K_R = 82
+      K_T = 84
+      K_Y = 89
+      K_U = 85
+      K_I = 73
+      K_O = 79
+      K_P = 80
+      K_LBRACKET = 219
+      K_RBRACKET = 221
+      K_RETURN = 13
+      #K_LCONTROL  Ctrl
+      K_A = 65
+      K_S = 83
+      K_D = 68
+      K_F = 70
+      K_G = 71
+      K_H = 72
+      K_J = 74
+      K_K = 75
+      K_L = 76
+      K_SEMICOLON = 186
+      #K_APOSTROPHE = "'"
+      #K_GRAVE = "`"
+      #K_LSHIFT  Shift
+      K_BACKSLASH = 0
+      K_Z = 90
+      K_X = 88
+      K_C = 67
+      K_V = 86
+      K_B = 66
+      K_N = 78
+      K_M = 77
+      K_COMMA = 188
+      K_PERIOD = 190
+      K_SLASH = 191
+      #K_RSHIFT  Shift
+      #K_MULTIPLY = "*"
+      #K_LMENU Alt
+      K_SPACE = 32
+      #K_CAPITAL Caps Lock
+      K_F1 = 112
+      K_F2 = 113
+      K_F3 = 114
+      K_F4 = 115
+      K_F5 = 116
+      K_F6 = 117
+      K_F7 = 118
+      K_F8 = 119
+      K_F9 = 120
+      K_F10 = 121
+      #K_NUMLOCK = "NumLock"
+      #K_SCROLL = "ScrollLock"
+      #K_NUMPAD7 7 *3
+      #K_NUMPAD8 8 *3
+      #K_NUMPAD9 9 *3
+      #K_SUBTRACT  - *3
+      #K_NUMPAD4 4 *3
+      #K_NUMPAD5 5 *3
+      #K_NUMPAD6 6 *3
+      #K_ADD + *3
+      #K_NUMPAD1 1 *3
+      #K_NUMPAD2 2 *3
+      #K_NUMPAD3 3 *3
+      #K_NUMPAD0 0 *3
+      #K_DECIMAL . *3
+      #K_OEM_102 
+      K_F11 = 122
+      K_F12 = 123
+      K_F13 = 124
+      K_F14 = 125
+      K_F15 = 126
+      #K_KANA 
+      #K_ABNT_C1 
+      #K_CONVERT 
+      #K_NOCONVERT
+      #K_YEN 
+      #K_ABNT_C2 
+      #K_NUMPADEQUALS  = *3 *1
+      K_PREVTRACK = 187   # ^
+      K_AT = 219          # @
+      K_COLON = 186
+      K_UNDERLINE = 189   # _
+      #K_KANJI 
+      #K_STOP
+      #K_AX
+      #K_UNLABELED
+      #K_NEXTTRACK
+      #K_NUMPADENTER Enter *3
+      #K_RCONTROL  Ctrl
+      #K_MUTE
+      #K_CALCULATOR
+      #K_PLAYPAUSE
+      #K_MEDIASTOP
+      #K_VOLUMEDOWN
+      #K_VOLUMEUP
+      #K_WEBHOME
+      #K_NUMPADCOMMA , *3 *1
+      #K_DIVIDE  / *3
+      #K_SYSRQ
+      #K_RMENU Alt
+      #K_PAUSE = "Pause"
+      #K_HOME "Home"
+      K_UP = 38
+      #K_PRIOR
+      K_LEFT = 37
+      K_RIGHT = 39
+      #K_END = "End"
+      K_DOWN = 40
+      #K_NEXT
+      #K_INSERT = "Insert"
+      #K_DELETE = "Delete"
+      #K_LWIN  Windows
+      #K_RWIN  Windows
+      #K_APPS
+      #K_POWER
+      #K_SLEEP
+      #K_WAKE
+      #K_WEBSEARCH
+      #K_WEBFAVORITES
+      #K_WEBREFRESH
+      #K_WEBSTOP
+      #K_WEBFORWARD
+      #K_WEBBACK
+      #K_MYCOMPUTER
+      #K_MAIL
+      #K_MEDIASELECT
+      K_BACKSPACE = 8
+      #K_NUMPADSTAR  * *3
+      #K_LALT  Alt
+      #K_CAPSLOCK  CapsLock
+      #K_NUMPADMINUS - *3
+      #K_NUMPADPLUS  + *3
+      #K_NUMPADPERIOD  . *3
+      #K_NUMPADSLASH / *3
+      #K_RALT  Alt
+      K_UPARROW = 38
+      #K_PGUP = "PageUp"
+      K_LEFTARROW = 37
+      K_RIGHTARROW = 39
+      K_DOWNARROW = 40
+      #K_PGDN = "PageDown"
+    end
+  end
+end

data/opal/dxopal/remote_resource.rb

@@ -0,0 +1,65 @@
+module DXOpal
+  # A base class for resources acquired through JS Promises.
+  # Provides `<klass>.register` and `<klass>[name]`.
+  # A subclass must impelment `<klass>._load`.
+  class RemoteResource
+    # List of registered resources (Contains path_or_url)
+    @@resources = Hash.new{|h,k| h[k] = {}}
+    # Contains promises
+    @@promises = Hash.new{|h,k| h[k] = {}}
+    # Contains instances of Image, Sound
+    @@instances = Hash.new{|h,k| h[k] = {}}
+
+    # Subclasses of RemoteResource
+    @@klasses = {}
+    def self.add_class(subklass)
+      @@klasses[subklass._klass_name] = subklass
+    end
+
+    # Reserve instance generation
+    def self.register(name, *args, &block)
+      @@resources[_klass_name] ||= {}
+      @@resources[_klass_name][name] = [block, args]
+    end
+
+    # Return instance of loaded resource (call on subclasses)
+    def self.[](name)
+      if (ret = @@instances[_klass_name][name])
+        return ret
+      else
+        raise "#{_klass_name} #{name.inspect} is not registered"
+      end
+    end
+
+    # Called from Window.load_resources
+    def self._load_resources(&block)
+      @@resources.each do |klass_name, items|
+        klass = @@klasses[klass_name] 
+        items.each do |name, (block, args)|
+          if !@@promises[klass_name][name]
+            instance, promise = klass._load(*args, &block) 
+            @@instances[klass_name][name] = instance
+            @@promises[klass_name][name] = promise
+          end
+        end
+      end
+      promises = @@promises.values.flat_map(&:values)
+      %x{
+        Promise.all(#{promises}).then(function() {
+          #{block.call}
+        });
+      }
+    end
+
+    # Load actual content (defined on subclasses)
+    # Return `[instance, promise]`
+    def self._load(*args)
+      raise "override me"
+    end
+
+    # Return a string like "Image" or "Sound"
+    def self._klass_name
+      return self.name.split(/::/).last
+    end
+  end
+end

data/opal/dxopal/sound.rb

@@ -0,0 +1,53 @@
+require 'dxopal/remote_resource'
+
+module DXOpal
+  class Sound < RemoteResource
+    RemoteResource.add_class(Sound)
+
+    # Return AudioContext
+    def self.audio_context
+      @@audio_context ||= %x{
+        new (window.AudioContext||window.webkitAudioContext)
+      }
+    end
+
+    # Load remote sound (called via Window.load_resources)
+    def self._load(path_or_url)
+      snd = new(path_or_url)
+      snd_promise = %x{
+        new Promise(function(resolve, reject) {
+          var request = new XMLHttpRequest();
+          request.open('GET', #{path_or_url}, true);
+          request.responseType = 'arraybuffer';
+          request.onload = function() {
+            var audioData = request.response;
+            var context = #{Sound.audio_context};
+            context.decodeAudioData(audioData, function(decoded) {
+              snd['$decoded='](decoded);
+              resolve();
+            });
+          };
+          request.send();
+        });
+      }
+      return snd, snd_promise
+    end
+
+    def initialize(path_or_url)
+      @path_or_url = path_or_url  # Used in error message
+    end
+    attr_accessor :decoded
+
+    # Play this sound once
+    def play
+      raise "Sound #{path_or_url} is not loaded yet" unless @decoded
+      %x{
+        var context = #{Sound.audio_context};
+        var source = context.createBufferSource();
+        source.buffer = #{@decoded};
+        source.connect(context.destination);
+        source.start(0); 
+      }
+    end
+  end
+end

data/opal/dxopal/sound_effect.rb

@@ -0,0 +1,84 @@
+module DXOpal
+  # User-generated sound
+  #
+  # Example:
+  #   v = 80
+  #   SoundEffect.register(:sound1, 4000, WAVE_RECT, 5000) do
+  #     v = v - 0.03
+  #     [rand(300), v]
+  #   end
+  class SoundEffect < Sound
+    RemoteResource.add_class(SoundEffect)
+
+    module WaveTypes
+      WAVE_SIN = :sine
+      WAVE_SAW = :sawtooth
+      WAVE_TRI = :triangle
+      WAVE_RECT = :square
+    end
+
+    # time : Total number of ticks
+    #   When resolution=1000(default), `time` is equivalent to the 
+    #   total length of the sound in milliseconds.
+    # wave_type : Type of wave form
+    # resolution : Number of ticks per second
+    # block : Should return [freq(0~44100), volume(0~255)]
+    def self._load(time, wave_type=WAVE_RECT, resolution=1000, &block)
+      snd = new("(soundeffect)")
+      snd_promise = %x{
+        new Promise(function(resolve, reject){
+          var n_channels = 1;
+          var context = #{Sound.audio_context};
+          var n_ticks = #{time};
+          var totalSeconds = #{time / resolution};
+          var valuesPerSecond = context.sampleRate;
+          var n_values = totalSeconds * valuesPerSecond;
+          var myArrayBuffer = context.createBuffer(n_channels, n_values, valuesPerSecond);
+          var values = myArrayBuffer.getChannelData(0);
+          var n = 0;
+          for (var i = 0; i < n_ticks; i++) {
+            var ret = #{block.call};
+            var freq = ret[0], volume = ret[1];
+            if (freq < 0) freq = 0;
+            if (freq > 44100) freq = 44100;
+            if (volume < 0) volume = 0;
+            if (volume > 255) volume = 255;
+            var vol = volume / 255;   // 0.0~1.0
+
+            var period = valuesPerSecond * 1 / freq;
+            for (; n < ((i+1) / n_ticks * n_values); n++) {
+              var phase = (n % period) / period; // 0.0~1.0
+              var value; // -1.0~1.0
+              switch(#{wave_type}) {
+              case "sine":
+                value = Math.sin(2 * Math.PI * phase) * 2 - 1;
+                break;
+              case "sawtooth":
+                value = phase * 2 - 1;
+                break;
+              case "triangle":
+                value = phase < 0.25 ?  0+phase*4 :
+                        phase < 0.5  ?  1-(phase-0.25)*4 :
+                        phase < 0.75 ?  0-(phase-0.5)*4 :
+                                       -1+(phase-0.75)*4;
+                break;
+              case "square":
+                value = (phase < 0.5 ? 1 : -1);
+                break;
+              default:
+                #{raise "unknown wave_type: " + wave_type.inspect};
+              }
+              values[n] = value * vol;
+            }
+          }
+          snd['$decoded='](myArrayBuffer);
+          resolve();
+        });
+      }
+      return snd, snd_promise
+    end
+
+    def add(wave_type=WAVE_RECT, resolution=1000)
+    end
+  end
+end

data/opal/dxopal/sprite.rb

@@ -0,0 +1,94 @@
+require 'dxopal/sprite/collision_check'
+require 'dxopal/sprite/physics'
+
+module DXOpal
+  class Sprite
+    extend DXOpal::Sprite::CollisionCheck::ClassMethods
+    include DXOpal::Sprite::CollisionCheck
+    include DXOpal::Sprite::Physics
+
+    # Call #update on each sprite (unless it is vanished or do not have #update)
+    def self.update(sprites)
+      sprites.each do |sprite|
+        next if !sprite.respond_to?(:update)
+        next if sprite.respond_to?(:vanished?) && sprite.vanished?
+        sprite.update
+      end
+    end
+
+    # Remove vanished sprites (and nils) from the array, destructively
+    def self.clean(sprites)
+      sprites.reject!{|sprite|
+        sprite.nil? || sprite.vanished?
+      }
+    end
+
+    # Draw each of the given sprites (unless it is vanished)
+    def self.draw(sprites)
+      sprites.flatten.sort_by(&:z).each do |sprite|
+        next if sprite.respond_to?(:vanished?) && sprite.vanished?
+        sprite.draw
+      end
+    end
+
+    def initialize(x=0, y=0, image=nil)
+      @x, @y, @image = x, y, image
+      @z = 0
+      @angle = 0
+      @scale_x = @scale_y = 1.0
+      if image
+        @center_x = image.width / 2
+        @center_y = image.height / 2
+      end
+
+      @visible = true
+      @vanished = false
+      _init_collision_info(@image)
+    end
+    attr_accessor :z, :visible
+
+    # Set angle (0~360, default: 0)
+    attr_accessor :angle
+    # Set horizontal/vertical scale (default: 1.0)
+    attr_accessor :scale_x, :scale_y
+    # Set rotation center (default: center of `image`)
+    attr_accessor :center_x, :center_y
+
+    attr_reader :x, :y
+
+    def x=(newx)
+      @x = newx
+      _move_matter_body if @_matter_body
+    end
+
+    def y=(newy)
+      @y = newy
+      _move_matter_body if @_matter_body
+    end
+
+    def image; @image; end
+    def image=(img)
+      @image = img
+      if @collision.nil?
+        self.collision = [0, 0, img.width-1, img.height-1]
+      end
+      if @center_x.nil?
+        @center_x = img.width / 2
+        @center_y = img.height / 2
+      end
+    end
+
+    def vanish; @vanished = true; end
+    def vanished?; @vanished; end
+
+    # Draw this sprite to Window
+    def draw
+      raise "image not set to Sprite" if @image.nil?
+      return if !@visible
+
+      Window.draw_ex(@x, @y, @image,
+                     scale_x: @scale_x, scale_y: @scale_y,
+                     angle: @angle, center_x: @center_x, center_y: @center_y)
+    end
+  end
+end