points

grid

showpts = true
showgrid = false

Tool: QuadTess1
QuadTess1[ <Point> ]
Input: I
Output: poly3, j_1, j'_1, k_1, O, i_1, L, J

d = Circle(I, 1)
J = Point(d)
J' = Rotate(J, (-(14.27°)), I)
j = Segment(I, J')
k = Circle(I, 0.5269)
K = Intersect(k, j, 1)
J'_1 = Rotate(J, 61.43°, I)
poly3, i_1, k_1, j_1, j'_1 = Polygon(I, K, J, J'_1)
L = Midpoint(J'_1, I)
O = Midpoint(I, K)

Tool: QuadTess3
QuadTess3[ <Point> ]
Input: A
Output: poly2, h, i, f_1, g_1, B, N, M

B = Point(Circle[A, 1])
C: A + (0.244035448768639 * Vector[A, B]) + (-0.899304751387023 * OrthogonalVector[Segment[A, B]])
D: A + (-0.928345586212349 * Vector[A, B]) + (-0.825548127765577 * OrthogonalVector[Segment[A, B]])
poly2, h, g_1, f_1, i = Polygon(A, B, C, D)
N = Midpoint(A, B)
M = Midpoint(D, A)

Tool: QuadTess2
Input: E
Output: poly1, f_2, f, f', g_2, H, F

c = Circle(E, 1)
F = Point(c)
F' = Rotate(F, 90°, E)
f = Segment(E, F')
g = OrthogonalLine(F', f)
G = Point(g)
poly1, f_2, e, f', g_2 = Polygon(F, E, F', G)
H = Midpoint(G, F)