Α = Intersect(xAxis, yAxis)
Β = Point(xAxis)
Γ = Εργαλεία1(Α, Β)
πολύγ1, β, α, γ = Polygon(Α, Γ, Β)
Δ = Εργαλεία1(Α, Γ)
πολύγ2, δ, α_1, γ_1 = Polygon(Α, Γ, Δ)
Ε = Εργαλεία1(Α, Δ)
πολύγ3, δ_1, ε, α_2 = Polygon(Ε, Α, Δ)
c = Circle(Α, Distance[Α, Β])
d = Circle(Α, Distance[Α, Γ])
e = Circle(Α, Distance[Α, Δ])
f = Circle(Α, Distance[Α, Ε])
Ζ = Εργαλεία1(Α, Ε)
πολύγ4, ζ, α_3, ε_1 = Polygon(Α, Ε, Ζ)
Η = Εργαλεία1(Α, Ζ)
πολύγ5, η, α_4, ζ_1 = Polygon(Α, Ζ, Η)
Θ = Εργαλεία1(Α, Η)
πολύγ6, θ, α_5, η_1 = Polygon(Α, Η, Θ)
g = Circle(Α, Distance[Α, Ζ])
h = Circle(Α, Distance[Α, Η])
k = Circle(Α, Distance[Α, Θ])
Ι = Εργαλεία1(Α, Θ)
πολύγ7, ι, α_6, θ_1 = Polygon(Α, Θ, Ι)
Κ = Εργαλεία1(Α, Ι)
πολύγ8, κ, α_7, ι_1 = Polygon(Α, Ι, Κ)
Λ = Εργαλεία1(Α, Κ)
πολύγ9, λ, α_8, κ_1 = Polygon(Α, Κ, Λ)
Μ = Εργαλεία1(Α, Λ)
πολύγ10, μ, α_9, λ_1 = Polygon(Α, Λ, Μ)
Ν = Εργαλεία1(Α, Μ)
πολύγ11, ν, α_{10}, μ_1 = Polygon(Α, Μ, Ν)
Ξ = Εργαλεία1(Α, Ν)
πολύγ12, ξ, α_{11}, ν_1 = Polygon(Α, Ν, Ξ)
Ο = Εργαλεία1(Α, Ξ)
πολύγ13, ο, α_{12}, ξ_1 = Polygon(Α, Ξ, Ο)
Π = Εργαλεία1(Α, Ο)
πολύγ14, π, α_{13}, ο_1 = Polygon(Α, Ο, Π)
Ρ = Εργαλεία1(Α, Π)
πολύγ15, ρ, α_{14}, π_1 = Polygon(Α, Π, Ρ)
Σ = Εργαλεία1(Α, Ρ)
πολύγ16, σ, α_{15}, ρ_1 = Polygon(Α, Ρ, Σ)
p = Circle(Α, Distance[Α, Ι])
q = Circle(Α, Distance[Α, Κ])
r = Circle(Α, Distance[Α, Λ])
s = Circle(Α, Distance[Α, Μ])
t = Circle(Α, Distance[Α, Ν])
c_1 = Circle(Α, Distance[Α, Ξ])
d_1 = Circle(Α, Distance[Α, Ο])
e_1 = Circle(Α, Distance[Α, Π])
f_1 = Circle(Α, Distance[Α, Ρ])
g_1 = Circle(Α, Distance[Α, Σ])
Τ = Intersect(d, xAxis, 2)
Υ = Intersect(e, xAxis, 2)
Φ = Intersect(f, xAxis, 2)
Χ = Intersect(h, xAxis, 2)
Ψ = Intersect(g, xAxis, 2)
Ω = Intersect(k, xAxis, 2)
Α_1 = Intersect(p, xAxis, 2)
Β_1 = Point(q)
Γ_1 = Intersect(r, xAxis, 2)
Δ_1 = Intersect(s, xAxis, 2)
Ε_1 = Point(t)
Ζ_1 = Intersect(c_1, xAxis, 2)
Η_1 = Intersect(d_1, xAxis, 2)
Θ_1 = Intersect(e_1, xAxis, 2)
Ι_1 = Intersect(f_1, xAxis, 2)
Κ_1 = Intersect(g_1, xAxis, 2)

Tool: Εργαλεία1
Input: Α, Β
Output: Γ

a = Segment(Α, Β)
b = OrthogonalLine(Β, a)
c = Circle(Β, 1)
Γ = Intersect(c, b, 2)