;VERY cool magnifying glass demo.Graphics 640,480,0,2HidePointer()img = CreateImage(640,480)SetBuffer ImageBuffer(img)SeedRnd(22432)For x = 1 To 9000Color Rnd(255),Rnd(255),Rnd(255)Rect Rnd(640),Rnd(480),Rnd(20),Rnd(20),1NextGlobal dimg = CreateImage(150,150)SetBuffer BackBuffer()While Not KeyDown(1)ClsDrawImage img,(-(MouseX())+320)/3,(-(MouseY()/1)+240)/3drop(MouseX(),MouseY(),50,1)Flip FalseWendEndFunction drop(x,y,r,s# = 1)LockBuffer ImageBuffer(dimg)LockBuffer BackBuffer()For x1 = -r To r For y1 = -r To r dist# = Sqr(x1*x1 + y1*y1) If dist# <= r Then WritePixelFast1 x1+r,y1+r,ReadPixelFast1(x1*(dist#/r*s#)+x,y1*(dist#/r*s#)+y),ImageBuffer(dimg) EndIf NextNextUnlockBuffer BackBuffer()UnlockBuffer ImageBuffer(dimg)Color 0,0,0Oval x-r+1,y-r+1,2*r-1,2*r-1,1DrawImage dimg,x-r,y-rSetBuffer ImageBuffer(dimg)Color 0,0,0Rect 0,0,151,151,1SetBuffer BackBuffer()End FunctionFunction writepixelfast1(x,y,col,buffer)If x > -1 And y > -1 Then If x < GraphicsWidth()-1 And y < GraphicsHeight()-1 Then WritePixelFast x,y,col,buffer EndIfEndIfEnd FunctionFunction readpixelfast1(x,y)If x > 0 And y > 0 Then If x < GraphicsWidth() And y < GraphicsHeight() Then Return(ReadPixelFast(x,y)) EndIfEndIfReturn 0End Function