gemba 0.1.0 → 0.2.0

data/lib/gemba/locales/ja.yml

@@ -5,8 +5,12 @@ menu:
   quit: "終了"
   settings: "設定"
   view: "表示"
+  game_library: "ゲームライブラリ"
   fullscreen: "フルスクリーン"
   rom_info: "ROM情報…"
+  achievements: "アチーブメント…"
+  open_logs_dir: "ログフォルダを開く"
+  patch_rom: "ROMをパッチ…"
   emulation: "エミュレーション"
   pause: "一時停止"
   resume: "再開"
@@ -14,8 +18,10 @@ menu:
   quick_save: "クイックセーブ"
   quick_load: "クイックロード"
   save_states: "ステートセーブ…"
-  start_recording: "録画開始"
-  stop_recording: "録画停止"
+  start_recording: "キャプチャ開始"
+  stop_recording: "キャプチャ停止"
+  start_input_recording: "入力記録開始"
+  stop_input_recording: "入力記録停止"
 
 toast:
   save_blocked: "セーブ制限中（間隔が短すぎます）"
@@ -32,12 +38,18 @@ toast:
   no_rewind: "巻き戻しデータがありません"
   paused: "一時停止"
   waiting_for: "{label}を待機中…"
-  recording_started: "録画を開始しました"
-  recording_stopped: "{frames}フレームを録画しました"
+  recording_started: "キャプチャを開始しました"
+  recording_stopped: "{frames}フレームをキャプチャしました"
+  input_recording_started: "入力記録を開始しました"
+  input_recording_stopped: "入力を記録しました（{frames}フレーム）"
 
 dialog:
   game_running_title: "ゲーム実行中"
   game_running_msg: "別のゲームが実行中です。{name}に切り替えますか？"
+  return_to_library_title: "ゲームライブラリに戻る"
+  return_to_library_msg: "ゲームライブラリに戻りますか？保存されていない進行状況は失われます。"
+  quit_title: "Gembaを終了"
+  quit_msg: "ゲームが実行中です。終了しますか？保存されていない進行状況は失われます。"
   drop_error_title: "ドロップエラー"
   drop_single_file_only: "ROMファイルを1つだけドロップしてください。"
   drop_unsupported_type: "対応していないファイル形式: {ext}"
@@ -51,6 +63,8 @@ dialog:
   reset_hotkeys_title: "ホットキーをリセット"
   reset_hotkeys_msg: "すべてのホットキー設定をデフォルトに戻しますか？"
   key_conflict_title: "キーの競合"
+  cancel_bulk_sync_title: "同期をキャンセル？"
+  cancel_bulk_sync_msg: "一括同期が実行中です。閉じるとキャンセルされます — 手動で再同期が必要になります。"
 
 settings:
   video: "映像"
@@ -91,7 +105,9 @@ settings:
   hk_save_states: "ステートセーブ"
   hk_screenshot: "スクリーンショット"
   hk_rewind: "巻き戻し"
-  hk_record: "録画"
+  hk_record: "キャプチャ"
+  hk_input_record: "入力記録"
+  hk_open_rom: "ROM を開く"
   hk_reset_defaults: "デフォルトに戻す"
   pixel_filter: "ピクセルフィルタ:"
   filter_nearest: "ニアレストネイバー"
@@ -111,11 +127,39 @@ settings:
   tip_per_game: "ROM毎に映像・音声・ステートセーブの設定を個別に保存します。"
   tip_turbo_speed: "早送りホットキー使用時の速度。"
   tip_toast_duration: "画面上の通知の表示時間。"
