//modeled surface
repeat y 100 0
{
   repeat x 0 100
   {
      set [x y] (((x-60)*(x-60))/30+((y-8)*(y-8))/15)
   }
}

//this is my egg

//shadow
pen 80
line 50 25 100 25
line 50 26 100 26
line 70 27 100 27
line 70 28 100 28

//here is the shape of the egg
pen 30
repeat x 10 70
{
   //top parabola
   //y1=101-((x-45)^2)/30
   set y1 (101-((x*x/25)-(80*x/25)+(1600/25)))
   line x 55 x y1

   //middle rectangle
   line x 45 x 65

   //bottom parabola
   //y1=((x1-45)^2)/45+30
   set y1 ((x*x/45)-(80*x/45)+(1600/45)+25)
   line x y1 x 45
}

//and here are some highlights
pen 10
repeat count 1 3
{
   line (count*3+23) 40 (count*3+23) 55
   line 22 (count*3+42) 37 (count*3+42)
}
//with a dot
pen 0
line 26 44 27 44
line 25 45 28 45
line 24 46 29 46
line 24 47 29 47
line 25 48 28 48
line 26 49 27 49