h

Horizon

Regard

Support correction

R

R = 6400 (slider from 2000 to 8000, step 100)
Centre = Intersect(xAxis, yAxis)
c = Circle(Centre, R)
B = Point(c)
a = Line(Centre, B)
h = 600 (slider from 0 to 1000, step 1)
d = Circle(B, h)
S = Intersect(d, a, 2)
R_1 = (2492.4147401614937, 5303.412035156606)
b = Ray(S, R_1)
e, f = Tangent(S, c)
T = Intersect(c, f)
g = Ray(S, T)
i = Segment(B, S)
p = CircleArc(Centre, T, B)
l = Segment(S, T)
k = false
A, D = Intersect(c, b)
m = Segment(A, S)
n = true
poly1, s, centre, t = Polygon(Centre, T, S)
α = Angle(S, T, Centre)
j = false
C = Point(c)
q = Segment(Centre, C)