Start

f(x) = If[x ≥ 0, (1 / 10 * x)]
gL: -15
gR: 85
gU: -0.5
gO: 1.5
PosB: (0, 0)
bB: 80
hB: 1
Balken = Polygon({PosB, PosB + (bB, 0), PosB + (bB, hB), PosB + (0, hB)})
t = 0 (slider from 0 to 80, step 0.1)
P: (t, f(t))
DBalken = Polygon({PosB, PosB + (t, 0), PosB + (t, hB), PosB + (0, hB)})
zustand = 1