Crowther's engine
Author: Chris Sangwin
Date: 19 Feb 2007

This linkage was designed by Phinehas Crowther (1763-1818).  It is an application of James Watt's linkage to steam engines.  You can move the point C up and down, and see how the piston moves in the engine.  Of course, it is the piston which really drives this mechanism.

A = (1.224286485578972, 5.730658360679644)
B = (6.6464373900228475, 5.088461077534856)
a = 2.7386127875258306
c = Circle(A, a)
d = Circle(B, a)
C = Point(c)
b = 0.5744562646538028
e = Circle(C, b)
E = Intersect(d, e, 2)
f = Segment(A, C)
g = Segment(C, E)
h = Segment(E, B)
P = Midpoint(C, E)
D = (3.8797861807903264, 8.28942605830934)
i = 0.7211102550927979
k = Circle(D, i)
j = 2.794637722496424
p = Circle(P, j)
F, G = Intersect(p, k)
l = Segment(D, G)
m = Segment(G, P)
loc1 = Locus(P, C)
n = 2.6851443164195103
H: (x(P), y(P) - n)
q = Segment(P, H)
r = OrthogonalLine(H, q)
o = 0.2645751311064591
s = Circle(H, o)
I, J = Intersect(s, r)
t = Segment(J, I)