A=D

B

C

D

E

F

×

×

G

A = (-1.16, 4.02)
B = (-1.64, 0.24)
C = (3.96, 0.22)
veelhoek1, c, a, b = Polygon(A, B, C)
f = AngularBisector(B, A, C)
D = Intersect(f, a)
veelhoek2, d, a_1, b_1 = Polygon(A, B, D)
E = (1.06, 4.02)
g = Line(E, b_1)
F = Point(g)
h = Line(F, a_1)
i = Line(E, b)
G = Intersect(h, i)
veelhoek3, g_1, e, f_1 = Polygon(E, F, G)
α = Angle(A, D, B)
β = Angle(G, F, E)
u = Vector(E, A)
E' = Translate(E, u)
F' = Translate(F, u)
G' = Translate(G, u)
veelhoek3', g', e', f' = Polygon(E', F', G')
j = Line(A, G')
k = Line(B, D)
H = Intersect(j, k)
l = Segment(D, H)
m = Segment(H, G')
γ = Angle(G', F', A)

Tool: Hoekteken(L) (command Macro2)
Drie punten, tweede punt is hoekpunt
Input: A, B, C
Output: veelhoek1

a = Segment(A, C)
b = AngularBisector(A, B, C)
D = Intersect(b, a)
c: (a / a * 0.15)
d = Circle(B, c)
e = Ray(B, A)
f = Ray(B, C)
g = Ray(B, D)
E = Intersect(d, g, 1)
F = Intersect(d, e, 1)
u = Vector(B, F)
G = Intersect(d, f, 1)
v = Vector(B, G)
E' = Translate(E, u)
E'_1 = Translate(E, v)
E'_2 = Mirror(E, E')
E'_3 = Mirror(E, E'_1)
H = Midpoint(E, B)
B' = Mirror(B, H)
veelhoek1, e'_2, e_1, e'_3, b' = Polygon(E'_2, E, E'_3, B')

Tool: OrthoHyperbool2F
OrthoHyperbool2F[ <Punt>, <Punt> ]
Input: A, B
Output: e

f = Segment(B, A)
C = Midpoint(f)
g = OrthogonalLine(C, f)
c = Circle(C, A)
D = Intersect(c, g, 2)
E = Midpoint(D, A)
d = Circle(C, E)
F = Intersect(d, f, 2)
e = Hyperbola(A, B, F)

Tool: Pijlpunt
2 punten
Input: A, B
Output: veelhoek1

f = Segment(A, B)
a: f / f / 2
c = Circle(B, a)
C = Intersect(c, f, 1)
b: a / 16
B' = Dilate(B, b, C)
g = OrthogonalLine(B', f)
D, E = Intersect(c, g)
veelhoek1, e, d, b_1 = Polygon(D, B, E)