Draw an egg

It's very easy to draw an egg with the curve y^2=(x^2-1)*(x-π) Private Sub Form_Click() Me.Caption = "Draw an egg" Dim X As Double Me.Scale (-1.5, -3)-(1.5, 3) For X = -1 To 1 Step 0.0005 Me.Circle (X

>>阅读原文<<