BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Real-Time Emboss", by onion

Similar in a way to Photoshop's emboss filter.

It takes a pixel value, and a value from one of the 8 next to it, and combined the two in a clever way to do an emboss effect. Currently loops round the 8 'compass directions' to give a funky effect.

Just wrote it in response to a forum post. Probably won't ever be updated. You'll need a suitable 'image.bmp' file, anything should be fine.

Version 0.1: Ok, its got a bug, it turns everything blue. I suspect I've mucked up the binary shifting..

Suggested improvements:

Fix the bug. :)

Remove the n and m matrices and replace with a smooth sin curve for a lovely lighting effect.

Remove half the readpixelfast statements. At the moment every pixel is read twice. This is quite mad. Fling the values into a 2d array. Much faster.

Animate the matrices.. imagine it.. an emboss text scroller.. cool..

Whatever else.. go play.

NOTE:

Updated. I fixed the bug. All my binary shifts were flippin' back-to-front. Doh!

Code

Graphics 800,600,16
SetBuffer BackBuffer()

Global red = 200
Global green = 200
Global blue = 200

Global power = 5

Dim nMatrix(8)
Restore nMatrixData
For x = 0 To 7
     Read nMatrix(x)
Next
Dim mMatrix(8)
Restore mMatrixData
For x = 0 To 7
     Read mMatrix(x)
Next

Global imgOriginal = LoadImage("./image.bmp")
Global imgBuffer1 = ImageBuffer(imgOriginal)

Global width = ImageWidth(imgOriginal)
Global height = ImageHeight(imgOriginal)

Global imgEmboss = CreateImage(width,height)
Global imgBuffer2 = ImageBuffer(imgEmboss)

While Not KeyDown(1)

l = l+1
     If l>7 Then l=0
     n=nMatrix(l)
     m=mMatrix(l)

Cls()

LockBuffer(imgBuffer1)
     LockBuffer(imgBuffer2)

For x = 0 To width-1
          For y = 0 To height-1
     
               c1 = ReadPixelFast(x,y,imgBuffer1)
               r1 = (c1 And $ff0000) Shr 16
               g1 = (c1 And $ff00) Shr 8
               b1 = (c1 And $ff)
               
               c2 = ReadPixelFast(x+n,y+m,imgBuffer1)
               r2 = (c2 And $ff0000) Shr 16
               g2 = (c2 And $ff00) Shr 8
               b2 = (c2 And $ff)

r = red+((r2-r1)*power)
               If r < 0 Then r = 0
               If r > 255 Then r = 255
               g = green+((g2-g1)*power)
               If g < 0 Then g = 0
               If g > 255 Then g = 255
               b = blue+((b2-b1)*power)
               If b < 0 Then b = 0
               If b > 255 Then b = 255

c = (c1 And $000000) + (r Shl 16) + (g Shl 8) + b

WritePixelFast(x,y,c,imgBuffer2)
               
          Next
     Next

For x = 0 To width-1          
          myColor = (red Shl 16) + (green Shl 8) + blue
          WritePixelFast(x,0,myColor,imgBuffer2)
          WritePixelFast(x,height-1,myColor,imgBuffer2)
     Next

For y = 0 To height-1          
          myColor = (red Shl 16) + (green Shl 8) + blue
          WritePixelFast(0,y,myColor,imgBuffer2)
          WritePixelFast(width-1,y,myColor,imgBuffer2)
     Next

UnlockBuffer(imgBuffer1)
     UnlockBuffer(imgBuffer2)

DrawImage(imgOriginal,120,20)
     DrawImage(imgEmboss,120+width+20,20)
     
     Flip()
     
Wend
End

.nMatrixData
Data 0,1,1,1,0,-1,-1,-1

.mMatrixData
Data 1,1,0,-1,-1,-1,0,1

Code software created by Krylar's Kreations