Draw an egg(2)
It'salso easy to draw an egg with the curve y^2=(sin(x)*(1+cos(x)/π)).
- PrivateSubForm_Click()
- Me.Caption="Drawanegg"
- DimpiAsSingle,XAsSingle
- pi=4*Atn(1)
- Me.Scale(-1,-2)-(4,2)
- ForX=0TopiStep0.0005
- Me.Circle(X,-Sqr(Sin(X)*(1+Cos(X)/pi))),0.01,vbWhite
- Me.Circle(X,Sqr(Sin(X)*(1+Cos(X)/pi))),0.01,vbWhite
- Next
- EndSub
It returns: