Hi i'm searching for a code that can create pieces of 32x32 of a 512x15904 image
like 0x0.png 1x0.png to 14x0.png and then 0x1.png etc
but the orignal image got transparent and i dont want to lose that
with my current code i do lose that and i havent found a way around that
anybody able to help me with this problem ?
i tried a png plugin although the images ended up corrupted not because of my coding because even the 3 samples provided where corrupted
Thanks and hope somebody can help me
.
the code is in RealBasic by the way
a program or php code would also help.
like 0x0.png 1x0.png to 14x0.png and then 0x1.png etc
but the orignal image got transparent and i dont want to lose that
with my current code i do lose that and i havent found a way around that

anybody able to help me with this problem ?
i tried a png plugin although the images ended up corrupted not because of my coding because even the 3 samples provided where corrupted
Thanks and hope somebody can help me

the code is in RealBasic by the way
a program or php code would also help.
Code:
Sub Action()
dim f as folderitem
dim i as integer
dim a as integer
a =0
do until a = 15
i=0
Do Until i = 497
f = New folderItem("temp/" + str(a) + "x" + str(i) + ".bmp")
f.SaveAsPicture playfield.NewSprite(readtiles(i,a),a*add,i*add).image
i=i+1
Loop
a=a+1
loop
End Sub
Function ReadTiles(Row as integer,Column as integer) As Picture
Dim pic as Picture
Pic = NewPicture(add,add,Screen(0).Depth)
Pic.Graphics.DrawPicture(AllTiles,0,0,add,add,Column*add,Row*add,add,add)
Return Pic
End Function