Source file waves.ml

open Base

module type S = Waves_intf.S

module M = Waves_intf.M

module Make (Data : Data.S) (Wave : Wave.M(Data).S) = struct
  module Config = struct
    type t =
      { mutable signals_width : int
      ; mutable values_width : int
      ; mutable wave_width : int
      ; mutable wave_height : int
      ; mutable start_cycle : int
      ; mutable start_signal : int
      ; mutable selected_signal : int
      ; mutable wave_cursor : int
      ; mutable signal_scroll : int
      ; mutable value_scroll : int
      }
    [@@deriving sexp]

    let default =
      { signals_width = 20
      ; values_width = 20
      ; wave_width = 3
      ; wave_height = 1
      ; start_cycle = 0
      ; start_signal = 0
      ; selected_signal = 0
      ; wave_cursor = 0
      ; signal_scroll = 0
      ; value_scroll = 0
      }
    ;;
  end

  type t =
    { cfg : Config.t
    ; waves : Wave.t array
    }
  [@@deriving sexp_of]
end