+  system: "システム"
+  bios_header: "GBA BIOS"
+  bios_path: "BIOSファイル:"
+  bios_browse: "参照…"
+  bios_clear: "クリア"
+  bios_not_set: "未設定 — 内蔵HLEを使用（ほとんどのゲームに推奨）"
+  bios_not_found: "ファイルが見つかりません"
+  skip_bios: "起動アニメーションをスキップ"
+  tip_skip_bios: "ゲームボーイアドバンスのロゴ画面をスキップして\n直接ゲームを開始します。実BIOSが必要です。"
+  retroachievements: "実績"
+  ra_enabled: "RetroAchievementsを有効にする"
+  ra_credentials: "アカウント"
+  ra_username_placeholder: "ユーザー名："
+  ra_token_placeholder: "パスワード："
+  ra_rich_presence: "リッチプレゼンス（ゲームごと）"
+  ra_hardcore: "ハードコアモード（セーブステートと巻き戻し無効）"
+  tip_ra_password: "パスワードはAPIトークン取得のみに使用され、保存されません。"
+  ra_login: "ログイン"
+  ra_verify: "トークン確認"
+  ra_logout: "ログアウト"
+  ra_reset: "リセット"
+  ra_reset_title: "RetroAchievementsをリセット"
+  ra_reset_confirm: "保存済みの認証情報を削除してログアウトしますか？"
+  ra_test_ok: "接続OK ✓"
+  ra_disabled: "RetroAchievementsは無効です"
+  ra_not_logged_in: "未ログイン"
+  ra_logged_in_as: "{username}でログイン中"
   recording: "録画"
   recording_compression: "圧縮レベル:"
   tip_recording_compression: ".grecファイルのzlib圧縮レベル。\n1 = 最速（デフォルト）、6以上は効果が小さくなります。"
   recordings_folder: "録画フォルダ:"
   open_recordings_folder: "録画フォルダを開く…"
+  open_replay_player: "入力リプレイを開く…"
   gp_a: "A"
   gp_b: "B"
   gp_l: "L"
@@ -134,6 +178,13 @@ picker:
   slot: "スロット{n}"
   close: "閉じる"
 
+game_picker:
+  menu:
+    play: "プレイ"
+    quick_load: "クイックロード"
+    set_boxart: "カスタム画像を設定"
+    remove: "ライブラリから削除"
+
 rom_info:
   title: "ROM情報"
   field_title: "タイトル:"
@@ -148,6 +199,29 @@ rom_info:
   close: "閉じる"
   na: "N/A"
 
+replay:
+  open_recording: "入力記録を開く…"
+  replay_player: "入力リプレイ"
+  ended: "リプレイ完了（{frames}フレーム）"
+  empty_hint: "入力記録を開く (Cmd+O)"
+
+patcher:
+  title: "ROMをパッチ"
+  rom_label: "ROMファイル:"
+  patch_label: "パッチファイル:"
+  outdir_label: "出力フォルダ:"
+  browse: "参照…"
+  apply: "パッチを適用"
+  working: "パッチ適用中…"
+  done: "完了 →"
+  err_missing_fields: "すべての項目を入力してください。"
+  err_rom_not_found: "ROMファイルが見つかりません。"
+  err_patch_not_found: "パッチファイルが見つかりません。"
+  err_failed: "パッチ失敗:"
+  overwrite_title: "ファイルが存在します"
+  overwrite_msg: "{path} は既に存在します。上書きしますか？"
+  thread_mode_warn: "注意: Ruby < 4 ではプログレスが止まって見える場合があります"
+
 player:
   open_rom_hint: "ファイル > ROMを開く…"
   fps: "{fps} fps"
@@ -155,3 +229,21 @@ player:
   ff_max: ">> 最大"
   none: "(なし)"
   clear: "クリア"
+
+achievements:
+  title: "アチーブメント"
+  game_label: "ゲーム:"
+  sync: "同期"
+  name_col: "アチーブメント"
+  points_col: "ポイント"
+  earned_col: "取得日時"
+  none: "アチーブメントなし"
+  earned_label: "{earned} / {total} 取得"
+  sync_pending: "同期中…"
+  sync_failed: "同期に失敗しました"
+  sync_no_game: "ゲームが読み込まれていません"
+  sync_timeout: "同期がタイムアウトしました"
+  not_logged_in: "ログインしていません"
+  include_unofficial: "非公式を含む"
+  bulk_syncing: "{title} を同期中 ({n}/{total})…"
+  bulk_sync_done: "{count} ゲームを同期しました"

data/lib/gemba/main_window.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+
+
+module Gemba
+  # Pure Tk shell — creates the app window and hosts a FrameStack.
+  #
+  # MainWindow knows nothing about ROMs, emulation, menus, or config.
+  # It provides geometry/title/fullscreen primitives that the AppController
+  # drives. Its only structural contribution is the FrameStack, which
+  # manages show/hide transitions to prevent visual flash (FOUC).
+  class MainWindow
+    attr_reader :app, :frame_stack
+
+    def initialize
+      @app = Teek::App.new
+      @app.show
+      @frame_stack = FrameStack.new
+    end
+
+    def set_title(title)
+      @app.set_window_title(title)
+    end
+
+    def set_geometry(w, h)
+      @app.set_window_geometry("#{w}x#{h}")
+    end
+
+    def set_aspect(numer, denom)
+      @app.command(:wm, 'aspect', '.', numer, denom, numer, denom)
+    end
+
+    def set_minsize(w, h)
+      @app.command(:wm, 'minsize', '.', w, h)
+    end
+
+    def reset_minsize
+      @app.command(:wm, 'minsize', '.', 0, 0)
+    end
+
+    def reset_aspect_ratio
+      @app.command(:wm, 'aspect', '.', '', '', '', '')
+    end
+
+    def set_timer_speed(ms)
+      @app.interp.thread_timer_ms = ms
+    end
+
+    def fullscreen=(val)
+      @app.command(:wm, 'attributes', '.', '-fullscreen', val ? 1 : 0)
+    end
+
+    def mainloop
+      @app.mainloop
+    end
+  end
+end

