badline 0.6.0 → 0.6.1

data/lib/badline/gui/pane.rb

@@ -1,36 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module GUI
-    class Pane
-      attr_reader :left, :top, :width, :height
-
-      def initialize(width:, height:, left: 0, top: 0)
-        @width = width
-        @height = height
-        @left = left
-        @top = top
-        @rect = [left, top, width, height].pack("l4")
-      end
-
-      def render(_renderer)
-        raise NotImplementedError, "#{self.class} must implement #render"
-      end
-
-      private
-
-      # The pixels are little-endian RGBA dwords, red in the low byte.
-      def blit(renderer, pixels)
-        surface = SDL::CreateRGBSurfaceFrom.call(
-          pixels, width, height, 32, width * 4,
-          0x0000_00ff, 0x0000_ff00, 0x00ff_0000, 0xff00_0000
-        )
-        texture = SDL::CreateTextureFromSurface.call(renderer, surface)
-        SDL::RenderCopy.call(renderer, texture, nil, @rect)
-      ensure
-        SDL::DestroyTexture.call(texture) if texture
-        SDL::FreeSurface.call(surface) if surface
-      end
-    end
-  end
-end

data/lib/badline/gui/screen_pane.rb

@@ -1,46 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module GUI
-    # The part of the VIC's raster the machine's region crops out.
-    class ScreenPane < Pane
-      def initialize(computer, left: 0, top: 0, palette: Palette.new)
-        @col_offset, @row_offset, crop_width, crop_height = computer.region.crop
-        super(width: crop_width, height: crop_height, left:, top:)
-        @computer = computer
-        @row_bytes = width * 4
-        @palette = palette.dwords
-        @buffer = ("\x00" * (height * @row_bytes)).b
-      end
-
-      def render(renderer)
-        blit(renderer, framebuffer)
-      end
-
-      private
-
-      # Repack only the scanlines the VIC has touched since the last frame.
-      def framebuffer
-        vic = @computer.vic
-        display = vic.display
-        vic_width = vic.width
-        dirty = vic.dirty_lines
-
-        height.times do |row|
-          next unless dirty[row + @row_offset]
-
-          @buffer[row * @row_bytes, @row_bytes] =
-            pack_row(display, vic_width, row)
-        end
-        vic.clear_dirty_lines!
-        @buffer
-      end
-
-      def pack_row(display, vic_width, row)
-        line = display[((row + @row_offset) * vic_width) + @col_offset, width]
-        line.map! { |c| @palette[c] }
-        line.pack("V*")
-      end
-    end
-  end
-end

data/lib/badline/gui/snapshots.rb

@@ -1,67 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module GUI
-    # The window's snapshots: a .vsf opened as the media, F11 saving the
-    # machine to a new badline-<date>-<time>.vsf in the working directory,
-    # and F12 going back to the snapshot last saved or opened.
-    class Snapshots
-      def self.snapshot?(path) = !path.nil? && File.extname(path).casecmp?(".vsf")
-
-      def initialize
-        @last = nil
-      end
-
-      # The machine the window starts with: for a .vsf the machine it holds,
-      # built with that machine's chip models, which F12 goes back to, and
-      # otherwise one built from the machine options (Application.new) with
-      # the media attached.
-      def boot(media_path, machine, media)
-        return load(media_path) if Snapshots.snapshot?(media_path)
-
-        Computer.new(**machine_options(machine, media_path)).tap do |computer|
-          Media::TrueDrive.plug(computer) if machine[:true_drive]
-          puts Media.attach(computer, media_path, **media) if media_path
-        end
-      end
-
-      # A new machine, built as the snapshot's was and restored from it.
-      def load(path)
-        computer = Snapshot.load(path) { |line| puts line }
-        @last = path
-        puts "Restored #{path}"
-        computer
-      end
-
-      # Saves the machine, and warns when it can't.
-      def save(computer)
-        path = "badline-#{Time.now.strftime('%Y%m%d-%H%M%S')}.vsf"
-        computer.save_snapshot(path)
-        @last = path
-        puts "Saved #{path}, F12 restores it"
-      rescue Snapshot::FormatError, SystemCallError => e
-        warn "badline: #{path}: #{e.message}"
-      end
-
-      # A new machine restored from the snapshot last saved or opened, or
-      # nil when there is none or it fails, which it warns about.
-      def restore
-        return load(@last) if @last
-
-        puts "No snapshot to restore, F11 saves one"
-        nil
-      rescue Snapshot::FormatError, SystemCallError => e
-        warn "badline: #{@last}: #{e.message}"
-        nil
-      end
-
-      private
-
-      def machine_options(machine, media_path)
-        options = { sid_model: machine[:sid_model] || Media.sid_model(media_path), **machine.slice(:reu) }
-        options[:region] = Region::NTSC if machine[:ntsc]
-        options
-      end
-    end
-  end
-end

data/lib/badline/gui/window.rb

