Draw an egg(2)

It's also easy to draw an egg with the curve y^2=(sin(x)*(1+cos(x)/π)).   Private Sub Form_Click() Me.Caption = "Draw an egg" Dim pi As Single, X As Single pi = 4 * Atn(1) Me.Scale (-1, -2)-(4, 2) For

>>阅读原文<<