Binbo start link

This commit is contained in:
Simponic 2023-01-13 10:00:58 -07:00
parent aa2ff6e137
commit a93119b250
Signed by untrusted user who does not match committer: simponic
GPG Key ID: 52B3774857EB24B1
5 changed files with 211 additions and 300 deletions

View File

@ -1,276 +0,0 @@
# defmodule Chessh.SSH.Client.Board do
# alias Chessh.SSH.Client
# alias IO.ANSI
#
# require Logger
#
# defmodule State do
# defstruct cursor: %{x: 0, y: 0},
# highlighted: %{},
# move_from: nil
# end
#
# use GenServer
# use Chessh.SSH.Client.Screen
#
# @chess_board_height 8
# @chess_board_width 8
# @tile_width 7
# @tile_height 4
#
# @dark_piece_color ANSI.magenta()
# @light_piece_color ANSI.red()
#
# def tileIsLight(row, col) do
# rem(row, 2) == rem(col, 2)
# end
#
# def piece_type(char) do
# case String.capitalize(char) do
# "P" -> "pawn"
# "N" -> "knight"
# "R" -> "rook"
# "B" -> "bishop"
# "K" -> "king"
# "Q" -> "queen"
# _ -> nil
# end
# end
#
# def make_board({tile_width, tile_height}) do
# rows =
# Enum.map(0..(@chess_board_height - 1), fn row ->
# Enum.map(0..(@chess_board_width - 1), fn col ->
# if(tileIsLight(row, col), do: ' ', else: '▊')
# |> List.duplicate(tile_width)
# end)
# |> Enum.join("")
# end)
#
# Enum.flat_map(rows, fn row -> Enum.map(1..tile_height, fn _ -> row end) end)
# end
#
# defp skip_cols_or_place_piece_reduce(char, {curr_column, data}, rowI) do
# case Integer.parse(char) do
# {skip, ""} ->
# {curr_column + skip, data}
#
# _ ->
# case piece_type(char) do
# nil ->
# {curr_column, data}
#
# type ->
# shade = if(char != String.capitalize(char), do: "light", else: "dark")
#
# {curr_column + 1,
# Map.put(
# data,
# "#{rowI}, #{curr_column}",
# {shade, type}
# )}
# end
# end
# end
#
# defp make_coordinate_to_piece_art_map(fen) do
# rows =
# String.split(fen, " ")
# |> List.first()
# |> String.split("/")
#
# Enum.zip(rows, 0..(length(rows) - 1))
# |> Enum.map(fn {row, rowI} ->
# {@chess_board_height, pieces_per_row} =
# Enum.reduce(
# String.split(row, ""),
# {0, %{}},
# &skip_cols_or_place_piece_reduce(&1, &2, rowI)
# )
#
# pieces_per_row
# end)
# |> Enum.reduce(%{}, fn pieces_map_for_this_row, acc ->
# Map.merge(acc, pieces_map_for_this_row)
# end)
# end
#
# def draw_board(
# fen,
# {tile_width, tile_height} = tile_dims,
# highlights
# ) do
# coordinate_to_piece = make_coordinate_to_piece_art_map(fen)
# board = make_board(tile_dims)
#
# Enum.zip_with([board, 0..(length(board) - 1)], fn [rowStr, row] ->
# curr_y = div(row, tile_height)
#
# %{row_chars: row_chars} =
# Enum.reduce(
# Enum.zip(String.graphemes(rowStr), 0..(String.length(rowStr) - 1)),
# %{current_color: ANSI.black(), row_chars: []},
# fn {char, col}, %{current_color: current_color, row_chars: row_chars} = row_state ->
# curr_x = div(col, tile_width)
# key = "#{curr_y}, #{curr_x}"
# relative_to_tile_col = col - curr_x * tile_width
#
# prefix =
# if relative_to_tile_col == 0 do
# case Map.fetch(highlights, {curr_y, curr_x}) do
# {:ok, color} ->
# color
#
# _ ->
# ANSI.default_background()
# end
# end
#
# case Map.fetch(coordinate_to_piece, key) do
# {:ok, {shade, type}} ->
# piece = @ascii_chars["pieces"][shade][type]
# piece_line = Enum.at(piece, row - curr_y * tile_height)
#
# piece_line_len = String.length(piece_line)
# pad_left_right = div(tile_width - piece_line_len, 2)
#
# if relative_to_tile_col >= pad_left_right &&
# relative_to_tile_col < tile_width - pad_left_right do
# piece_char = String.at(piece_line, relative_to_tile_col - pad_left_right)
# new_char = if piece_char == " ", do: char, else: piece_char
#
# color =
# if piece_char == " ",
# do: ANSI.default_color(),
# else: if(shade == "dark", do: @dark_piece_color, else: @light_piece_color)
#
# if color != current_color do
# %{
# row_state
# | current_color: color,
# row_chars: row_chars ++ [prefix, color, new_char]
# }
# else
# %{
# row_state
# | current_color: current_color,
# row_chars: row_chars ++ [prefix, new_char]
# }
# end
# else
# %{
# row_state
# | current_color: ANSI.default_color(),
# row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
# }
# end
#
# _ ->
# if ANSI.white() != current_color do
# %{
# row_state
# | current_color: ANSI.default_color(),
# row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
# }
# else
# %{
# row_state
# | row_chars: row_chars ++ [prefix, char]
# }
# end
# end
# end
# )
#
# row_chars
# |> Enum.join("")
# end)
# end
#
# def render(%Client.State{
# state_stack: [{_this_module, %State{highlighted: highlighted}} | _]
# }) do
# board =
# draw_board(
# "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1",
# {@tile_width, @tile_height},
# highlighted
# )
#
# [ANSI.home()] ++
# Enum.map(
# Enum.zip(1..length(board), board),
# fn {i, line} ->
# [ANSI.cursor(i, 0), line]
# end
# )
# end
#
# def handle_input(
# action,
# %Client.State{
# binbo_pid: binbo_pid,
# state_stack: [
# {this_module,
# %State{
# move_from: move_from,
# cursor: %{x: cursor_x, y: cursor_y} = cursor
# } = screen_state}
# | rest_stack
# ]
# } = state
# ) do
# new_cursor =
# case action do
# :left -> %{y: cursor_y, x: cursor_x - 1}
# :right -> %{y: cursor_y, x: cursor_x + 1}
# :down -> %{y: cursor_y + 1, x: cursor_x}
# :up -> %{y: cursor_y - 1, x: cursor_x}
# _ -> cursor
# end
#
# {new_move_from, move_to} =
# if action == :return do
# coords = {new_cursor.y, new_cursor.x}
#
# case move_from do
# nil -> {coords, nil}
# _ -> {nil, coords}
# end
# else
# {move_from, nil}
# end
#
# if move_from && move_to do
# # Logger.debug(inspect(attempt_move(%Chess.Game{}, move_from, move_to)))
# attempted_move = "#{to_chess_coord(move_from)}#{to_chess_coord(move_to)}"
#
# case :binbo.move(binbo_pid, attempted_move) do
# # state.game_id}, {:new_move, :attempted_move})
# {:ok, _} -> :syn.publish(:games, {:game, "asdf"}, {:new_move, attempted_move})
# end
# end
#
# %Client.State{
# state
# | state_stack: [
# {this_module,
# %State{
# screen_state
# | cursor: new_cursor,
# move_from: new_move_from,
# highlighted: %{
# new_move_from => ANSI.green_background(),
# {new_cursor.y, new_cursor.x} => ANSI.green_background()
# }
# }}
# | rest_stack
# ]
# }
# end
#
# defp to_chess_coord({y, x})
# when x >= 0 and x < @chess_board_width and y >= 0 and y < @chess_board_height do
# "#{List.to_string([?a + x])}#{y + 1}"
# end
# end

