Sorry your browser is not supported!

// convert image to a render target
temp = find free image()
load image "SpriteSheet.bmp", temp

spriteSheet = find free image()
make image spriteSheet, image width(temp), image height(temp)

draw to image spriteSheet
    paste image temp, 0, 0
draw to bitmap 0

delete image temp

// draw to it
draw to image spriteSheet    
    // paste tiles to here
draw to bitmap 0

// save it
if file exist("SpriteSheet.bmp") then delete file "SpriteSheet.bmp"
save image "SpriteSheet.bmp", spriteSheet

// Generate Frame Images
function gen_frm_imgs()

	// Make Export Folder if needed
	if path exist(program_path$ + "/export/") = 0 then make directory program_path$ + "/export/"

	// Save Current Frame
	frame_save(crnt_frame, crnt_row)

	// Save each image
	for ID = 0 to array count(spr_frames(0))

		// Set right Frame
		frame_set(spr_frames(ID).frame, spr_frames(ID).row)
		sync

		// Get Image
		spr_frames(ID).img = find free image()
		get image spr_frames(ID).img, gadgetx(vp_left_bor), gadgety(vp_top_bor), gadgetx(vp_right_bor), gadgety(vp_btm_bor), 1

		// Save Image to disc
		save image program_path$ + "/export/" + project_name$ + "_row_" + str$(spr_frames(ID).row) + "_frame_" + str$(spr_frames(ID).frame) + ".bmp", spr_frames(ID).img

		// Delete Image
		delete image spr_frames(ID).img

	next ID

endfunction

set text size 32

dim sprFrames(12)

`generate sprite sheet
uniformFrameSize = 128          `the size of the frame width and height
sheetSubdivisions = 4           `how many frames per row/column
maxSubdivisions = 32

`POSSIBLE SAFETY METHOD
`basically this just checks to see if all the frames can fit in the size of the image,
`if not it will increse the number of frames that can possibly fit by row, also increasing the
`overal size of the image
if array count(sprFrames()) > (sheetSubdivisions^2)
    for n = 0 to maxSubdivisions
        inc sheetSubdivisions
        if array count(sprFrames()) < (sheetSubdivisions^2) then exit
    next
endif


`Further Safety
`set a limit to how big an image can be, if the frame number goes over that,
`make a way to set those frames to another spritesheet

uniformSheetSize = uniformFrameSize * sheetSubdivisions     `actual uniform size of the image
spriteSheet = find free image()

make image spriteSheet, uniformSheetSize, uniformSheetSize

`since it's a render target we can draw directly to it
draw to image spriteSheet

    for f = 0 to array count(sprFrames())
        
        px = x * uniformFrameSize
        py = y * uniformFrameSize

        `#### here is where you'd set the frame and paste the sprite(f) at px, py ####
        ink rgb(rnd(192),rnd(192),rnd(192)), 0
        box px, py, px+uniformFrameSize, py+uniformFrameSize

        ink rgb(255,255,255), 0
        text px, py, str$(count)
        inc count
        
        `this just shifts the rows and columns
        `reason for this method is it's easier to end than
        `2 sperate loops for the row and columns set with an arbitrary number
        oldx = x : x = wrap(x+1, 0, sheetSubdivisions-1)
        
        if oldx > x
            y = wrap(y+1, 0, sheetSubdivisions-1)
        endif

    next
     
draw to bitmap 0

`then save image it and BOOM!!!
paste image spriteSheet, 0, 0

wait key
end