Draw an egg(3)

Use 4 arcs to compose an egg shape:
  1. PrivateSubForm_Click()
  2. Me.Caption="Drawanegg"
  3. DimpiAsSingle,XAsSingle
  4. pi=4*Atn(1)
  5. Me.Scale(-2,-4)-(4,4)
  6. Me.Circle(2,0),1,vbCyan,3*pi/2,pi/2
  7. Me.Circle(Sqr(3)/2,0),0.5,vbCyan,2*pi/3,4*pi/3
  8. Me.Circle(2,2),2,vbCyan,pi/2,3*pi/4
  9. Me.Circle(2,-2),2,vbCyan,5*pi/4,3*pi/2
  10. EndSub

It returns:

Draw an egg(3)

你可能感兴趣的:(raw)