// making music

load dbngraphics.dbn
paper 0
Command upwards x timer
{
 repeat a 0 10
 {
  repeat b timer 100
  {
   set c (a*10)
   field x c (x+10) (c+0) b
   field (x+20) c (x+30) (c+2) b 
   field (x+40) c (x+50) (c+4) b
   field (x+60) c (x+70) (c+6) b
   field (x+80) c (x+90) (c+8) b
  }
 }
}

Command downwards x timer
{
 repeat a 10 0
 {
  repeat b timer 100
  {
   set c (a*10)
   field (x+10) c (x+20) (c-1) b
   field (x+30) c (x+40) (c-3) b
   field (x+50) c (x+60) (c-5) b
   field (x+70) c (x+80) (c-7) b
   field (x+90) c (x+100) (c-9) b
  }
 }
}
Command fill color
{ 
   paper (100-color)
   pen color
   upwards 0 200
   downwards 0 200
}
fill 100
fill 85 
fill 70