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