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

"Picture to bank function", by paranoidpete

Loads a picture into a bank contained in a type which also holds the width and height of the given image. Also included is a similar function that does the same thing but stretches the picture to 256*256 for use with my texture mapper.

Code

Function PicToBank.Image(image$)
     IMG=LoadImage(image$)
     this.image=New image
     this\x=ImageWidth(IMG) : this\y=ImageHeight(IMG)
     this\bank=CreateBank(this\x*this\y*4)
     SetBuffer ImageBuffer(IMG)
     LockBuffer 
          For y=0 To this\y-1
               For x=0 To this\x-1          
                    RGB=ReadPixelFast(x,y) And $FFFFFF
                    PokeFloat(this\bank,((y*this\x)+x)*4,RGB)
               Next
          Next
     UnlockBuffer
     FreeImage IMG
     Return this
End Function

Function PicToBank256.Image(image$)
     IMG=LoadImage(image$)
     this.image=New image
     this\x=ImageWidth(IMG) : this\y=ImageHeight(IMG)
     this\bank=CreateBank(256*256*4)
     
     um=(this\x Shl 8)/256
     vm=(this\y Shl 8)/256
     
     SetBuffer ImageBuffer(IMG)
     LockBuffer 
          v=0
          For y=0 To 255
               u=0
               For x=0 To 255     
                    RGB=ReadPixelFast(u Shr 8,v Shr 8)And $FFFFFF
                    PokeFloat(this\bank,((y*256)+x)*4,RGB)
                    u=u+um
               Next
               v=v+vm
          Next
     UnlockBuffer
     
     this\x=256 : this\y=256
     
     FreeImage IMG
     Return this
End Function

Type Image
     Field x,y
     Field bank
End Type

Code software created by Krylar's Kreations