fulcro = (0, 0)
PuntoApplicazioneForzaA = (2, 2)
braccio = Vector(fulcro, PuntoApplicazioneForzaA)
A = (5, 5)
forza = Vector(PuntoApplicazioneForzaA, A)
a = Line(PuntoApplicazioneForzaA, xAxis)
b = Line(PuntoApplicazioneForzaA, yAxis)
c = Line(A, yAxis)
d = Line(A, xAxis)
i1 = Intersect(b, xAxis)
yA = Segment(PuntoApplicazioneForzaA, i1)
i2 = Intersect(c, xAxis)
i3 = Intersect(a, yAxis)
xA = Segment(PuntoApplicazioneForzaA, i3)
i4 = Intersect(d, yAxis)
hA = Segment(A, i4)
vA = Segment(A, i2)