//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 } } } }