nichthemeron replied to your post: ehehehe
hmmm howd the top left diagonal seam end up with some overlapping?
eye = ParametricPlot[{{t, 1 s (,(2 - (t)^2) - 1)},
0.2 (s + 1) {Sin[π t], Cos[π t]}}, {t, -1, 1}, {s, -1, 1}, Mesh -> None,
BoundaryStyle -> None, Axes -> None,
PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}, Frame -> None, Background -> Black,
PlotStyle -> {Directive[White, Opacity[1]], Directive[Black, Opacity[1]],
Directive[White, Opacity[1]]}]
f[t_] := {t, (t - 1) t (t + 1)}
Table[Export["eyessss" <> ToString[k] <> ".png",
ParametricPlot[
Evaluate[
Table[
f[(-1)^s t] +
0.25 (s + u) J[(-1)^s D[f[(-1)^s t], t]], t]], {s, -20, 20}]], {t, -3, 3}, {u, 0, 1},
PlotRange -> {-2, 2}, Mesh -> None, BoundaryStyle -> None,
PlotStyle -> Directive[Opacity[1], Texture[eye]],
TextureCoordinateFunction -> ({50 #3 + (k - 100)/60, #4} &), Axes -> None,
Frame -> None], ImageSize -> {2000, 2000}], {k, 100,
159, 2}]