//a transition from white to black
//note the interesting texture
//warning, this rendering is very slow... be patient
norefresh
paper 0

//random and Mod from DBN book
//the randomness helps to make it look more natural
Number Mod X Y
{
   Value (X-(Y*(X/Y)))
}
Number Random D
{
   Set A 5
   Set B 2
   Set C (D*A + 1)
   Set D 
   Value ( * )
}
//time 4 helps to make this even more random
//also acts as a key player in the resulting texture

//placement of "random" dots
Repeat Z 0 100
{
   set W (6*Z)
   repeat V 0 W
   {
      set H 
      set [Z H] 100
      refresh
   }

}