//okhan 2/21/00
//3B
//line of dots

Command MyLine
{
   Forever
   {

      //grey slope
      Command hill
      {
         Repeat a 0 59
         {
            Pen 20
            Line 59 0 0 a
         }
      }
      set x 20
      set y -1
      Repeat j 1 41
      {

         Smaller? x 61
         {
            Repeat a 80 y
            {
               //dots fall vertically off line 40
               notSmaller? a 40
               {
                  Pen 100
                  set [20 a] 100
                  Line 20 80 (80-x) 80
                  Paper 0
                  Line 60 0 (60-y) y
                  hill
               }
               //dots down the slope to reform line
               Smaller? a 40
               {
                  Pen 100
                  set [(60-a) a ] 100
                  Line 20 80 (80-x) 80
                  Paper 0
                  Line 60 0 (60-y) y
                  hill
               }
            }
            set x (x+1)
            set y (y+1)
         }
      }
   }
}

Myline