//REVERIE
//the chain of thought 
//disturbed with mouse
//mixes up thoughts   
//that fall down 
//gets formed again..
paper 0
pen 60
Command base
{
   paper 0
   pen 60
   repeat a 1 4
   {
      set b (a*5)
      set c (a*65)
      set d (a*10)
      line b 0 b 100
      line 0 30 100 30
      line 65 0 65 100
   }
}

  Command disturb
  {
   repeat a 1 8
   {
    set  H 
    set H2 (H*2)
    set V 
    set c (a*2)
    NotSmaller? V 16
    {
     NotSmaller? H 16
     {
      line (19+c) H2 (48+c) H2
      repeat H2 20 0
      {
       set HH (2*H2)
       repeat  a 1 10
       {
        line (19+c) HH (48+c) HH
        }
       }
      }
     }
    }
   }

 Command reverieBlack
 {
   repeat a 100 31
   {
      line 50 a 64 a
      disturb
   }
  }
  Command reverie
  {
   pen 60
   reverieGrey
   pen 100
   reverieBlack
   pen 0
   reverieBlack
   reverieGrey
  }
   repeat a 1 100
   {
      base
      reverie
      disturb
   }