why don't use Bmax for this?
It's quite easy: put all the image in a directory, read the single images from it, then draw on the screen and finally save the buffer as a big image.
Somewhere on my hd I should have the source...
[edit]
'Graphics 800,600
where$=RequestDir("Select folder","..")
Print "DIR: "+where
Global image:String[200],cont=0
'a global array to store the images filename
Print "Loading images..."
ScanDir(where)
Print "Scanning complete...."+cont+" Images founds"
Graphics 800,600
Print "Loading images and drawing it on the screen..."
Local temp:timage
For i=0 To cont-1
temp=LoadImage(image[i])
Print "File: "+image[i]
DrawImage temp,xx,yy
If xx<640-ImageWidth(temp)
DrawImage temp,xx,yy
xx=xx+ImageWidth(temp)
Else
xx=0
yy=yy+ImageHeight(temp)
End If
Flip
Next
temp=Null
Print "Saving backbuffer..."
final_image=CreateImage(640,480)
GrabImage final_image,0,0
SavePixmapPNG(LockImage(final_image),"test.png")
End
Function ScanDir:String(tdir:String="")
If tdir="" tdir=CurrentDir()
ChangeDir(tdir)
Print "Directory to scan "+tdir
Local dir:Int=ReadDir(CurrentDir())
If Not dir Print "Not a directory!";Return
Repeat
t$=NextFile( dir )
If t="" Exit
If t="." Or t=".." Continue
If Instr(t$,".jpg") '<_------------- check this for the image type to load
image[cont]=CurrentDir()+"/"+t$
cont:+1
Print t$
End If
Forever
CloseDir dir
End Function
Not the best piece of program...but it works!