Create spiro.r

Draw spirograph - like graphics.  Whoopee.