7
I want to draw a bicycle with square wheels similar to this picture, but I can't plot the trajectory along the curve.
enter link description here
(*https://pastebin.com/3UbbfG6W*)
corner[x_] :=
Module[{θ = N@SawtoothWave[{0, 2 Pi}, x/(2 Pi)]},
Piecewise[{{{-1 - Cos[θ], Sin[θ]},
0