Parametric Function Grapher
Author: Marc Renault

Mark integral  t  points

x = (1/2) t^3  - 3t

y = t^2 - 4

Show integral  t  values

g(x) = x^(2.0) - 4.0
f(x) = 0.5 x^(3.0) - 3.0 x
tmin = -3.1
tmax = 3.1
fromleft: (x(Corner[3.0]) - x(Corner[4.0])) / 25.0
fromtop: (y(Corner[4.0]) - y(Corner[1.0])) / 20.0
A: Corner[4.0] + (fromleft, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 fromtop)
B: A + (6.0 fromleft, 0.0)
tseg = Segment(A, B)
C = Point(tseg)
Tmid: Distance[A, C] / Distance[A, B] * (tmax - tmin) + tmin
P: (f(Tmid), g(Tmid))
showTmarks = true
tLabel: "t = " + Tmid
TL = Corner(4.0)
c = CurveCartesian(f(s), g(s), s, tmin, Tmid)
Tpoints = Sequence((f(t), g(t)), t, ceil(tmin), floor(Tmid), 1.0)
Tlabels = Sequence(Text["t = " + (t), (f(t) + 0.2 fromleft, g(t) + 0.2 fromtop)], t, ceil(tmin), floor(Tmid))
a = false