Texture alpha

Finally I have an Alpha Tile.
For anyone that needs Random tile for tree leaves, here is the code.


ts=512
tex55=CreateTexture (ts,ts,15)
SetBuffer TextureBuffer (tex55,0)
For cdy= 0 To ts-1
For cdx= 0 To ts-1
rca=255 ;alpha
rcg=Rnd(0,150) ;green
rcr=Int(rcg/2) ;red
rcb=Int (rcg/4) ;blue
argb=0 ;clear color
argb=(rca Shl 24) Or (rcr Shl 16) Or (rcg Shl 8) Or (rcb)
If rcg<74 Then argb=0 ;just to be sure lots of black
WritePixel cdx,cdy,argb

Next
Next

SetBuffer BackBuffer() ;back to screen

Thanks for the help. Hope someone else can use this too.