@@ -1,61 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module GUI
-    class Window
-      DEFAULT_REFRESH_RATE = 60
-
-      # SDL_DisplayMode: Uint32 format; int w, h, refresh_rate; then a pointer.
-      DISPLAY_MODE_SIZE = 24
-
-      attr_reader :renderer
-
-      def initialize(title:, width:, height:, scale: 2, vsync: true)
-        SDL.check(SDL::InitSubSystem.call(SDL::INIT_VIDEO | SDL::INIT_EVENTS))
-        SDL::SetHint.call("SDL_RENDER_SCALE_QUALITY", "0") # nearest-neighbour
-        SDL::SetHint.call("SDL_MOUSE_RELATIVE_SCALING", "0") # host pixels, whatever the window size
-
-        @window = SDL.check_pointer(SDL::CreateWindow.call(
-                                      title,
-                                      SDL::WINDOWPOS_CENTERED, SDL::WINDOWPOS_CENTERED,
-                                      width * scale, height * scale,
-                                      SDL::WINDOW_RESIZABLE
-                                    ))
-
-        flags = SDL::RENDERER_ACCELERATED
-        flags |= SDL::RENDERER_PRESENTVSYNC if vsync
-        @renderer = SDL.check_pointer(SDL::CreateRenderer.call(@window, -1, flags))
-        SDL.check(SDL::RenderSetLogicalSize.call(@renderer, width, height))
-      end
-
-      def title=(title)
-        SDL::SetWindowTitle.call(@window, title)
-      end
-
-      def refresh_rate
-        mode = "\0".b * DISPLAY_MODE_SIZE
-        SDL.check(SDL::GetCurrentDisplayMode.call(0, mode))
-        rate = mode.unpack1("l", offset: 12)
-        rate.positive? ? rate : DEFAULT_REFRESH_RATE
-      rescue SDL::Error
-        DEFAULT_REFRESH_RATE
-      end
-
-      def draw(panes)
-        SDL::SetRenderDrawColor.call(@renderer, 0, 0, 0, 255)
-        SDL::RenderClear.call(@renderer)
-        panes.each { |pane| pane.render(@renderer) }
-        SDL::RenderPresent.call(@renderer)
-      end
-
-      def close
-        return unless @window
-
-        SDL::DestroyRenderer.call(@renderer)
-        SDL::DestroyWindow.call(@window)
-        SDL::QuitSubSystem.call(SDL::INIT_VIDEO | SDL::INIT_EVENTS)
-        @window = nil
-      end
-    end
-  end
-end

data/lib/badline/gui.rb

@@ -1,14 +0,0 @@
-# frozen_string_literal: true
-
-require "badline/sdl"
-
-require "badline/gui/palette"
-require "badline/gui/key_map"
-require "badline/gui/joy_map"
-require "badline/gui/gamepads"
-require "badline/gui/pane"
-require "badline/gui/screen_pane"
-require "badline/gui/drive_led_pane"
-require "badline/gui/window"
-require "badline/gui/snapshots"
-require "badline/gui/application"

data/lib/badline/sdl/events.rb

@@ -1,49 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module SDL
-    KEY_TAB = 0x09
-    KEY_F10 = 0x4000_0043
-    KEY_F11 = 0x4000_0044
-    KEY_F12 = 0x4000_0045
-    KMOD_SHIFT = 0x0003
-
-    # The events the front end handles. SDL_Event is a 56-byte union, read
-    # here at the offsets its keyboard, mouse and controller members use.
-    Quit = Data.define
-    # A held key sends repeats, flagged at byte 13 of the event.
-    KeyDown = Data.define(:sym, :mod, :repeat) do
-      def initialize(sym:, mod:, repeat: false) = super
-    end
-    KeyUp = Data.define(:sym, :mod)
-    MouseMotion = Data.define(:xrel, :yrel)
-    MouseButton = Data.define(:button, :pressed)
-    ControllerDevice = Data.define
-
-    EVENT_SIZE = 56
-
-    # The next event the front end handles, skipping the others, or nil once
-    # the queue is empty.
-    def self.poll_event
-      buffer = (@event ||= Fiddle::Pointer.malloc(EVENT_SIZE, Fiddle::RUBY_FREE))
-      while PollEvent.call(buffer) == 1
-        event = decode(buffer.to_str(EVENT_SIZE))
-        return event if event
-      end
-      nil
-    end
-
-    def self.decode(bytes)
-      case bytes.unpack1("L")
-      when 0x100 then Quit.new
-      when 0x300 then KeyDown.new(*bytes.unpack("lS", offset: 20), bytes.getbyte(13) != 0)
-      when 0x301 then KeyUp.new(*bytes.unpack("lS", offset: 20))
-      when 0x400 then MouseMotion.new(*bytes.unpack("l2", offset: 28))
-      when 0x401, 0x402 then MouseButton.new(bytes.getbyte(16), bytes.getbyte(17) == 1)
-      when 0x653..0x655 then ControllerDevice.new
-      end
-    end
-
-    def self.key_name(sym) = GetKeyName.call(sym)
-  end
-end

data/lib/badline/sdl/functions.rb

