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

"Alpha with optional from/to x/y parameters", by tonyg

Built from AshCroftMan's code...
http://www.blitzcoder.com/cgi-bin/code/code_showentry.pl?id=ashcroftman05202002015304&comments=no
Ignores pixels the same colour as mask value and adds from/to x/y to display portion of image in alpha.

Code

Graphics 800,600,24
SetBuffer BackBuffer()
AppTitle("Alpha")
; you'll need to supply our own images.
background = LoadImage("image1.png")
image = LoadImage("image2.png")
Global int_colour = IntColor(0,0,0,255)   ; to match mask colour
Cls
Dim aLut(600,3) ;3X higher than color that could be request...pre-done clamping :)
initalphalut()
alpha# = 0.5
While Not KeyHit(1)
   Cls
; spacebar to turn on/off alpha.
   If KeyHit(57)
      If alphablend = 1
         alphablend = 0
      Else
         alphablend = 1
      EndIf
   EndIf
;mouse1 to increase alpha. Mouse2 to decrease.
   mh1 = MouseHit(1)
   mh2 = MouseHit(2)
   DrawImage background,0,0

If mh1 = 1 
     alpha# = alpha# - 0.05
     If alpha# < 0.0 Then alpha# = 0.0
   EndIf
   If mh2 = 1 
     alpha# = alpha# + 0.05
     If alpha# > 1.0 Then alpha# = 1.0
   EndIf
   x=MouseX() : y=MouseY()
   If alphablend = 1
   error=drawimagealpha2(image,x,y,alpha#,0,0,ImageWidth(image),ImageHeight(image))
      If error = 1
         RuntimeError "Invalid from/to values"
      EndIf
   Else 
   DrawImage image,x,y
   EndIf
   Flip
Flip
Wend
End
Function initAlphaLut()
; cap colour values.
Local r
;---
     Dim aLut(600,3)
     For r=1 To 600
          c=r
          If c>255 c=255
          aLut(r,1) = (c And 255) Shl 16 
          aLut(r,2) = (c And 255) Shl 8 
          aLut(r,3) = (c And 255) 
     Next
;---
End Function

Function drawImageAlpha2(image,x,y,a#,fromx=0,fromy=0,tox=0,toy=0) ;V2.0 Faster/Safer. 
; The function takes the image, x/y and alpha (0.0. to 1.0) plus 
; from/to x/y values.
If fromx < 0 Or fromy < 0 Or tox > ImageWidth(image) Or toy > ImageWidth(image) Or fromx > ImageWidth(image) Or fromy > ImageHeight(image)  Or tox < 0 Or toy < 0

Return 1
EndIf
If tox = 0 Then tox = ImageWidth(image)
If toy = 0 Then toy = ImageHeight(image)
Local drgb,srgb,dX,dY,w,h,na#,nX,nY
;--
LockBuffer
LockBuffer ImageBuffer(image)
If x<1 x=1 
If y<1 y=1
w=ImageWidth(image)
h=ImageHeight(image)
If x+w>GraphicsWidth() w=w-(x+w-GraphicsWidth())
If y+h>GraphicsHeight() h=h-(y+h-GraphicsHeight())
If a>1 a=1
If a<0 a=0
nA# = 1 - a;
     For dY= 0 To w-1 
          For dX = 0 To h-1
                    nX=dX+x
                    nY=dY+y
                    drgb = ReadPixelFast(dX,dY,ImageBuffer(image))
                    If drgb <> int_colour
                       If dx >= fromx And dx <= tox And dy >= fromy And dy <= toy
                          srgb = ReadPixelFast(nX,nY)
                          WritePixelFast nX,nY,$ff000000 Or aLut(  ((srgb Shr 16) And 255) * nA + (((dRgb Shr 16) And 255) * a),1)Or aLut( ((sRgb Shr 8) And 255)* nA + (((dRgb Shr 8) And 255) * a),2 ) Or aLut( (sRgb And 255) * nA + ((dRgb And 255) * a) ,3)
                       Else
                          WritePixelFast nx,ny,$ff000000 Or aLut(  ((dRgb Shr 16) And 255),1)Or aLut( ((dRgb Shr 8) And 255),2 ) Or aLut( (dRgb And 255),3)
       
                EndIf
                    EndIf
          Next
     Next
UnlockBuffer ImageBuffer(image)
UnlockBuffer
End Function
Function IntColor(R,G,B,A=255)
;returns argb value from red, green, blue.
     Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0
End Function

Code software created by Krylar's Kreations