You want the outline of a more modern windsurfer?
(my entry from that comp)
Or if you really like, um, Maui (and are nerdy):
PolarPlot[(1 + 0.9 Cos[8 t]) (1 + 0.1 Cos[24 t]) (0.9 + 0.05 Cos[200 t]) (1 + Sin[t]), {t, -Pi, Pi}
Which comes out as:
www.wolframalpha.com/input/?i=PolarPlot[(1+%2B+0.9+Cos[8+t])+(1+%2B+0.1+Cos[24+t])+(0.9+%2B+0.05+Cos[200+t])+(1+%2B+Sin[t]),+{t,+-Pi,+Pi}
disclaimer: yeah I stole itHave a good weekend all
