//okhan 2/21/00
//3C
//couldn't figure out the mathematics so make it tell a story? 
//ofcourse it would have been cool if it could hatch

Paper 0
pen 100
Forever
{
   Command Egg X Y
   {

      Set [X Y] 100
      Set [(X+4) (Y+1)] 100
      Set [(X+8) (Y+3)] 100
      Set [(X+10) (Y+5)] 100
      Set [(X+12) (Y+9)] 100
      Set [(X+13) (Y+13)] 100
      Set [(X+12) (Y+17)] 100
      Set [(X+10) (Y+21)] 100
      Set [(X+8) (Y+23)] 100
      Set [(X+4) (Y+25)] 100
      Set [(X) (Y+26)] 100
      Set [(X-4) (Y+25)] 100
      Set [(X-10) (Y+23)] 100
      Set [(X-14) (Y+21)] 100
      Set [(X-18) (Y+17)] 100
      Set [(X-20) (Y+13)] 100
      Set [(X-18) (Y+9)] 100
      Set [(X-14) (Y+5)] 100
      Set [(X-10) (Y+3)] 100
      Set [(X-4) (Y+1)] 100

   }
   // shake egg and play on vertical rolling screen
   Repeat T 1 3
   {
      Repeat Y 4 20
      {
         Set V 20
         Repeat H 45 55
         {
            Pen H
            egg H V
            Line 0 20 100 20
            Paper 0
         }
      }
   }
   //Same procedure as above but this time used only as time
   //and not coordinates so egg mometarily stops shaking

   Repeat T 1 3
   {
      Repeat Y 4 20
      {
         Set V 20
         Repeat H 45 50
         {
            Pen H
            egg 50 V
            Line 0 20 100 20
            Paper 0
         }
      }
   }
}