View File

@ -1,6 +1,7 @@
defmodule Chessh.SSH.Client.Board do defmodule Chessh.SSH.Client.Board do
alias IO.ANSI alias IO.ANSI
require Logger require Logger
alias Chessh.Utils
@chess_board_height 8 @chess_board_height 8
@chess_board_width 8 @chess_board_width 8
@ -13,11 +14,14 @@ defmodule Chessh.SSH.Client.Board do
@to_select_background ANSI.blue_background() @to_select_background ANSI.blue_background()
defmodule State do defmodule State do
defstruct cursor: %{x: 0, y: 0}, defstruct cursor: %{x: 7, y: 7},
highlighted: %{}, highlighted: %{},
move_from: nil, move_from: nil,
game_id: nil, game_id: nil,
client_pid: nil client_pid: nil,
binbo_pid: nil,
width: 0,
height: 0
end end
use Chessh.SSH.Client.Screen use Chessh.SSH.Client.Screen
@ -26,11 +30,17 @@ defmodule Chessh.SSH.Client.Board do
:syn.add_node_to_scopes([:games]) :syn.add_node_to_scopes([:games])
:ok = :syn.join(:games, {:game, game_id}, self()) :ok = :syn.join(:games, {:game, game_id}, self())
{:ok, state} :binbo.start()
{:ok, binbo_pid} = :binbo.new_server()
:binbo.new_game(binbo_pid)
{:ok, %State{state | binbo_pid: binbo_pid}}
end end
def handle_info({:attempted_move, move}, %State{client_pid: client_pid} = state) do def handle_info({:new_move, move}, %State{binbo_pid: binbo_pid, client_pid: client_pid} = state) do
send(client_pid, {:send_to_ssh, ["hello, world!"]}) :binbo.move(binbo_pid, move)
send(client_pid, {:send_to_ssh, render_state(state)})
{:noreply, state} {:noreply, state}
end end
@ -47,10 +57,10 @@ defmodule Chessh.SSH.Client.Board do
) do ) do
new_cursor = new_cursor =
case action do case action do
:left -> %{y: cursor_y, x: cursor_x - 1} :left -> %{y: cursor_y, x: Utils.wrap_around(cursor_x, -1, @chess_board_width)}
:right -> %{y: cursor_y, x: cursor_x + 1} :right -> %{y: cursor_y, x: Utils.wrap_around(cursor_x, 1, @chess_board_width)}
:down -> %{y: cursor_y + 1, x: cursor_x} :down -> %{y: Utils.wrap_around(cursor_y, 1, @chess_board_height), x: cursor_x}
:up -> %{y: cursor_y - 1, x: cursor_x} :up -> %{y: Utils.wrap_around(cursor_y, -1, @chess_board_height), x: cursor_x}
_ -> cursor _ -> cursor
end end
@ -68,6 +78,7 @@ defmodule Chessh.SSH.Client.Board do
if move_from && move_to do if move_from && move_to do
attempted_move = "#{to_chess_coord(move_from)}#{to_chess_coord(move_to)}" attempted_move = "#{to_chess_coord(move_from)}#{to_chess_coord(move_to)}"
Logger.debug("New move #{attempted_move}")
:syn.publish(:games, {:game, game_id}, {:new_move, attempted_move}) :syn.publish(:games, {:game, game_id}, {:new_move, attempted_move})
end end
@ -78,25 +89,201 @@ defmodule Chessh.SSH.Client.Board do
highlighted: %{ highlighted: %{
new_move_from => @from_select_background, new_move_from => @from_select_background,
{new_cursor.y, new_cursor.x} => @to_select_background {new_cursor.y, new_cursor.x} => @to_select_background
} },
width: width,
height: height
} }
send(client_pid, {:send_to_ssh, render_state(width, height, new_state)}) send(client_pid, {:send_to_ssh, render_state(new_state)})
new_state new_state
end end
def render(width, height, %State{client_pid: client_pid} = state) do def render(width, height, %State{client_pid: client_pid} = state) do
send(client_pid, {:send_to_ssh, render_state(width, height, state)}) send(client_pid, {:send_to_ssh, render_state(state)})
state %State{state | width: width, height: height}
end end
defp render_state(width, height, %State{} = _state) do defp render_state(%State{
[ANSI.clear(), "#{width}#{height}"] width: _width,
height: _height,
binbo_pid: binbo_pid,
highlighted: highlighted
}) do
{:ok, fen} = :binbo.get_fen(binbo_pid)
board =
draw_board(
fen,
{@tile_width, @tile_height},
highlighted
)
[ANSI.home()] ++
Enum.map(
Enum.zip(1..length(board), board),
fn {i, line} ->
[ANSI.cursor(i, 0), line]
end
)
end
defp make_board({tile_width, tile_height}) do
rows =
Enum.map(0..(@chess_board_height - 1), fn row ->
Enum.map(0..(@chess_board_width - 1), fn col ->
if(tileIsLight(row, col), do: ' ', else: '')
|> List.duplicate(tile_width)
end)
|> Enum.join("")
end)
Enum.flat_map(rows, fn row -> Enum.map(1..tile_height, fn _ -> row end) end)
end end
defp to_chess_coord({y, x}) defp to_chess_coord({y, x})
when x >= 0 and x < @chess_board_width and y >= 0 and y < @chess_board_height do when x >= 0 and x < @chess_board_width and y >= 0 and y < @chess_board_height do
"#{List.to_string([?a + x])}#{y + 1}" "#{List.to_string([?a + x])}#{@chess_board_height - y}"
end
defp tileIsLight(row, col) do
rem(row, 2) == rem(col, 2)
end
defp skip_cols_or_place_piece_reduce(char, {curr_column, data}, rowI) do
case Integer.parse(char) do
{skip, ""} ->
{curr_column + skip, data}
_ ->
case piece_type(char) do
nil ->
{curr_column, data}
type ->
shade = if(char != String.capitalize(char), do: "light", else: "dark")
{curr_column + 1,
Map.put(
data,
"#{rowI}, #{curr_column}",
{shade, type}
)}
end
end
end
defp make_coordinate_to_piece_art_map(fen) do
rows =
String.split(fen, " ")
|> List.first()
|> String.split("/")
Enum.zip(rows, 0..(length(rows) - 1))
|> Enum.map(fn {row, rowI} ->
{@chess_board_height, pieces_per_row} =
Enum.reduce(
String.split(row, ""),
{0, %{}},
&skip_cols_or_place_piece_reduce(&1, &2, rowI)
)
pieces_per_row
end)
|> Enum.reduce(%{}, fn pieces_map_for_this_row, acc ->
Map.merge(acc, pieces_map_for_this_row)
end)
end
defp draw_board(
fen,
{tile_width, tile_height} = tile_dims,
highlights
) do
coordinate_to_piece = make_coordinate_to_piece_art_map(fen)
board = make_board(tile_dims)
Enum.zip_with([board, 0..(length(board) - 1)], fn [rowStr, row] ->
curr_y = div(row, tile_height)
%{row_chars: row_chars} =
Enum.reduce(
Enum.zip(String.graphemes(rowStr), 0..(String.length(rowStr) - 1)),
%{current_color: ANSI.black(), row_chars: []},
fn {char, col}, %{current_color: current_color, row_chars: row_chars} = row_state ->
curr_x = div(col, tile_width)
key = "#{curr_y}, #{curr_x}"
relative_to_tile_col = col - curr_x * tile_width
prefix =
if relative_to_tile_col == 0 do
case Map.fetch(highlights, {curr_y, curr_x}) do
{:ok, color} ->
color
_ ->
ANSI.default_background()
end
end
case Map.fetch(coordinate_to_piece, key) do
{:ok, {shade, type}} ->
piece = @ascii_chars["pieces"][shade][type]
piece_line = Enum.at(piece, row - curr_y * tile_height)
piece_line_len = String.length(piece_line)
pad_left_right = div(tile_width - piece_line_len, 2)
if relative_to_tile_col >= pad_left_right &&
relative_to_tile_col < tile_width - pad_left_right do
piece_char = String.at(piece_line, relative_to_tile_col - pad_left_right)
new_char = if piece_char == " ", do: char, else: piece_char
color =
if piece_char == " ",
do: ANSI.default_color(),
else: if(shade == "dark", do: @dark_piece_color, else: @light_piece_color)
if color != current_color do
%{
row_state
| current_color: color,
row_chars: row_chars ++ [prefix, color, new_char]
}
else
%{
row_state
| current_color: current_color,
row_chars: row_chars ++ [prefix, new_char]
}
end
else
%{
row_state
| current_color: ANSI.default_color(),
row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
}
end
_ ->
if ANSI.white() != current_color do
%{
row_state
| current_color: ANSI.default_color(),
row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
}
else
%{
row_state
| row_chars: row_chars ++ [prefix, char]
}
end
end
end
)
row_chars
|> Enum.join("")
end)
end end
defp piece_type(char) do defp piece_type(char) do

