Drawing Letters with Splines

Sign your name by having Mathematica connect the dots.

V

The graph of the absolute value of x

Plot[Abs[x], {x, -2.5, 2.5}];

v = {{-2.5, 2.5}, {0, 0}, {2.5, 2.5}};
Show[Graphics[ {PointSize[.03], Map[Point, v]} ]];

Show[Graphics[ Spline[v, Cubic] ]];

W

An interesting graph

Plot[Abs[Abs[x] - 1], {x, -2.5, 2.5}];

w = {{-2.5, 1.5}, {-1, 0}, {0, 1}, {1, 0}, {2.5, 1.5}};

Show[Graphics[ {PointSize[.03], Map[Point, w]} ]];

Show[Graphics[ Spline[w, Cubic] ]];

R

r = {{0, 0}, {0, 1}, {0, 2}, {1, 1.5}, {0, 1}, {1.5, 0}};

The points are not on the graph of a function.

Show[Graphics[ {PointSize[.03], Map[Point, r]} ]];

Show[Graphics[ Spline[r, Cubic] ]];

Can you sign your name?

Practice with a few letters first.

A

a = {	};

Show[Graphics[ {PointSize[.03], Map[Point, a]} ]]

Show[Graphics[ Spline[a, Cubic] ]];

B

b = {	};

Show[Graphics[ {PointSize[.03], Map[Point, b]} ]]

Show[Graphics[ Spline[b, Cubic] ]];

C

c = {	};

Show[Graphics[ {PointSize[.03], Map[Point, c]} ]]

Show[Graphics[ Spline[c, Cubic] ]];

Implementation

Needs["Graphics`Spline`"]