-- tkz_elements_functions_misc.lua
-- date 2025/05/25
-- version 4.00c
-- Copyright 2025  Alain Matthes
-- This work may be distributed and/or modified under the
-- conditions of the LaTeX Project Public License, either version 1.3
-- of this license or (at your option) any later version.
-- The latest version of this license is in
-- http://www.latex-project.org/lppl.txt
-- and version 1.3 or later is part of all distributions of LaTeX
-- version 2005/12/01 or later.
-- This work has the LPPL maintenance status “maintained”.
-- The Current Maintainer of this work is Alain Matthes.
-- ----------------------------------------------------------------
--
-- ----------------------------------------------------------------
--  Utilitaire : extrait (x, y) de "(x,y)"

function path_from_pairs(p1, p2, decimals)
  decimals = decimals or 5
  assert(#p1 == #p2, "Chemins de longueurs différentes")
  local result = path:new()
  for i = 1, #p1 do
    local x1, y1 = utils.parse_point(p1[i])
    local x2, y2 = utils.parse_point(p2[i])
    local z1 = { re = x1, im = y1 }
    local z2 = { re = x2, im = y2 }
    result:add_pair_to_path(z1, z2, decimals)
  end
  return result
end

function stock_paths(...)
  local args = {...}
  local n = select("#", ...)
  local decimals = 5
  local paths = {}

  -- Check if last argument is a number (decimals)
  if type(args[n]) == "number" then
    decimals = args[n]
    for i = 1, n - 1 do
      paths[i] = args[i]
    end
  else
    for i = 1, n do
      paths[i] = args[i]
    end
  end

  local len = #paths[1]
  for i = 2, #paths do
    assert(#paths[i] == len, "Paths have different lengths")
  end

  local result = path:new()
  for i = 1, len do
    local parts = {}
    for _, p in ipairs(paths) do
      local x, y = utils.parse_point(p[i])
      table.insert(parts, string.format("%." .. decimals .. "f", x))
      table.insert(parts, string.format("%." .. decimals .. "f", y))
    end
    table.insert(result, table.concat(parts, "/"))
  end

  return result
end