$A$

$B$

$C$

$E$

$F$

$G$

$H$

$D$

lb

ft

b = 5 (slider from 5 to 10, step 1)
h = 3 (slider from 3 to 8, step 1)
i: (b, 0) / b
j: (0, h) / b
A = (0, 0)
B: i + j
C: ?
E: ?
F: (3 * i) + j
G: ?
H: ?
D: (2 * i) + (2 * j)
BL: A + (-1, -1)
TR: (5.75 * i) + (3.5 * j)
AB = Segment(A, B)
BD = Segment(B, D)
AC = Segment(A, C)
BC = Segment(B, C)
BE = Segment(B, E)
CE = Segment(C, E)
DE = Segment(D, E)
DF = Segment(D, F)
EF = Segment(E, F)
EG = Segment(E, G)
FG = Segment(F, G)
GH = Segment(G, H)
FH = Segment(F, H)
Pts: {A, B, D, F, H}
f: (0, -.5)
forces = Sequence(Vector[Pts(k) - f, Pts(k)], k, 1, 5)
F_A: 200
F_B: 100
F_D: 500
textA: "" + (LaTeX[F_A]) + "~\text{" + (LaTeX[unitF]) + ""
textH: "" + (LaTeX[F_A]) + "~\text{" + (LaTeX[unitF]) + ""
textB: "" + (LaTeX[F_B]) + "~\text{" + (LaTeX[unitF]) + ""
textF: "" + (LaTeX[F_B]) + "~\text{" + (LaTeX[unitF]) + ""
PtsX: {A, C, E, G, H}
PtsY: {D, F, H}
witnessΥ = Sequence(Segment[PtsY(k) + (.1, 0), (5, y(PtsY(k)))], k, 1, 3)
witnessX = Sequence(Segment[PtsX(k) - (0, .1), (x(PtsX(k)), -.75)], k, 1, 5)
textAC: "" + (LaTeX[b]) + "~\text{" + (LaTeX[unitD]) + ""
textCE: "" + (LaTeX[b]) + "~\text{" + (LaTeX[unitD]) + ""
textEG: "" + (LaTeX[b]) + "~\text{" + (LaTeX[unitD]) + ""
textGH: "" + (LaTeX[b]) + "~\text{" + (LaTeX[unitD]) + ""
textDF: "" + (LaTeX[h]) + "~\text{" + (LaTeX[unitD]) + ""
textFH: "" + (LaTeX[h]) + "~\text{" + (LaTeX[unitD]) + ""
Roller1 = (3.7498753117206975, -0.3951371571072321)
Pin1 = (-0.24937655860349123, -0.38117206982543644)
Roller2: Roller1 + (.5, 0)
Pin2: Pin1 + (.5, 0)
textD: "" + (LaTeX[F_D]) + "~\text{" + (LaTeX[unitF]) + ""