.geometry "version 0.51";
v1 = .free(-0.595391, -0.284904, "A");
v2 = .free(0.447733, 0.863009, "B");
v3 = .free(0.628732, -0.270615, "C");
l1 = .l.vv(v1, v2);
l2 = .l.vv(v2, v3);
l3 = .l.vv(v3, v1);
v4 = .vonl(l3, -0.0433048, -0.27846, "D");
l4 = .l.vv(v2, v4, .red);
c1 = .c.lll(l1, l4, l3, 1, .red);
c2 = .c.lll(l4, l2, l3, 1, .green);
l6 = .l.vc(v1, c2, 2, .green);
c3 = .c.lll(l1, l6, l2, 1, .yellow);
l7 = .l.vc(v3, c3, 2, .yellow);
c4 = .c.lll(l1, l3, l7, 1, .blue);
l8 = .l.vc(v2, c4, 2, .blue);
c5 = .c.lll(l8, l2, l3, 1, .magenta);
l9 = .l.vc(v1, c5, 2, .magenta);
c6 = .c.lll(l9, l1, l2, 1, .cyan);
l10 = .l.vc(v3, c6, 2, .cyan);
.text("From the American Math Monthly.  Given \triangleABC
select D on AC.  Construct the incircle of \triangleDBC and
the tangent to it from A (green line).  At each stage,
construct incircles and new tangents.  After 6 incircles,
the cycle repeats.  Move D.", .l0);