////okhan 2/28/00
//4A
//surreal images play on the idea that things don't
//function the way they should. In this case
//gravity is not a force to be reckoned with.

Forever
{
   //grey slope
   Command hill
   {
      Set b 5
      Set c 95
      Repeat a 47 2
      {
         Pen 20
         Line b a c a
         Set b (b+1)
         Set c (c-1)
      }
   }
   set x 20
   set y 0
   Repeat j 1 61
   {
      Smaller? x 42
      {
         Repeat a 88 y
         {
            notSmaller? a 48
            {
               Pen 100
               set [20 a] 100
               notSmaller? x 41
               {
                  Pen 0
               }
               Line 20 88 (60-x) 88
               Paper 0
               Pen 100
               Line 68 48 (68-y) 48
               Line 45 1 65 1
               hill
            }

            Smaller? a 48
            {
               Pen 100
               set [(67-a) 48] 100
               notSmaller? x 41
               {
                  Pen 0
               }
               Line 20 88 (60-x) 88
               Paper 0
               Pen 100
               Line 68 48 (68-y) 48
               Line 34 1 55 1
               hill
            }
         }
         set y (y+1)
         set x (x+1)
      }
      NotSmaller? j 61
      {

         Repeat a 0 20
         {
            Pen 100
            Line 45 1 65 1
            Line (66-a) 48 46 (48+a)
            Paper 0          
            hill
         }

         Repeat a 20 150
         {
            Pen 100
            Line 34 1 55 1 
            Line 46 (48+a-20) 46 (48+a)
            Paper 0         
            hill
         }
      }
   }
}