A

B

O_1

O

K

C

D

E

F

G

H

M

N

P

Q

R

S

T

U

A = (3, -4)
B = (7, -4)
polígono1, lcuad1, lcuad2, lcuad3, lcuad4, Vp7, Vp2 = Polygon(A, B, 4.0)
e = Segment(A, Vp7)
E = Midpoint(e)
f = Circle(E, A)
g = LineBisector(lcuad1)
F = Intersect(f, g, 2.0)
C = Intersect(g, lcuad1)
h = Circle(F, B)
octogono1, a_1, b_1, i, j, k, l, m, n, V1, V2, V3, V4, V5, V6 = Polygon(A, B, 8.0)
diag8 = Segment(A, V2)
diag7 = Segment(V2, V5)
diag6 = Segment(V5, B)
diag5 = Segment(B, V3)
diag4 = Segment(V3, V6)
diag3 = Segment(V6, V1)
diag2 = Segment(V1, V4)
diag1 = Segment(V4, A)
Vp3 = Intersect(diag4, diag1)
Vp4 = Intersect(diag7, diag4)
Vp5 = Intersect(diag7, diag2)
Vp6 = Intersect(diag5, diag2)
Vp8 = Intersect(diag8, diag3)
Vp1 = Intersect(diag6, diag3)
octogono2, lp1, lp8, lp7, lp6, lp5, lp4, lp3, lp2 = Polygon(Vp1, Vp8, Vp7, Vp6, Vp5, Vp4, Vp3, Vp2)