data/lib/gemba/modal_stack.rb

@@ -0,0 +1,81 @@
+# frozen_string_literal: true
+
+module Gemba
+  # Push/pop stack for modal child windows.
+  #
+  # One modal can push another (e.g. Settings → Replay Player) and the
+  # previous modal is automatically re-shown on pop.
+  #
+  # Windows must implement the ModalWindow protocol:
+  #   show_modal(**args) — reveal the window (deiconify, grab, position)
+  #   withdraw           — hide the window (release grab, withdraw — NO callback)
+  #
+  # @example
+  #   stack = ModalStack.new(
+  #     on_enter: ->(name) { pause_emulation },
+  #     on_exit:  -> { unpause_emulation },
+  #     on_focus_change: ->(name) { update_toast(name) },
+  #   )
+  #   stack.push(:settings, @settings_window, show_args: { tab: :video })
+  #   stack.push(:replay, @replay_player)  # settings auto-withdrawn
+  #   stack.pop  # replay closed, settings re-shown
+  #   stack.pop  # settings closed, on_exit fired
+  class ModalStack
+    Entry = Data.define(:name, :window, :show_args)
+
+    # @param on_enter [Proc] called with (name) when stack goes empty → non-empty
+    # @param on_exit  [Proc] called when stack goes non-empty → empty
+    # @param on_focus_change [Proc, nil] called with (name) whenever the top modal changes
+    def initialize(on_enter:, on_exit:, on_focus_change: nil)
+      @stack = []
+      @on_enter = on_enter
+      @on_exit  = on_exit
+      @on_focus_change = on_focus_change
+    end
+
+    # @return [Boolean] true if any modal is open
+    def active? = !@stack.empty?
+
+    # @return [Symbol, nil] name of the topmost modal, or nil
+    def current = @stack.last&.name
+
+    # @return [Integer] number of modals on the stack
+    def size = @stack.length
+
+    # Push a modal onto the stack.
+    #
+    # If another modal is on top, it is withdrawn (without callback).
+    # If the stack was empty, on_enter is fired (pause emulation, etc.).
+    #
+    # @param name [Symbol] identifier for the modal (e.g. :settings, :picker)
+    # @param window [#show_modal, #withdraw] the modal window object
+    # @param show_args [Hash] keyword arguments forwarded to window.show_modal
+    def push(name, window, show_args: {})
+      was_empty = @stack.empty?
+
+      # Withdraw current top without firing its on_dismiss
+      @stack.last&.window&.withdraw
+
+      @stack.push(Entry.new(name: name, window: window, show_args: show_args))
+      @on_enter.call(name) if was_empty
+      @on_focus_change&.call(name)
+      window.show_modal(**show_args)
+    end
+
+    # Pop the current modal off the stack.
+    #
+    # If the stack still has entries, the previous modal is re-shown.
+    # If the stack is now empty, on_exit is fired (unpause emulation, etc.).
+    def pop
+      return unless (entry = @stack.pop)
+      entry.window.withdraw
+
+      if (prev = @stack.last)
+        @on_focus_change&.call(prev.name)
+        prev.window.show_modal(**prev.show_args)
+      else
+        @on_exit.call
+      end
+    end
+  end
+end

data/lib/gemba/patcher_window.rb

