//okhan 2/28/00
//4B
//3 fields including the paper that contrast
//in tone vying for the viewers attention
//moving in and out

Command Field L B R T G
{
   Pen G
   Repeat H L R
   {
      Line H T H B
   }
}
Forever
{
   Repeat a 1 2000
   {
      set r a
      Set s (2000-a)
      Paper 100
      Field 20 (4+(2000-a)/100) 40 90 (s/20)
      Field 10 28 (100-(a/100)) 30 (r/20)
      Pen 

   }
   Repeat a 1 2000
   {
      set r a
      Set s (2000-a)
      Paper 100
      Field 20 (4+(a/100)) 40 90 (r/20)
      Field 10 28 (100-(2000-a)/100) 30 (s/20)
      Pen 
   }
}