show x(t)

slope=110

x0 = 209.05913978494632
f(x) = 110
xmax = 1100
xmin: (-0.15 * xmax)
tmax = 5.5
g2dimensions = Corner(2, 5)
g2aspect: x(g2dimensions) / ((1.4 * tmax)) / (y(g2dimensions) / (xmax - xmin))
cardx = 0.4
cardy: ((g2aspect * cardx) * 2)
t = 0.2894736842105261 (slider from 0 to tmax, step 0.01)
X0 = Point(Ray[(0, 0), (0, 1)])
g(t) = Integral[f, x] + x0
A: (cardy / ((2 * g2aspect)), g(t) - cardy)
text1 = RotateText("Velocity f(t)", 1.5708)
D: A + (cardx, (-cardy))
E: A + (cardx, ((-cardy)) / 3)
F: A + ((cardx * 1.5), ((-cardy)) / 3)
G: A + ((cardx * 1.5), cardy / 3)
H: A + (cardx, cardy / 3)
I: A + (cardx, cardy)
B: A + (0, cardy)
C: A + (0, (-cardy))
poly1, b, c, d, e, f_1, g_1, h, i = Polygon(B, C, D, E, F, G, H, I)
text2: "t=" + t + ""
a = Segment((t, 0), (t, f(t)))
text4 = RotateText("Position x(t)", 1.5707963267948966)
p = Ellipse(A + (((-cardy)) / g2aspect / 4, ((-cardy) * 0.35)), A + (((-cardy)) / g2aspect / 4, ((-cardy) * 0.85)), A + (0, ((-cardy) * 0.6)))
k = Ellipse(A + (((-cardy)) / g2aspect / 4, (cardy * 0.35)), A + (((-cardy)) / g2aspect / 4, (cardy * 0.85)), A + (0, (cardy * 0.6)))
poly2, j, l, m, n = Polygon(((tmax * 0.001), xmin), (tmax, xmin), (tmax, xmax / 3), ((tmax * 0.001), xmax / 3))
xt: g(t)
showx = true
gshow(t, x) = If[0 ≤ x ≤ tmax, g(x)]
q = Segment(I, (t, xt))
r = Segment((t, 0), (t, xt))
J = PointIn(gshow)
road = Ray((0, 0), (0, 1))
text3: "x(" + t + ") = " + xt + ""
u = Vector(X0 + ((5 * cardx), cardy / 4), X0 + ((3 * cardx), cardy))
text8: "x(t)=110t" + (If[x0 > 0, " + " + x0, ""]) + ""
fshow(x) = If[0 ≤ x ≤ tmax, f]
P = Point(fshow)