@@ -0,0 +1,223 @@
+# frozen_string_literal: true
+
+module Gemba
+  # Floating window for applying IPS/BPS/UPS patches to ROM files.
+  #
+  # Non-modal — no grab. Shows three file pickers (ROM, patch, output dir)
+  # and runs the patch in a background thread so the UI stays responsive.
+  class PatcherWindow
+    include ChildWindow
+    include Locale::Translatable
+
+    # Worker class for Ractor-based patching.
+    # Defined as a class so Ractor.shareable_proc never sees nested closures —
+    # the lambda and rescue are created at runtime inside the Ractor.
+    class PatchWorker
+      def call(t, d)
+        RomPatcher.patch(
+          rom_path:    d[:rom],
+          patch_path:  d[:patch],
+          out_path:    d[:out],
+          on_progress: ->(pct) { t.yield(pct) }
+        )
+        t.yield({ ok: true, path: d[:out] })
+      rescue => e
+        t.yield({ ok: false, error: e.message })
+      end
+    end
+
+    TOP          = '.patcher_window'
+    BG_MODE      = (RUBY_VERSION >= '4.0' ? :ractor : :thread).freeze
+
+    VAR_ROM    = '::gemba_patcher_rom'
+    VAR_PATCH  = '::gemba_patcher_patch'
+    VAR_OUTDIR = '::gemba_patcher_outdir'
+    VAR_STATUS = '::gemba_patcher_status'
+
+    def initialize(app:)
+      @app = app
+      @callbacks = {}
+      build_toplevel(translate('patcher.title'), geometry: '540x220') { build_ui }
+    end
+
+    def show    = show_window(modal: false)
+    def hide    = hide_window(modal: false)
+    def visible? = @app.tcl_eval("wm state #{TOP}") == 'normal'
+
+    private
+
+    def build_ui
+      f = "#{TOP}.f"
+      @app.command('ttk::frame', f, padding: 12)
+      @app.command(:pack, f, fill: :both, expand: 1)
+
+      @app.set_variable(VAR_ROM,    '')
+      @app.set_variable(VAR_PATCH,  '')
+      @app.set_variable(VAR_OUTDIR, Config.default_patches_dir)
+      @app.set_variable(VAR_STATUS, '')
+
+      build_file_row(f, 'rom',   translate('patcher.rom_label'),
+                     "{{GBA ROMs} {.gba .zip}} {{All Files} *}")
+      build_file_row(f, 'patch', translate('patcher.patch_label'),
+                     "{{Patch Files} {.ips .bps .ups}} {{All Files} *}")
+      build_dir_row(f,  'outdir', translate('patcher.outdir_label'), VAR_OUTDIR)
+
+      btn_row = "#{f}.btn_row"
+      @app.command('ttk::frame', btn_row)
+      @app.command(:pack, btn_row, fill: :x, pady: [10, 0])
+
+      @apply_btn = "#{btn_row}.apply"
+      @app.command('ttk::button', @apply_btn,
+                   text: translate('patcher.apply'),
+                   command: proc { apply_patch })
+      @app.command(:pack, @apply_btn, side: :left)
+
+      @progress_bar = "#{btn_row}.pb"
+      @app.command('ttk::progressbar', @progress_bar,
+                   orient: :horizontal, length: 200,
+                   mode: :determinate, maximum: 100)
+      @app.command(:pack, @progress_bar, side: :left, padx: [8, 0])
+
+      if BG_MODE == :thread
+        @app.command('ttk::label', "#{btn_row}.ruby_warn",
+                     text: translate('patcher.thread_mode_warn'),
+                     foreground: 'gray')
+        @app.command(:pack, "#{btn_row}.ruby_warn", side: :left, padx: [10, 0])
+      end
+
+      @app.command('ttk::label', "#{f}.status",
+                   textvariable: VAR_STATUS,
+                   wraplength: 500)
+      @app.command(:pack, "#{f}.status", fill: :x, pady: [6, 0])
+    end
+
+    def build_file_row(parent, name, label_text, filetypes_tcl)
+      row = "#{parent}.#{name}_row"
+      var = case name
+            when 'rom'   then VAR_ROM
+            when 'patch' then VAR_PATCH
+            end
+
+      @app.command('ttk::frame', row)
+      @app.command(:pack, row, fill: :x, pady: 2)
+
+      @app.command('ttk::label', "#{row}.lbl", text: label_text, width: 10, anchor: :w)
+      @app.command(:grid, "#{row}.lbl", row: 0, column: 0, sticky: :w)
+
+      @app.command('ttk::entry', "#{row}.ent", textvariable: var, width: 48)
+      @app.command(:grid, "#{row}.ent", row: 0, column: 1, sticky: :ew, padx: [4, 4])
+
+      @app.command('ttk::button', "#{row}.btn",
+                   text: translate('patcher.browse'),
+                   command: proc { browse_file(var, filetypes_tcl) })
+      @app.command(:grid, "#{row}.btn", row: 0, column: 2)
+      @app.command(:grid, :columnconfigure, row, 1, weight: 1)
+    end
+
+    def build_dir_row(parent, name, label_text, var)
+      row = "#{parent}.#{name}_row"
+      @app.command('ttk::frame', row)
+      @app.command(:pack, row, fill: :x, pady: 2)
+
+      @app.command('ttk::label', "#{row}.lbl", text: label_text, width: 10, anchor: :w)
+      @app.command(:grid, "#{row}.lbl", row: 0, column: 0, sticky: :w)
+
+      @app.command('ttk::entry', "#{row}.ent", textvariable: var, width: 48)
+      @app.command(:grid, "#{row}.ent", row: 0, column: 1, sticky: :ew, padx: [4, 4])
+
+      @app.command('ttk::button', "#{row}.btn",
+                   text: translate('patcher.browse'),
+                   command: proc { browse_dir(var) })
+      @app.command(:grid, "#{row}.btn", row: 0, column: 2)
+      @app.command(:grid, :columnconfigure, row, 1, weight: 1)
+    end
+
+    def browse_file(var, filetypes_tcl)
+      path = @app.tcl_eval("tk_getOpenFile -filetypes {#{filetypes_tcl}}")
+      @app.set_variable(var, path) unless path.to_s.strip.empty?
+    end
+
+    def browse_dir(var)
+      dir = @app.tcl_eval("tk_chooseDirectory")
+      @app.set_variable(var, dir) unless dir.to_s.strip.empty?
+    end
+
+    def apply_patch
+      rom    = @app.get_variable(VAR_ROM).strip
+      patch  = @app.get_variable(VAR_PATCH).strip
+      outdir = @app.get_variable(VAR_OUTDIR).strip
+
+      if rom.empty? || patch.empty? || outdir.empty?
+        set_status(translate('patcher.err_missing_fields'))
+        return
+      end
+
+      unless File.exist?(rom)
+        set_status(translate('patcher.err_rom_not_found'))
+        return
+      end
+
+      unless File.exist?(patch)
+        set_status(translate('patcher.err_patch_not_found'))
+        return
+      end
+
+      resolved_rom = begin
+                       RomResolver.resolve(rom)
+                     rescue => e
+                       set_status("#{translate('patcher.err_failed')} #{e.message}")
+                       return
+                     end
+
+      rom_ext     = File.extname(resolved_rom)
+      basename    = File.basename(rom, '.*') + '-patched' + rom_ext
+      desired_out = File.join(outdir, basename)
+
+      out_path = if File.exist?(desired_out)
+                   msg = translate('patcher.overwrite_msg').gsub('{path}', File.basename(desired_out))
+                   answer = @app.command('tk_messageBox',
+                                        parent: TOP,
+                                        title: translate('patcher.overwrite_title'),
+                                        message: msg,
+                                        type: :yesnocancel,
+                                        icon: :question)
+                   case answer
+                   when 'yes'    then desired_out
+                   when 'no'     then RomPatcher.safe_out_path(desired_out)
+                   else return   # cancel — abort silently
+                   end
+                 else
+                   desired_out
+                 end
+
+      set_status(translate('patcher.working'))
+      @app.command(@apply_btn, :configure, state: :disabled)
+      @app.command(@progress_bar, :configure, value: 0)
+
+      data = Ractor.make_shareable({ rom: resolved_rom.freeze, patch: patch.freeze, out: out_path.freeze })
+      Teek::BackgroundWork.drop_intermediate = false
+      Teek::BackgroundWork.new(@app, data, mode: BG_MODE, worker: PatchWorker).on_progress do |result|
+        case result
+        when Float
+          @app.command(@progress_bar, :configure, value: (result * 100).round)
+          @app.update
+        when Hash
+          @app.command(@apply_btn, :configure, state: :normal)
+          @app.command(@progress_bar, :configure, value: result[:ok] ? 100 : 0)
+          @app.update
+          if result[:ok]
+            set_status("#{translate('patcher.done')} #{File.basename(result[:path])}")
+          else
+            set_status("#{translate('patcher.err_failed')} #{result[:error]}")
+          end
+        end
+      end.on_done do
+        @app.command(@apply_btn, :configure, state: :normal)
+      end
+    end
+
+    def set_status(msg)
+      @app.set_variable(VAR_STATUS, msg)
+    end
+  end
+end

