gr.open 0, 0, 0, 0
gr.Orientation 0
gr.Screen mx, my
dim obj[9]
gr.bitmap.load b2,"test.jpg"
gr.bitmap.scale b1,b2,mx,my
gr.bitmap.delete b2
array.load x[],-1,1,0,-1,1,0,-1,1,0
array.load y[],-1,-1,-1,1,1,1,0,0,0
gr.cls
for I=1 to 9
     gr.bitmap.draw obj[I],b1,x[i],y[i]
     gr.modify obj[I], "alpha",128
next 
do
  for I=1 to 9
    gr.modify obj[I],"bitmap",b1
  next
  gr.render
  b2=b1
  gr.screen.to_bitmap b1
  gr.bitmap.delete b2
until 0

OnError:
gr.Close
End