perpendicular and parallel construction
Author: Scott Farrar

Use the buttons at the bottom to play through a construction of a line, a perpendicular, and a parallel.

A = Point(yAxis)
B = Point(xAxis)
a = Line(A, B)
C = Point(xAxis)
D = (-3.7156928754632883, -5.821021719545579)
c = Circle(C, Segment[C, D])
E = Intersect(c, a, 1.0)
F = Intersect(c, a, 2.0)
d = Circle(E, Segment[E, F])
e = Circle(F, Segment[E, F])
G = Intersect(d, e, 2.0)
H = Intersect(d, e, 1.0)
b = Line(G, H)
I = (12, 8)
J = Point(a)
f = Segment(I, J)
g = Circle(J, Segment[J, I])
h = Circle(I, Segment[J, I])
K = Intersect(g, a, 2.0)
k = Circle(K, Segment[I, K])
p = Circle(J, Segment[K, I])
L = Intersect(h, p, 2.0)
i = Line(I, L)