Biarc
Author: Hans-Peter Schröcker
Date: July 18, 2010

A = (7.42, -0.8200000000000001)
B = (-0.56, 4.0600000000000005)
c = Circle(A, 5.0)
d = Circle(B, 5.0)
C = Point(c)
D = Point(d)
u = Vector(A, C)
v = Vector(B, D)
a = LineBisector(B, A)
b = LineBisector(D, C)
F = Intersect(a, b)
e = Circle(F, A)
G = Point(e)
f = LineBisector(G, A)
g = OrthogonalLine(A, u)
h = OrthogonalLine(B, v)
i = LineBisector(B, G)
H = Intersect(g, f)
I = Intersect(h, i)
k = CircleArc(H, A, G)
p = CircleArc(I, G, B)
j = Segment(I, G)
l = Segment(I, B)
m = Segment(H, A)
n = Segment(H, G)