data/lib/gemba/platform/gb.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+module Gemba
+  module Platform
+    class GB
+      def width         = 160
+      def height        = 144
+      def fps           = 59.7275
+      def fps_fraction  = [4194304, 70224]
+      def aspect        = [10, 9]
+      def name          = "Game Boy"
+      def short_name    = "GB"
+      def buttons       = %i[a b start select up down left right]
+      def thumb_size    = [80, 72]
+
+      def ==(other)  = other.is_a?(Platform::GB)
+      def eql?(other) = self == other
+      def hash        = self.class.hash
+    end
+  end
+end

data/lib/gemba/platform/gba.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+module Gemba
+  module Platform
+    class GBA
+      def width         = 240
+      def height        = 160
+      def fps           = 59.7272
+      def fps_fraction  = [262144, 4389]
+      def aspect        = [3, 2]
+      def name          = "Game Boy Advance"
+      def short_name    = "GBA"
+      def buttons       = %i[a b l r start select up down left right]
+      def thumb_size    = [120, 80]
+
+      def ==(other)  = other.is_a?(Platform::GBA)
+      def eql?(other) = self == other
+      def hash        = self.class.hash
+    end
+  end
+end

data/lib/gemba/platform/gbc.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+module Gemba
+  module Platform
+    # Same hardware specs as GB (resolution, FPS, buttons).
+    # Separate class for distinct name and future color-specific behavior.
+    class GBC
+      def width         = 160
+      def height        = 144
+      def fps           = 59.7275
+      def fps_fraction  = [4194304, 70224]
+      def aspect        = [10, 9]
+      def name          = "Game Boy Color"
+      def short_name    = "GBC"
+      def buttons       = %i[a b start select up down left right]
+      def thumb_size    = [80, 72]
+
+      def ==(other)  = other.is_a?(Platform::GBC)
+      def eql?(other) = self == other
+      def hash        = self.class.hash
+    end
+  end
+end

