gr.open 0, 0, 0, 0
gr.Orientation 0
gr.Screen mx, my
gr.Color 0, 0, 0, 0,0
flag=0 
gr.cls
gr.render 
gr.screen.to_bitmap b1
pause 1
array.load x[],-1,0,1,-1,1,1,-1,0,0
array.load y[],-1,-1,-1,0,1,0,-1,1,0
do
  gr.cls
  for I =1 to 9
      gr.bitmap.draw obj1,b1,x[i],y[i]
      gr.modify obj1, "alpha",64 
  next 
  gr.color 255,rnd()*255,rnd()*255,rnd()*255,1
  gr.circle c, mx*rnd(),my*rnd(),rnd() * 30+20
  gr.render  

  b2=b1
  gr.screen.to_bitmap b1 
  gr.bitmap.delete b2
 
  
  pause 1
until 0
 
 
OnError:
gr.Close
End