Draw an egg

It's very easy to draw an egg with the curve y^2=(x^2-1)*(x-π) PrivateSubForm_Click() Me.Caption="Drawanegg" DimXAsDouble Me.Scale(-1.5,-3)-(1.5,3) ForX=-1To1Step0.0005 Me.Circle(X,-Sqr((X^2-1)*(X-4*A

>>阅读原文<<