Fisheye Lens Effect

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|561\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Generators

Andy_A	Created : 12 October 2016 Edited : 12 October 2016 Fisheye Lens Effect Shows images as through a 'fisheye'' (barrel lens)
[imgs]null[/imgs]Jay's 2D balls reminded me of this code. It takes any square image and turn's it into a round one, or any rectangular image into an oval, with barrel lens effect. Fisheye version of Jay's ball texture Blitzplus code: ;https://popscan.blogspot.com/2012/04/fisheye-lens-equation-simple-fisheye.html AppTitle "Fish Eye Effect" Global sw%, sh%, srcImage%, srcImgW%, srcImgH%, d2r#, r2d# Global srcName$ sw = 512: sh = 512 d2r = Pi/180.0 r2d = 180.0/Pi Graphics sw, sh, 32, 2 SetBuffer BackBuffer() result% = loadImg() ;verify image loads If result = 0 Then Notify "Image Load Failed" End Else Cls DrawBlock srcImage, 0,0 Flip End If Dim dstArray%(srcImgW-1, srcImgH-1) LockBuffer(ImageBuffer(srcImage)) st =MilliSecs() For y% = 0 To srcImgH-1 ny# = Float(y+y)/Float(srcImgH)-1.0 ny2# = ny * ny For x% = 0 To srcImgW-1 nx# = Float(x+x)/Float(srcImgW)-1.0 nx2# = nx * nx r# = Sqr(nx2+ny2) ;Ignore pixels outside of circle radius If ((r >= 0.0) And (r <=1.0)) Then nr# = Sqr(1.0-rr) ;Normalize new distance (radius) to between 0 ... 1 nr = (r + (1.0-nr)) / 2.0 ;Ignore any radius greater than 1.0 If (nr<=1.0) Then theta# = ATan2(ny,nx) nxn# = nr Cos(theta) nyn# = nr * Sin(theta) x2% = Int((nxn+1.0)Float(srcImgW) / 2.0) y2% = Int((nyn+1.0)Float(srcImgH) / 2.0) If (x2 >= 0) And (x2 <= srcImgW-1) And (y2>=0) And (y2 <= srcImgH-1) Then dstArray(x,y) = ReadPixelFast(x2,y2, ImageBuffer(srcImage)) End If End If End If Next Next UnlockBuffer(ImageBuffer(srcImage)) Cls LockBuffer(BackBuffer()) For y=0 To srcImgH-1 For x = 0 To srcImgW-1 If dstArray(x,y) <> 0 Then WritePixelFast(x, y, dstArray(x,y)) End If Next Next et = MilliSecs()-st UnlockBuffer(BackBuffer()) Text 5,sh-17,et Flip WaitMouse() ;Right-click to save fish eye effect image If MouseHit(2) Then saveImg() End If FreeImage srcImage End Function loadImg%() srcName$ = "" srcName$ = RequestFile("Load Source Image","bmp;.jpg;.png",False) If srcName$ <> "" Then srcImage% = LoadImage(srcName$) ResizeImage srcImage, sw-1,sh-1 srcImgW = ImageWidth(srcImage) srcimgH = ImageHeight(srcImage) Return 1 Else Notify "Load Image Cancelled." Return 0 End If End Function Function saveImg() .saveFisheyedImage saveDefault$ = Left(srcName$,Len(srcName$)-4)+"_fisheye.bmp" savePic$ = RequestFile("Save Image As..","bmp",True,saveDefault$) If savePic$ <> "" Then saveFishEye% = CreateImage(srcImgW, srcImgH) GrabImage saveFishEye,0,0 result% = SaveImage(saveFishEye, savePic$) If result = 1 Then Notify "Image Saved." Else Notify "Save Image Failed." End If FreeImage saveFishEye Else Notify "Save Image Cancelled." End If End Function --v

Comments
Wednesday, 12 October 2016, 11:50
Jayenkai	Nice! Add this to the 2D balls, and you could get a nice spherical set of balls!

Comments