View File

@ -11,7 +11,7 @@ defmodule Chessh.SSH.Client do
@min_terminal_width 64 @min_terminal_width 64
@min_terminal_height 31 @min_terminal_height 31
@max_terminal_width 200 @max_terminal_width 220
@max_terminal_height 100 @max_terminal_height 100
defmodule State do defmodule State do

View File

@ -35,11 +35,11 @@ defmodule Chessh.SSH.Client.Menu do
:up -> :up ->
%State{ %State{
state state
| selected: wrap_around(selected, -1, length(@options)) | selected: Utils.wrap_around(selected, -1, length(@options))
} }
:down -> :down ->
%State{state | selected: wrap_around(selected, 1, length(@options))} %State{state | selected: Utils.wrap_around(selected, 1, length(@options))}
# :return -> # :return ->
# {_, new_state} = Enum.at(@options, selected) # {_, new_state} = Enum.at(@options, selected)
@ -87,9 +87,4 @@ defmodule Chessh.SSH.Client.Menu do
end end
) ++ [ANSI.home()] ) ++ [ANSI.home()]
end end
defp wrap_around(index, delta, length) do
calc = index + delta
if(calc < 0, do: length, else: 0) + rem(calc, length)
end
end end

View File

@ -11,4 +11,9 @@ defmodule Chessh.Utils do
split = String.split(text, "\n") split = String.split(text, "\n")
{Enum.reduce(split, 0, fn x, acc -> max(acc, String.length(x)) end), length(split)} {Enum.reduce(split, 0, fn x, acc -> max(acc, String.length(x)) end), length(split)}
end end
def wrap_around(index, delta, length) do
calc = index + delta
if(calc < 0, do: length, else: 0) + rem(calc, length)
end
end end