A

B

C

D

A

B

C

D

P

Q

R

S

K

A = (0.04, 2.06)
D = (1, 0)
d = Circle(D, A)
E = Point(d)
f = Line(D, E)
g = OrthogonalLine(E, f)
F = Point(g)
e = Circle(F, E)
G = Intersect(d, e, 2)
h = Line(F, G)
H = Point(h)
k = Circle(H, G)
I = Intersect(d, k, 2)
i = Line(H, I)
J = Point(i)
p = Circle(J, I)
K = Intersect(d, p, 2)
j = Line(J, K)
L = Intersect(g, j)
l = SmartLijnstuk(F, L)
m = SmartLijnstuk(L, J)
n = SmartLijnstuk(J, H)
q = SmartLijnstuk(H, F)
r = Segment(J, F)
s = Segment(L, H)
B = Intersect(r, s)
t = Segment(I, E)
a = Segment(K, G)
veelhoek1, f_1, e_1, i_1, j_1 = Polygon(F, E, I, J)
α = Angle(B, E, F)
β = Angle(B, I, J)

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)

Tool: SmartLijnstuk
2 punten / smart lijnstuk
Input: A, B
Output: f

afstandAB = Distance(A, B)
b: ((afstandAB ≥ 1) * 1 / 8) + 1 / 4
C = Midpoint(A, B)
C' = Mirror(C, A)
C'_1 = Mirror(C, B)
a = Ray(A, C')
c = Ray(B, C'_1)
d = Circle(A, b)
e = Circle(B, b)
D = Intersect(d, a, 1)
E = Intersect(e, c, 1)
f = Segment(D, E)