točke

središte baze 1

središte baze 2

točka osnog presjeka

osni presjek

polumjer

os valjka

točke

točke

S

r

v

A = (0.72, -1.66)
B = Point(Ray[A, A + (1, 0)])
S = Midpoint(A, B)
a = OrthogonalLine(S, Line[A, B])
D = Point(a)
c = CircumcircleArc(A, D, B)
A' = Mirror(A, S)
D' = Mirror(D, S)
B' = Mirror(B, S)
E = Point(Ray[A, A + (0, 1)])
c' = CircumcircleArc(A', D', B')
A'_1 = Translate(A, Vector[A, E])
D'_1 = Translate(D, Vector[A, E])
B'_1 = Translate(B, Vector[A, E])
c'_1 = CircumcircleArc(A'_1, D'_1, B'_1)
A'' = Translate(A', Vector[A, E])
D'' = Translate(D', Vector[A, E])
B'' = Translate(B', Vector[A, E])
c'' = CircumcircleArc(A'', D'', B'')
b = Segment(E, A)
d = Segment(B'_1, B)
e = false
C' = Translate(S, Vector[A, E])
f = true
g = Segment(S, B)
h = false
C = Point(c)
C'_1 = Mirror(C, S)
i = Segment(C, C'_1)
C'_2 = Translate(C, Vector[A, E])
F = Translate(C'_2, Vector[A, E])
G = Translate(C'_1, Vector[A, E])
j = Segment(C'_2, G)
k = Segment(G, C'_1)
l = Segment(C'_2, C)
mnogokut1, c_1, c'_2, g_1, m = Polygon(C, C'_1, G, C'_2)
m_1 = false
n = false
o = true
p = Segment(C', S)
q = false
A_1 = (10.1, -1.38)
B_1 = Point(Ray[A_1, A_1 + (1, 0)])
S_1 = Midpoint(A_1, B_1)
a_1 = OrthogonalLine(S_1, Line[A_1, B_1])
D_1 = Point(a_1)
c_2 = CircumcircleArc(A_1, D_1, B_1)
A'_2 = Mirror(A_1, S_1)
D'_2 = Mirror(D_1, S_1)
B'_3 = Mirror(B_1, S_1)
E_1 = (11.02, 1.16)
c'_3 = CircumcircleArc(A'_2, D'_2, B'_3)
A'_3 = Translate(A_1, Vector[A_1, E_1])
D'_3 = Translate(D_1, Vector[A_1, E_1])
B'_2 = Translate(B_1, Vector[A_1, E_1])
c'_4 = CircumcircleArc(A'_3, D'_3, B'_2)
A''_1 = Translate(A'_2, Vector[A_1, E_1])
D''_1 = Translate(D'_2, Vector[A_1, E_1])
B''_1 = Translate(B'_3, Vector[A_1, E_1])
c''_1 = CircumcircleArc(A''_1, D''_1, B''_1)
b_1 = Segment(E_1, A_1)
d_1 = Segment(B'_2, B_1)
g_2 = Segment(S_1, B_1)
r = true
A_2 = (16.46, 0.94)
B_2 = (16.44, -1.88)
S_2 = Midpoint(A_2, B_2)
a_2 = OrthogonalLine(S_2, Line[A_2, B_2])
D_2 = Point(a_2)
c_3 = CircumcircleArc(A_2, D_2, B_2)
A'_4 = Mirror(A_2, S_2)
D'_4 = Mirror(D_2, S_2)
B'_5 = Mirror(B_2, S_2)
E_2 = (19.88, 0.96)
c'_5 = CircumcircleArc(A'_4, D'_4, B'_5)
A'_5 = Translate(A_2, Vector[A_2, E_2])
D'_5 = Translate(D_2, Vector[A_2, E_2])
B'_4 = Translate(B_2, Vector[A_2, E_2])
c'_6 = CircumcircleArc(A'_5, D'_5, B'_4)
A''_2 = Translate(A'_4, Vector[A_2, E_2])
D''_2 = Translate(D'_4, Vector[A_2, E_2])
B''_2 = Translate(B'_5, Vector[A_2, E_2])
c''_2 = CircumcircleArc(A''_2, D''_2, B''_2)
b_2 = Segment(E_2, A_2)
d_2 = Segment(B'_4, B_2)
g_3 = Segment(S_2, B_2)
s = false