local src=app.open(app.params.source)
local image=Image(src.cels[1].image)
local columns=math.floor(image.width/48)
src:close()
local names={'south','west','east','north'}
for row=0,3 do
 local gif=Sprite(48,64,ColorMode.RGB)
 for col=0,columns-1 do
  if col>0 then gif:newFrame() end
  local frame=Image(48,64,ColorMode.RGB)
  frame:drawImage(image,Point(-col*48,-row*64))
  gif.cels[col+1].image=frame
  gif.frames[col+1].duration=tonumber(app.params.cycle or '0.64')/columns
 end
 app.command.SpriteSize{ui=false,width=144,height=192,method='nearest-neighbor'}
 gif:saveAs(app.params.prefix..'_'..names[row+1]..'.gif')
 gif:close()
end