A_1 = (-2, 0.5)
B_1 = (-2, 1.5)
O = (0.5, 1.5)
D = (0.5, 0.5)
E = (2, 0.5)
F = (2, 2.5)
G = (0.5, 2.5)
f = Ray(O, B_1)
g = Ray(O, G)
h = Ray(E, F)
i = Ray(E, A_1)
k = 0.41 (slider from 0 to 1, step 0.001)
Q = Point(Circle[O, k])
j = Segment(O, Q)
l = OrthogonalLine(Q, j)
A = Intersect(l, i)
B = Intersect(l, h)
m = Segment(A, B)
n = OrthogonalLine(O, j)
p = OrthogonalLine(B, n)
q = OrthogonalLine(A, n)
C = Intersect(n, q)
H = Intersect(n, p)
r = Segment(A, C)
s = Segment(C, H)
t = Segment(H, B)
polygon1, a, c, h_1, b = Polygon(A, C, H, B)
Punktpolygon1 = PointIn(polygon1)
afstandAB = Distance(A, B)
Tekstpolygon1: "Areal= " + polygon1 + ""
TekstAB: "Side = " + afstandAB + ""