@@ -1,74 +0,0 @@
-# frozen_string_literal: true
-
-module Badline
-  module SDL
-    INIT_AUDIO = 0x10
-    INIT_VIDEO = 0x20
-    INIT_GAMECONTROLLER = 0x2000
-    INIT_EVENTS = 0x4000
-
-    WINDOWPOS_CENTERED = 0x2fff_0000
-    WINDOW_RESIZABLE = 0x20
-    RENDERER_ACCELERATED = 0x02
-    RENDERER_PRESENTVSYNC = 0x04
-
-    AUDIO_S16SYS = [1].pack("s").getbyte(0) == 1 ? 0x8010 : 0x9010
-    AUDIO_ALLOW_FREQUENCY_CHANGE = 0x01
-
-    CONTROLLER_AXIS_LEFTX = 0
-    CONTROLLER_AXIS_LEFTY = 1
-    CONTROLLER_BUTTON_A = 0
-    CONTROLLER_BUTTON_B = 1
-    CONTROLLER_BUTTON_X = 2
-    CONTROLLER_BUTTON_Y = 3
-    CONTROLLER_BUTTON_LEFTSHOULDER = 9
-    CONTROLLER_BUTTON_RIGHTSHOULDER = 10
-    CONTROLLER_BUTTON_DPAD_UP = 11
-    CONTROLLER_BUTTON_DPAD_DOWN = 12
-    CONTROLLER_BUTTON_DPAD_LEFT = 13
-    CONTROLLER_BUTTON_DPAD_RIGHT = 14
-
-    InitSubSystem = function("SDL_InitSubSystem", [UINT32], INT)
-    QuitSubSystem = function("SDL_QuitSubSystem", [UINT32], VOID)
-    GetError = function("SDL_GetError", [], STRING)
-    SetHint = function("SDL_SetHint", [STRING, STRING], INT)
-
-    CreateWindow = function("SDL_CreateWindow", [STRING, INT, INT, INT, INT, UINT32], POINTER)
-    SetWindowTitle = function("SDL_SetWindowTitle", [POINTER, STRING], VOID)
-    DestroyWindow = function("SDL_DestroyWindow", [POINTER], VOID)
-    GetCurrentDisplayMode = function("SDL_GetCurrentDisplayMode", [INT, POINTER], INT)
-    CreateRenderer = function("SDL_CreateRenderer", [POINTER, INT, UINT32], POINTER)
-    DestroyRenderer = function("SDL_DestroyRenderer", [POINTER], VOID)
-    RenderSetLogicalSize = function("SDL_RenderSetLogicalSize", [POINTER, INT, INT], INT)
-    SetRenderDrawColor = function("SDL_SetRenderDrawColor", [POINTER, UINT8, UINT8, UINT8, UINT8], INT)
-    RenderClear = function("SDL_RenderClear", [POINTER], INT)
-    RenderFillRect = function("SDL_RenderFillRect", [POINTER, POINTER], INT)
-    RenderCopy = function("SDL_RenderCopy", [POINTER, POINTER, POINTER, POINTER], INT)
-    RenderPresent = function("SDL_RenderPresent", [POINTER], VOID)
-    CreateRGBSurfaceFrom = function("SDL_CreateRGBSurfaceFrom",
-                                    [POINTER, INT, INT, INT, INT, UINT32, UINT32, UINT32, UINT32], POINTER)
-    FreeSurface = function("SDL_FreeSurface", [POINTER], VOID)
-    CreateTextureFromSurface = function("SDL_CreateTextureFromSurface", [POINTER, POINTER], POINTER)
-    DestroyTexture = function("SDL_DestroyTexture", [POINTER], VOID)
-
-    PollEvent = function("SDL_PollEvent", [POINTER], INT)
-    PushEvent = function("SDL_PushEvent", [POINTER], INT)
-    GetKeyName = function("SDL_GetKeyName", [INT], STRING)
-    SetRelativeMouseMode = function("SDL_SetRelativeMouseMode", [INT], INT)
-
-    NumJoysticks = function("SDL_NumJoysticks", [], INT)
-    IsGameController = function("SDL_IsGameController", [INT], INT)
-    GameControllerOpen = function("SDL_GameControllerOpen", [INT], POINTER)
-    GameControllerName = function("SDL_GameControllerName", [POINTER], STRING)
-    GameControllerGetButton = function("SDL_GameControllerGetButton", [POINTER, INT], UINT8)
-    GameControllerGetAxis = function("SDL_GameControllerGetAxis", [POINTER, INT], INT16)
-    GameControllerClose = function("SDL_GameControllerClose", [POINTER], VOID)
-
-    OpenAudioDevice = function("SDL_OpenAudioDevice", [STRING, INT, POINTER, POINTER, INT], UINT32)
-    CloseAudioDevice = function("SDL_CloseAudioDevice", [UINT32], VOID)
-    PauseAudioDevice = function("SDL_PauseAudioDevice", [UINT32, INT], VOID)
-    QueueAudio = function("SDL_QueueAudio", [UINT32, POINTER, UINT32], INT)
-    GetQueuedAudioSize = function("SDL_GetQueuedAudioSize", [UINT32], UINT32)
-    ClearQueuedAudio = function("SDL_ClearQueuedAudio", [UINT32], VOID)
-  end
-end