data/lib/gemba/platform.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+
+
+module Gemba
+  module Platform
+    # Build a Platform from a loaded Core.
+    # @param core [Gemba::Core] initialized core with ROM loaded
+    # @return [GBA, GB, GBC]
+    def self.for(core)
+      case core.platform
+      when "GBA" then GBA.new
+      when "GBC" then GBC.new
+      else            GB.new
+      end
+    end
+
+    # Default platform before any ROM is loaded (most common case).
+    def self.default = GBA.new
+  end
+end

data/lib/gemba/platform_open.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+require 'fileutils'
+
+module Gemba
+  # Open a directory in the platform's file manager.
+  # @param dir [String] directory path (created if missing)
+  def self.open_directory(dir)
+    FileUtils.mkdir_p(dir) unless File.directory?(dir)
+    p = Teek.platform
+    if p.darwin?
+      system('open', dir)
+    elsif p.windows?
+      system('explorer.exe', dir.tr('/', '\\'))
+    else
+      system('xdg-open', dir)
+    end
+  end
+end

data/lib/gemba/recorder.rb

@@ -30,13 +30,14 @@ module Gemba
     # @param audio_rate [Integer] audio sample rate (default 44100)
     # @param audio_channels [Integer] audio channels (default 2)
     # @param compression [Integer] zlib compression level 1-9 (default 1 = fastest)
-    def initialize(path, width:, height:, audio_rate: 44100, audio_channels: 2,
-                   compression: Zlib::BEST_SPEED)
+    def initialize(path, width:, height:, fps_fraction:, audio_rate: 44100,
+                   audio_channels: 2, compression: Zlib::BEST_SPEED)
       @path = path
       @width = width
       @height = height
       @audio_rate = audio_rate
       @audio_channels = audio_channels
+      @fps_fraction = fps_fraction
       @compression = compression
       @frame_size = width * height * 4
       @recording = false
@@ -127,7 +128,7 @@ module Gemba
       h << MAGIC                              # 8 bytes
       h << [VERSION].pack('C')                # 1 byte
       h << [@width, @height].pack('v2')       # 4 bytes
-      h << [262_144, 4389].pack('V2')         # 8 bytes (fps = 262144/4389 ≈ 59.7272)
+      h << @fps_fraction.pack('V2')            # 8 bytes (fps as numerator/denominator)
       h << [@audio_rate].pack('V')            # 4 bytes
       h << [@audio_channels, 16].pack('C2')   # 2 bytes
       h << ("\0" * 5)                         # 5 bytes reserved