blitz to freebasic image converter[BB2D]

[ninogenio]

i wasnt really sure where to put this but here it is.

Code: [Select]

pn$ = Input$("Picture FileName: ")
filename$=Mid(pn$,1,Len(pn$)-4)

Graphics 640,480,16,2

picture = LoadImage(pn)
DrawImage picture,0,0

hight = ImageHeight(picture) - 1
width = ImageWidth(picture) - 1

filein = WriteFile( filename$+".bi" )
       
        WriteLine(filein,"dim shared "+filename$+"_height as integer = "+hight)
        WriteLine(filein,"dim shared "+filename$+"_width as integer = "+width)
        WriteLine(filein,"dim shared "+filename$+"(0 To "+filename$+"_width*"+filename$+"_height ) as integer")
        WriteLine(filein,"")
        WriteLine(filein,"for x = 0 to "+filename$+"_width*"+filename$+"_height")
        WriteLine(filein,"      read "+filename$+"(x)")
        WriteLine(filein,"next")
        WriteLine(filein,"")

        For h = 0 To hight
                temp$ = ""
                For w = 0 To width

                       
                        GetColor(w,h)
                        red=ColorRed()
                        red=red Shl 16

                        green=ColorGreen()
                        green=green Shl 8

                        blue=ColorBlue()

                        red_green_blue=red Or green Or blue

                        temp$ = temp$ + "&h"+Hex(red_green_blue)

                        If w = width Then
                        Else
                             temp$ = temp$ + ","
                        EndIf
                Next
                WriteLine(filein,"data "+temp$)
        Next
CloseFile(filein)


[Shockwave]

That's a nice idea I'll test it out, thanks Nino.

[ninogenio]

thanks shockwave it should work as ive used it once to do a texture maped cube.