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, -Sqr((X ^ 2 - 1) * (X - 4 * Atn(1)))), 0.01, vbRed
- Me.Circle (X, Sqr((X ^ 2 - 1) * (X - 4 * Atn(1)))), 0.01, vbRed
- Next
- End Sub
It returns:
