Forum: Moving text on curve
- Author:
- Juan Carlos Ponce Campuzano
text = {"G", "E", "O", "G", "E", "B", "R", "A"}
n = Length(text)
Ln = 1..n
A1 = (-16, 6)
A2 = (-14, 6)
A3 = (-12, 6)
A4 = (-6, 2)
A5 = (-2, 10)
A6 = (4, 6)
A7 = (6, 6)
A8 = (8, 6)
c = Spline({A1, A2, A3, A4, A5, A6, A7, A8})
t = Slider(0, 0.8, 0.01, 1, 180, false, true, false, false)
A = Point(c, t)
B = Point(c, t+0.2)
shortCurve = Curve(x(c(t)), y(c(t)), t, PathParameter(A), PathParameter(B))
Lt = Sequence(k, k, 0, 1 - 1 / n, 1 / n)
Lslope = Zip( atand(Slope(Tangent(Point(shortCurve, t), shortCurve))) / (360°) * 2π, t, Lt )
Llatex = Zip( FormulaText("\mathbb{\bf{\scalebox{2}{" + txt + "}}}"), txt, text )
Lmotion = Zip( Text("\rotatebox {" + ps + "} {" + txt + "}", Point(shortCurve, (k - 1) / n), true, true), k, Ln, ps, Lslope, txt, Llatex )