ReCo.jl/graphics/CairoMakie_graphics/elliptical_distance.jl

using CairoMakie
using LaTeXStrings: @L_str

include("../../visualization/common_CairoMakie.jl")

function gen_elliptical_distance_graphics()
    init_cairomakie!()

    fig = gen_figure()

    ax = Axis(fig[1, 1]; xlabel=L"x", ylabel=L"y")

    elliptical_b_a_ratio = 0.4
    as = 1:3

    for a in as
        x = collect(LinRange(-a, a, 1000))
        y = @. sqrt(a^2 - x^2) * elliptical_b_a_ratio
        append!(x, reverse(x))
        append!(y, reverse(-y))
        lines!(ax, x, y; label=L"a = %$a")
    end

    axislegend(ax; position=:rt, padding=3, rowgap=-3)

    set_gaps!(fig)

    save_fig("elliptical_distance.pdf", fig)

    return nothing
end