DXOpalのテスト

main.rb

require 'dxopal'

include DXOpal

class ScreenBuffer
  attr_reader :width, :height

  def initialize(width, height)
    @width = width
    @height = height
    @buffer_size = @width / 8 * @height
    @buffer = Array.new(@buffer_size, 0)
  end

  def draw(w)
    height.times do |y|
      (width / 8).times do |x_8|
        v = @buffer[y * height + x_8] || 0
        8.times do |i|
          x = x_8 * 8 + i
          if v & 1 == 0
            w.draw_pixel(x, y, C_BLACK)
          else
            w.draw_pixel(x, y, C_WHITE)
          end
          v >>= 1
        end
      end
    end
  end
end


Window.load_resources do
  @vram = ScreenBuffer.new(256, 244)
  Window.bgcolor = C_BLACK
  Window.width = @vram.width
  Window.height = @vram.height
  #Window.scale = 2
  #Window.caption = "Space Invaders"

  Window.loop do
    Window.draw_font(0, 0, "Hello!", Font.default, color: C_WHITE)
    @vram.draw(Window)
  end
end