Tahem za bod H měňte trojúhelník ABC a sledujte změnu jeho obsahu

A = Intersect(c, xAxis, 2)
H = Point(xAxis)
a = OrthogonalLine(H, xAxis)
C, B = Intersect(c, a)
mnohoúhelník1, d, c_1, a_1 = Polygon(C, A, B)
Textmnohoúhelník1: "Obsah " + (Name[C]) + (Name[A]) + (Name[B]) + " = " + mnohoúhelník1