// 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
|